Fix formatting from tangle

diff --git a/init.el b/init.el
index 20e3e8e8f7fe0020a019d9de2e65680136c3c925..9079bffaa9b069a3eea8afeb72d66d2e9bf444e2 100644 (file)
--- a/init.el
+++ b/init.el
@@ -107,15 +107,15 @@
 (setq markdown-special-ctrl-a/e t)\r
 \r
 (with-eval-after-load 'markdown-mode\r
-    (keymap-set markdown-mode-map "M-<right>" #'markdown-demote)\r
-    (keymap-set markdown-mode-map "M-<left>" #'markdown-promote)\r
-    (keymap-set markdown-mode-map "M-<up>" #'markdown-move-up)\r
-    (keymap-set markdown-mode-map "M-<down>" #'markdown-move-down)\r
-    (keymap-set markdown-mode-map "C-M-u" #'markdown-up-heading)\r
-    (keymap-set markdown-mode-map "C-M-b" #'markdown-outline-previous-same-level)\r
-    (keymap-set markdown-mode-map "C-M-f" #'markdown-outline-next-same-level)\r
-    (keymap-set markdown-mode-map "C-M-p" #'markdown-outline-previous)\r
-    (keymap-set markdown-mode-map "C-M-n" #'markdown-outline-next))\r
+  (keymap-set markdown-mode-map "M-<right>" #'markdown-demote)\r
+  (keymap-set markdown-mode-map "M-<left>" #'markdown-promote)\r
+  (keymap-set markdown-mode-map "M-<up>" #'markdown-move-up)\r
+  (keymap-set markdown-mode-map "M-<down>" #'markdown-move-down)\r
+  (keymap-set markdown-mode-map "C-M-u" #'markdown-up-heading)\r
+  (keymap-set markdown-mode-map "C-M-b" #'markdown-outline-previous-same-level)\r
+  (keymap-set markdown-mode-map "C-M-f" #'markdown-outline-next-same-level)\r
+  (keymap-set markdown-mode-map "C-M-p" #'markdown-outline-previous)\r
+  (keymap-set markdown-mode-map "C-M-n" #'markdown-outline-next))\r
 \f\r
 ;; Sly\r
 \r
@@ -170,22 +170,22 @@
 (add-hook 'scheme-mode-hook 'geiser-mode)\r
 \r
 (with-eval-after-load 'geiser-repl\r
-    (keymap-set geiser-repl-mode-map ")" (re/send-on-close-paren #'geiser-repl-maybe-send))\r
-    (keymap-set geiser-repl-mode-map "]" (re/balance-and-eval-sexp #'geiser-repl-maybe-send)))\r
+  (keymap-set geiser-repl-mode-map ")" (re/send-on-close-paren #'geiser-repl-maybe-send))\r
+  (keymap-set geiser-repl-mode-map "]" (re/balance-and-eval-sexp #'geiser-repl-maybe-send)))\r
 \r
 ;; Set bindings, things that have to happen after loading\r
 \r
 (with-eval-after-load 'org\r
-    (require 'org-mouse)\r
-    (add-to-list 'org-export-backends 'md)\r
-    (keymap-set org-mode-map "C-M-h" #'org-mark-subtree)\r
-    (keymap-set org-mode-map "C-M-u" #'org-up-element)\r
-    (keymap-set org-mode-map "C-M-d" #'org-down-element)\r
-    (keymap-set org-mode-map "C-M-b" #'org-backward-heading-same-level)\r
-    (keymap-set org-mode-map "C-M-f" #'org-forward-heading-same-level)\r
-    (keymap-set org-mode-map "C-M-p" #'org-previous-visible-heading)\r
-    (keymap-set org-mode-map "C-M-n" #'org-next-visible-heading)\r
-    (keymap-set org-mode-map "C-c t" #'org-transclusion-mode))\r
+  (require 'org-mouse)\r
+  (add-to-list 'org-export-backends 'md)\r
+  (keymap-set org-mode-map "C-M-h" #'org-mark-subtree)\r
+  (keymap-set org-mode-map "C-M-u" #'org-up-element)\r
+  (keymap-set org-mode-map "C-M-d" #'org-down-element)\r
+  (keymap-set org-mode-map "C-M-b" #'org-backward-heading-same-level)\r
+  (keymap-set org-mode-map "C-M-f" #'org-forward-heading-same-level)\r
+  (keymap-set org-mode-map "C-M-p" #'org-previous-visible-heading)\r
+  (keymap-set org-mode-map "C-M-n" #'org-next-visible-heading)\r
+  (keymap-set org-mode-map "C-c t" #'org-transclusion-mode))\r
 \r
 (keymap-global-set "C-c l" #'org-store-link)\r
 (keymap-global-set "C-c a" #'org-agenda)\r
@@ -218,23 +218,23 @@
 \r
 ;; Agenda settings\r
 \r
-  (setq org-agenda-files (append '("~/org/")\r
+(setq org-agenda-files (append '("~/org/")\r
                               (file-expand-wildcards "~/projects/*/"))\r
-       org-refile-targets '((nil :maxlevel . 9)\r
+      org-refile-targets '((nil :maxlevel . 9)\r
                           (org-agenda-files :maxlevel . 9))\r
-       org-todo-keywords '((sequence "TODO(t)" "WAITING(w@)" "|" "DONE(d)" "BELAYED(b@)" "GIVEN(g@)"))\r
-       org-todo-keyword-faces '(("WAITING" :foreground "#e85400" :weight bold)) ; alert orange\r
-       org-agenda-prefix-format '((agenda . "          %?-12t%? s")\r
+      org-todo-keywords '((sequence "TODO(t)" "WAITING(w@)" "|" "DONE(d)" "BELAYED(b@)" "GIVEN(g@)"))\r
+      org-todo-keyword-faces '(("WAITING" :foreground "#e85400" :weight bold)) ; alert orange\r
+      org-agenda-prefix-format '((agenda . "          %?-12t%? s")\r
                                 (todo . " ")\r
                                 (tags . " ")\r
                                 (search . " "))\r
-       org-agenda-start-on-weekday nil\r
-       org-read-date-prefer-future 'time\r
-       org-log-done 'time\r
-       org-log-redeadline 'time\r
-       org-log-reschedule 'time\r
-       org-log-state-notes-insert-after-drawers t\r
-       org-agenda-window-setup 'current-window)\r
+      org-agenda-start-on-weekday nil\r
+      org-read-date-prefer-future 'time\r
+      org-log-done 'time\r
+      org-log-redeadline 'time\r
+      org-log-reschedule 'time\r
+      org-log-state-notes-insert-after-drawers t\r
+      org-agenda-window-setup 'current-window)\r
 \r
 ;; Stuck Projects\r
 \r
@@ -242,26 +242,26 @@
 \r
 ;; Custom Agendas\r
 \r
-  (defvar *re/org-agenda-inbox*\r
-    '(tags "CATEGORY=\"inbox\"" ((org-agenda-overriding-header ""))))\r
+(defvar *re/org-agenda-inbox*\r
+  '(tags "CATEGORY=\"inbox\"" ((org-agenda-overriding-header ""))))\r
 \r
-  (defvar *re/org-agenda-todo*\r
-    '(tags-todo "-recurring/TODO" ((org-agenda-overriding-header ""))))\r
+(defvar *re/org-agenda-todo*\r
+  '(tags-todo "-recurring/TODO" ((org-agenda-overriding-header ""))))\r
 \r
-  (defvar *re/org-agenda-undertakings*\r
-    '(tags "CATEGORY=\"undertakings\"+LEVEL=1" ((org-agenda-overriding-header ""))))\r
+(defvar *re/org-agenda-undertakings*\r
+  '(tags "CATEGORY=\"undertakings\"+LEVEL=1" ((org-agenda-overriding-header ""))))\r
 \r
-  (defvar *re/org-agenda-waiting*\r
-    '(todo "WAITING" ((org-agenda-overriding-header ""))))\r
+(defvar *re/org-agenda-waiting*\r
+  '(todo "WAITING" ((org-agenda-overriding-header ""))))\r
 \r
 (defvar *re/org-agenda-done*\r
   '(tags "-recurring+LEVEL=1/DONE|BELAYED|GIVEN"))\r
 \r
-  (setq org-agenda-custom-commands `(("i" "Inbox" ,@*re/org-agenda-inbox*)\r
-                                          ("n" "Next Actions" ,@*re/org-agenda-todo*)\r
-                                          ("u" "Undertakings" ,@*re/org-agenda-undertakings*)\r
-                                          ("w" "Waiting" ,@*re/org-agenda-waiting*)\r
-                                          ("d" "Done" ,@*re/org-agenda-done*)))\r
+(setq org-agenda-custom-commands `(("i" "Inbox" ,@*re/org-agenda-inbox*)\r
+                                  ("n" "Next Actions" ,@*re/org-agenda-todo*)\r
+                                  ("u" "Undertakings" ,@*re/org-agenda-undertakings*)\r
+                                  ("w" "Waiting" ,@*re/org-agenda-waiting*)\r
+                                  ("d" "Done" ,@*re/org-agenda-done*)))\r
 \r
 ;; Capture Templates\r
 \r
@@ -329,9 +329,11 @@
 This command requires that pandoc (man page `pandoc(1)') be\r
 installed."\r
   (interactive "r")\r
-  (shell-command-on-region\r
-   start end\r
-   "pandoc -f markdown -t org --wrap=preserve" t t))\r
+  (shell-command-on-region start\r
+                          end\r
+                          "pandoc -f markdown -t org --wrap=preserve"\r
+                          t\r
+                          t))\r
 \r
 ;; Converting org to markdown\r
 \r
@@ -340,17 +342,19 @@ installed."
 This command requires that pandoc (man page `pandoc(1)') be\r
 installed."\r
   (interactive "r")\r
-  (shell-command-on-region\r
-   start end\r
-   "pandoc -f org -t markdown --wrap=preserve" t t))\r
+  (shell-command-on-region start\r
+                          end\r
+                          "pandoc -f org -t markdown --wrap=preserve"\r
+                          t\r
+                          t))\r
 \f\r
 ;; Trashed\r
 ;; Shows the trash file as a dired buffer\r
 \r
 (setq trashed-action-confirmer 'y-or-n-p\r
-       trashed-use-header-line t\r
-       trashed-sort-key '("Date deleted" . t)\r
-       trashed-date-format "%Y-%m-%d %H:%M:%S")\r
+      trashed-use-header-line t\r
+      trashed-sort-key '("Date deleted" . t)\r
+      trashed-date-format "%Y-%m-%d %H:%M:%S")\r
 \f\r
 ;; Use mu4e on my home pcs\r
 \r
@@ -485,7 +489,8 @@ installed."
              tab-width 8\r
              backward-delete-char-untabify-method nil)\r
 \r
-(advice-add 'indent-to :around\r
+(advice-add 'indent-to\r
+           :around\r
            (lambda (orig-fun column &rest args)\r
              (when indent-tabs-mode\r
                (setq column (* tab-width (round column tab-width))))\r
@@ -606,14 +611,13 @@ If in org-mode, call `org-beginning-of-line' first."
 \r
 (defun re/smart-end-of-line ()\r
   "Move point to the end of the visual line.\r
- If point was already at that position, call `move-end-of-line'.\r
+If point was already at that position, call `move-end-of-line'.\r
 If in org-mode, call `org-end-of-line' first."\r
   (interactive "^")\r
   (let ((oldpos (point)))\r
     (if (equal major-mode 'org-mode)\r
        (org-end-of-line)\r
-      (when visual-line-mode\r
-       (end-of-visual-line 1)))\r
+      (when visual-line-mode (end-of-visual-line 1)))\r
     (and (= oldpos (point)) (move-end-of-line nil))))\r
 \r
 (keymap-global-set "<remap> <move-end-of-line>" #'re/smart-end-of-line)\r