chd/applicationConfiguration/.emacs/usefulScripts.el

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))>