15 lines
503 B
EmacsLisp
15 lines
503 B
EmacsLisp
;; org-mode shit.
|
|
|
|
(defun my/org-mode-hook ()
|
|
"Stop the org-level headers from increasing in height relative to the other text."
|
|
(dolist (face '(org-level-1
|
|
org-level-2
|
|
org-level-3
|
|
org-level-4
|
|
org-level-5))
|
|
(set-face-attribute face nil :weight 'semi-bold :height 1.0)))
|
|
(add-hook 'org-mode-hook 'my/org-mode-hook)
|
|
|
|
;; makes a task show up m-f, but you can't cycle todos;
|
|
<%%(memq (calendar-day-of-week date) '(1 2 3 4 5))>
|