diff options
| author | Case Duckworth | 2022-04-12 13:18:41 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-12 13:18:41 -0500 |
| commit | 7d720a47933c6fe2773ef9f7ba6a337b7ae95992 (patch) | |
| tree | 3604df4f8dbe97ef4576139479173447b7b79400 | |
| parent | Change commenting form (diff) | |
| download | emacs-7d720a47933c6fe2773ef9f7ba6a337b7ae95992.tar.gz emacs-7d720a47933c6fe2773ef9f7ba6a337b7ae95992.zip | |
Configure org-mode
| -rw-r--r-- | init.el | 24 |
1 files changed, 17 insertions, 7 deletions
| diff --git a/init.el b/init.el index b5b4641..7ea94dc 100644 --- a/init.el +++ b/init.el | |||
| @@ -544,8 +544,7 @@ | |||
| 544 | (setq load-path (cl-remove-if (lambda (path) | 544 | (setq load-path (cl-remove-if (lambda (path) |
| 545 | (string-match-p "lisp/org\\'" path)) | 545 | (string-match-p "lisp/org\\'" path)) |
| 546 | load-path)) | 546 | load-path)) |
| 547 | (:also-load +org | 547 | (:also-load +org) |
| 548 | _work) | ||
| 549 | (:option org-adapt-indentation nil | 548 | (:option org-adapt-indentation nil |
| 550 | org-archive-mark-done t | 549 | org-archive-mark-done t |
| 551 | org-catch-invisible-edits 'show-and-error | 550 | org-catch-invisible-edits 'show-and-error |
| @@ -568,8 +567,11 @@ | |||
| 568 | org-image-actual-width (list (* (window-font-width) | 567 | org-image-actual-width (list (* (window-font-width) |
| 569 | (- fill-column 8))) | 568 | (- fill-column 8))) |
| 570 | org-imenu-depth 3 | 569 | org-imenu-depth 3 |
| 570 | org-indent-indentation-per-level 0 | ||
| 571 | org-indent-mode-turns-on-hiding-stars nil | ||
| 571 | org-list-demote-modify-bullet '(("-" . "+") | 572 | org-list-demote-modify-bullet '(("-" . "+") |
| 572 | ("+" . "-")) | 573 | ("+" . "*") |
| 574 | ("*" . "-")) | ||
| 573 | org-log-done 'time | 575 | org-log-done 'time |
| 574 | org-log-into-drawer t | 576 | org-log-into-drawer t |
| 575 | org-num-skip-commented t | 577 | org-num-skip-commented t |
| @@ -635,10 +637,18 @@ | |||
| 635 | ;; NOTE: these `progn' and `default's are necessary; otherwise Emacs | 637 | ;; NOTE: these `progn' and `default's are necessary; otherwise Emacs |
| 636 | ;; complains about "Invalid face reference: t" in org-mode buffers, because | 638 | ;; complains about "Invalid face reference: t" in org-mode buffers, because |
| 637 | ;; `compose-region' returns t. | 639 | ;; `compose-region' returns t. |
| 638 | ("^ *\\([-]\\) " | 640 | ("^[ \t]*\\([-]\\) " |
| 639 | (0 (progn (compose-region (match-beginning 1) (match-end 1) "›") 'default))) | 641 | (0 (progn (compose-region (match-beginning 1) (match-end 1) "–") 'fixed-pitch))) |
| 640 | ("^ *\\([+]\\) " | 642 | ("^[ \t]*\\([+]\\) " |
| 641 | (0 (progn (compose-region (match-beginning 1) (match-end 1) "»") 'default))))) | 643 | (0 (progn (compose-region (match-beginning 1) (match-end 1) "¬") 'fixed-pitch))) |
| 644 | ("^[ \t]+\\([*]\\) " | ||
| 645 | (0 (progn (compose-region (match-beginning 1) (match-end 1) "→") 'fixed-pitch))) | ||
| 646 | ;; Fancy numbered lists (well, monospaced) | ||
| 647 | ("^[ \t]*\\(\\(?:[0-9]+\\|[A-Za-z]\\)[.)]\\) " 0 'fixed-pitch t))) | ||
| 648 | ;; Make nobreak-space fixed-pitch as well, for better alignment (is this the | ||
| 649 | ;; best way to do this? probably not!) | ||
| 650 | (:face org-indent ((t (:inherit (fixed-pitch)))) | ||
| 651 | nobreak-space ((t (:inherit (fixed-pitch))))) | ||
| 642 | (with-eval-after-load 'form-feed | 652 | (with-eval-after-load 'form-feed |
| 643 | ;; Horizontal lines | 653 | ;; Horizontal lines |
| 644 | (font-lock-add-keywords | 654 | (font-lock-add-keywords |