about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el16
1 files 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 @@
574 org-todo-keywords '((sequence "TODO(t)" "WAIT(w@/!)" 574 org-todo-keywords '((sequence "TODO(t)" "WAIT(w@/!)"
575 "|" "DONE(d!)") 575 "|" "DONE(d!)")
576 (sequence "|" "CANCELED(k@)") 576 (sequence "|" "CANCELED(k@)")
577 (sequence "MEETING(m)"))) 577 (sequence "MEETING(m)"))
578 org-emphasis-alist '(("*" org-bold)
579 ("/" org-italic)
580 ("_" org-underline)
581 ("=" org-verbatim)
582 ("~" org-code)
583 ("+" org-strikethrough)))
578 (:bind "RET" #'+org-return-dwim 584 (:bind "RET" #'+org-return-dwim
579 "<S-return>" #'+org-table-copy-down 585 "<S-return>" #'+org-table-copy-down
580 "C-c C-l" #'+org-insert-link-dwim 586 "C-c C-l" #'+org-insert-link-dwim
@@ -583,6 +589,7 @@
583 "C-c C-o" #'+org-open-at-point-dwim 589 "C-c C-o" #'+org-open-at-point-dwim
584 "`" #'+org-insert-tilde 590 "`" #'+org-insert-tilde
585 "~" #'+org-insert-backtick) 591 "~" #'+org-insert-backtick)
592 (:hook #'variable-pitch-mode)
586 (:local-hook user-save-hook #'+org-before-save@prettify-buffer) 593 (:local-hook user-save-hook #'+org-before-save@prettify-buffer)
587 (advice-add #'org-delete-backward-char :override #'+org-delete-backward-char) 594 (advice-add #'org-delete-backward-char :override #'+org-delete-backward-char)
588 ;; (define-advice org-open-at-point (:around (fn &rest r) open-external) 595 ;; (define-advice org-open-at-point (:around (fn &rest r) open-external)
@@ -601,10 +608,13 @@
601 (font-lock-add-keywords 608 (font-lock-add-keywords
602 'org-mode 609 'org-mode
603 '(;; Fancy list bullets 610 '(;; Fancy list bullets
611 ;; NOTE: these `progn' and `default's are necessary; otherwise Emacs
612 ;; complains about "Invalid face reference: t" in org-mode buffers, because
613 ;; `compose-region' returns t.
604 ("^ *\\([-]\\) " 614 ("^ *\\([-]\\) "
605 (0 (compose-region (match-beginning 1) (match-end 1) "•"))) 615 (0 (progn (compose-region (match-beginning 1) (match-end 1) "∙") 'default)))
606 ("^ *\\([+]\\) " 616 ("^ *\\([+]\\) "
607 (0 (compose-region (match-beginning 1) (match-end 1) "â—¦"))))) 617 (0 (progn (compose-region (match-beginning 1) (match-end 1) "â—¦") 'default)))))
608 (with-eval-after-load 'form-feed 618 (with-eval-after-load 'form-feed
609 ;; Horizontal lines 619 ;; Horizontal lines
610 (font-lock-add-keywords 620 (font-lock-add-keywords