57 lines
2 KiB
EmacsLisp
57 lines
2 KiB
EmacsLisp
|
;;; -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
(defun efs/org-mode-setup ()
|
||
|
|
(org-indent-mode)
|
||
|
|
(variable-pitch-mode 1)
|
||
|
|
(visual-line-mode 1))
|
||
|
|
|
||
|
|
;; Org Mode Configuration ------------------------------------------------------
|
||
|
|
|
||
|
|
(defun efs/org-font-setup ()
|
||
|
|
;; Replace list hyphen with dot
|
||
|
|
(font-lock-add-keywords 'org-mode
|
||
|
|
'(("^ *\\([-]\\) "
|
||
|
|
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
|
||
|
|
|
||
|
|
;; Set faces for heading levels
|
||
|
|
(dolist (face '((org-level-1 . 1.2)
|
||
|
|
(org-level-2 . 1.1)
|
||
|
|
(org-level-3 . 1.05)
|
||
|
|
(org-level-4 . 1.0)
|
||
|
|
(org-level-5 . 1.1)
|
||
|
|
(org-level-6 . 1.1)
|
||
|
|
(org-level-7 . 1.1)
|
||
|
|
(org-level-8 . 1.1)))
|
||
|
|
(set-face-attribute (car face) nil :font "Cantarell" :weight 'regular :height (cdr face)))
|
||
|
|
|
||
|
|
;; Ensure that anything that should be fixed-pitch in Org files appears that way
|
||
|
|
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
|
||
|
|
(set-face-attribute 'org-code nil :inherit '(shadow fixed-pitch))
|
||
|
|
(set-face-attribute 'org-table nil :inherit '(shadow fixed-pitch))
|
||
|
|
(set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
|
||
|
|
(set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch))
|
||
|
|
(set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
|
||
|
|
(set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch))
|
||
|
|
|
||
|
|
(use-package org
|
||
|
|
:hook (org-mode . efs/org-mode-setup)
|
||
|
|
:config
|
||
|
|
(setq org-ellipsis " ▾")
|
||
|
|
(efs/org-font-setup))
|
||
|
|
|
||
|
|
(use-package org-bullets
|
||
|
|
:after org
|
||
|
|
:hook (org-mode . org-bullets-mode)
|
||
|
|
:custom
|
||
|
|
(org-bullets-bullet-list '("◉" "○" "●" "○" "●" "○" "●")))
|
||
|
|
|
||
|
|
(defun efs/org-mode-visual-fill ()
|
||
|
|
(setq visual-fill-column-width 100
|
||
|
|
visual-fill-column-center-text t)
|
||
|
|
(visual-fill-column-mode 1))
|
||
|
|
|
||
|
|
(use-package visual-fill-column
|
||
|
|
:hook (org-mode . efs/org-mode-visual-fill))
|
||
|
|
(provide 'jg-org)
|
||
|
|
|