From 2254c5c6c6962a0ba2640a244b32b185edb8f53f Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 16 Feb 2022 23:16:50 -0600 Subject: Change the dang ol' org font stuff --- init.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/init.el b/init.el index 38df4a1..c47d7ea 100644 --- a/init.el +++ b/init.el @@ -574,7 +574,13 @@ org-todo-keywords '((sequence "TODO(t)" "WAIT(w@/!)" "|" "DONE(d!)") (sequence "|" "CANCELED(k@)") - (sequence "MEETING(m)"))) + (sequence "MEETING(m)")) + org-emphasis-alist '(("*" org-bold) + ("/" org-italic) + ("_" org-underline) + ("=" org-verbatim) + ("~" org-code) + ("+" org-strikethrough))) (:bind "RET" #'+org-return-dwim "" #'+org-table-copy-down "C-c C-l" #'+org-insert-link-dwim @@ -583,6 +589,7 @@ "C-c C-o" #'+org-open-at-point-dwim "`" #'+org-insert-tilde "~" #'+org-insert-backtick) + (:hook #'variable-pitch-mode) (:local-hook user-save-hook #'+org-before-save@prettify-buffer) (advice-add #'org-delete-backward-char :override #'+org-delete-backward-char) ;; (define-advice org-open-at-point (:around (fn &rest r) open-external) @@ -601,10 +608,13 @@ (font-lock-add-keywords 'org-mode '(;; Fancy list bullets + ;; NOTE: these `progn' and `default's are necessary; otherwise Emacs + ;; complains about "Invalid face reference: t" in org-mode buffers, because + ;; `compose-region' returns t. ("^ *\\([-]\\) " - (0 (compose-region (match-beginning 1) (match-end 1) "•"))) + (0 (progn (compose-region (match-beginning 1) (match-end 1) "∙") 'default))) ("^ *\\([+]\\) " - (0 (compose-region (match-beginning 1) (match-end 1) "◦"))))) + (0 (progn (compose-region (match-beginning 1) (match-end 1) "◦") 'default))))) (with-eval-after-load 'form-feed ;; Horizontal lines (font-lock-add-keywords -- cgit 1.4.1-21-gabe81