|
|
|
|
@ -40,7 +40,7 @@ |
|
|
|
|
|
|
|
|
|
* Introduction |
|
|
|
|
** ~setq~ vs ~setq-default~ |
|
|
|
|
Some variables are buffer-local, others are not; for non buffer-local |
|
|
|
|
Some variables are local, others are not; for non buffer-local |
|
|
|
|
variables the two commands are equivalent; for the buffer-local variables, |
|
|
|
|
setq acts on the current buffer, whereas setq-default sets the default |
|
|
|
|
value of the variable for buffers that do not have a local value. |
|
|
|
|
@ -1009,7 +1009,7 @@ |
|
|
|
|
#+end_src |
|
|
|
|
** org-mode |
|
|
|
|
*** Require |
|
|
|
|
Require the ~org~ package; I also occasionally use org-pomodoro |
|
|
|
|
Require the ~org~ package; |
|
|
|
|
#+begin_src emacs-lisp |
|
|
|
|
(with-eval-after-load "org" |
|
|
|
|
(define-key org-src-mode-map (kbd "C-c C-c") 'org-edit-src-exit) |
|
|
|
|
@ -1128,7 +1128,7 @@ |
|
|
|
|
(setq org-use-speed-commands t) |
|
|
|
|
#+end_src |
|
|
|
|
Customize the agenda interface a bit |
|
|
|
|
- newline before habits |
|
|
|
|
- add a newline before habits |
|
|
|
|
#+begin_src emacs-lisp |
|
|
|
|
(defun wilder/insert-before-first (pred el list &optional base) |
|
|
|
|
"Returns a list in which EL is inserted before the first occurrence in LIST satisfying PRED" |
|
|
|
|
@ -1174,7 +1174,7 @@ |
|
|
|
|
(setq list (org-agenda-limit-entries list 'org-hd-marker max-entries))) |
|
|
|
|
(when (and org-agenda-dim-blocked-tasks org-blocker-hook) |
|
|
|
|
(setq list (mapcar #'org-agenda--mark-blocked-entry list))) |
|
|
|
|
|
|
|
|
|
; this bit adds a blank line before the first habit |
|
|
|
|
(setq list |
|
|
|
|
(wilder/insert-before-first #'(lambda (string) |
|
|
|
|
(get-text-property 0 'org-habit-p string)) |
|
|
|
|
@ -1468,7 +1468,7 @@ |
|
|
|
|
"\n\n")) |
|
|
|
|
(narrow-to-region (point) (point-max))) |
|
|
|
|
(setq org-done-keywords-for-agenda nil) |
|
|
|
|
;; Setting any org variables that are in org-agenda-local-vars |
|
|
|
|
;; Setting any variables that are in org-agenda-local-vars |
|
|
|
|
;; list need to be done after the prepare call |
|
|
|
|
(org-agenda-prepare-window |
|
|
|
|
(get-buffer-create org-agenda-buffer-name) filter-alist) |
|
|
|
|
|