whitespace

global.org

@@ -667,68 +667,70 @@
     #+END_SRC
     Custom agenda view
     #+BEGIN_SRC emacs-lisp
-    (defun org-agenda-prepare (&optional name)
+        (defun org-agenda-prepare (&optional name)
-  (let ((filter-alist (if org-agenda-persistent-filter
+      (let ((filter-alist (if org-agenda-persistent-filter
-			  (with-current-buffer
+                  (with-current-buffer
-			      (get-buffer-create org-agenda-buffer-name)
+                      (get-buffer-create org-agenda-buffer-name)
-			    (list `(tag . ,org-agenda-tag-filter)
+                    (list `(tag . ,org-agenda-tag-filter)
-				  `(re . ,org-agenda-regexp-filter)
+                      `(re . ,org-agenda-regexp-filter)
-				  `(effort . ,org-agenda-effort-filter)
+                      `(effort . ,org-agenda-effort-filter)
-				  `(cat . ,org-agenda-category-filter))))))
+                      `(cat . ,org-agenda-category-filter))))))
-    (if (org-agenda-use-sticky-p)
+        (if (org-agenda-use-sticky-p)
-	(progn
+        (progn
-	  (put 'org-agenda-tag-filter :preset-filter nil)
+          (put 'org-agenda-tag-filter :preset-filter nil)
-	  (put 'org-agenda-category-filter :preset-filter nil)
+          (put 'org-agenda-category-filter :preset-filter nil)
-	  (put 'org-agenda-regexp-filter :preset-filter nil)
+          (put 'org-agenda-regexp-filter :preset-filter nil)
-	  ;; Popup existing buffer
+          ;; Popup existing buffer
-	  (org-agenda-prepare-window (get-buffer org-agenda-buffer-name)
+          (org-agenda-prepare-window (get-buffer org-agenda-buffer-name)
-				     filter-alist)
+                         filter-alist)
-	  (message "Sticky Agenda buffer, use `r' to refresh")
+          (message "Sticky Agenda buffer, use `r' to refresh")
-	  (or org-agenda-multi (org-agenda-fit-window-to-buffer))
+          (or org-agenda-multi (org-agenda-fit-window-to-buffer))
-	  (throw 'exit "Sticky Agenda buffer, use `r' to refresh"))
+          (throw 'exit "Sticky Agenda buffer, use `r' to refresh"))
-      (setq org-todo-keywords-for-agenda nil)
+          (setq org-todo-keywords-for-agenda nil)
-      (put 'org-agenda-tag-filter :preset-filter
+          (put 'org-agenda-tag-filter :preset-filter
-	   org-agenda-tag-filter-preset)
+           org-agenda-tag-filter-preset)
-      (put 'org-agenda-category-filter :preset-filter
+          (put 'org-agenda-category-filter :preset-filter
-	   org-agenda-category-filter-preset)
+           org-agenda-category-filter-preset)
-      (put 'org-agenda-regexp-filter :preset-filter
+          (put 'org-agenda-regexp-filter :preset-filter
-	   org-agenda-regexp-filter-preset)
+           org-agenda-regexp-filter-preset)
-      (put 'org-agenda-effort-filter :preset-filter
+          (put 'org-agenda-effort-filter :preset-filter
-	   org-agenda-effort-filter-preset)
+           org-agenda-effort-filter-preset)
-      (if org-agenda-multi
+          (if org-agenda-multi
-	  (progn
+          (progn
-	    (setq buffer-read-only nil)
+            (setq buffer-read-only nil)
-	    (goto-char (point-max))
+            (goto-char (point-max))
-	    (unless (or (bobp) org-agenda-compact-blocks
+            (unless (or (bobp) org-agenda-compact-blocks
-			(not org-agenda-block-separator))
+                (not org-agenda-block-separator))
-	      (insert "\n"
+              (insert "\n"
-		      (if (stringp org-agenda-block-separator)
+                  (if (stringp org-agenda-block-separator)
-			  org-agenda-block-separator
+                  org-agenda-block-separator
-			(make-string (window-width) org-agenda-block-separator))
+                (make-string (window-width) org-agenda-block-separator))
-		      "\n\n"))
+                  "\n\n"))
-	    (narrow-to-region (point) (point-max)))
+            (narrow-to-region (point) (point-max)))
-	(setq org-done-keywords-for-agenda nil)
+        (setq org-done-keywords-for-agenda nil)
-	;; Setting any org variables that are in org-agenda-local-vars
+        ;; Setting any org variables that are in org-agenda-local-vars
-	;; list need to be done after the prepare call
+        ;; list need to be done after the prepare call
-	(org-agenda-prepare-window
+        (org-agenda-prepare-window
-	 (get-buffer-create org-agenda-buffer-name) filter-alist)
+         (get-buffer-create org-agenda-buffer-name) filter-alist)
-	(setq buffer-read-only nil)
+        (setq buffer-read-only nil)
-	(org-agenda-reset-markers)
+        (org-agenda-reset-markers)
-	(let ((inhibit-read-only t)) (erase-buffer))
+        (let ((inhibit-read-only t)) (erase-buffer))
-	(org-agenda-mode)
+        (org-agenda-mode)
-	(setq org-agenda-buffer (current-buffer))
+        (setq org-refile-targets '((org-agenda-files :level . 1)))
-	(setq org-agenda-contributing-files nil)
+        (setq org-refile-use-outline-path 'file)
-	(setq org-agenda-columns-active nil)
+        (setq org-agenda-buffer (current-buffer))
-	(org-agenda-prepare-buffers (org-agenda-files nil 'ifmode))
+        (setq org-agenda-contributing-files nil)
-	(setq org-todo-keywords-for-agenda
+        (setq org-agenda-columns-active nil)
-	      (org-uniquify org-todo-keywords-for-agenda))
+        (org-agenda-prepare-buffers (org-agenda-files nil 'ifmode))
-	(setq org-done-keywords-for-agenda
+        (setq org-todo-keywords-for-agenda
-	      (org-uniquify org-done-keywords-for-agenda))
+              (org-uniquify org-todo-keywords-for-agenda))
-	(setq org-agenda-last-prefix-arg current-prefix-arg)
+        (setq org-done-keywords-for-agenda
-	(setq org-agenda-this-buffer-name org-agenda-buffer-name)
+              (org-uniquify org-done-keywords-for-agenda))
-	(and name (not org-agenda-name)
+        (setq org-agenda-last-prefix-arg current-prefix-arg)
-	     (setq-local org-agenda-name name)))
+        (setq org-agenda-this-buffer-name org-agenda-buffer-name)
-      (setq buffer-read-only nil))))
+        (and name (not org-agenda-name)
+             (setq-local org-agenda-name name)))
+          (setq buffer-read-only nil))))
     #+END_SRC
 *** Reverting stuff from orgzly
     #+BEGIN_SRC emacs-lisp