diff options
| author | Case Duckworth | 2022-01-24 13:23:47 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-24 13:24:20 -0600 |
| commit | dbe223f794bf1607efc13accec662446e4c8075a (patch) | |
| tree | 0b65f2b0ee48e4afcb8ba566b9f73b6db21c233a | |
| parent | Ignore eshell/* but aliases (diff) | |
| download | emacs-dbe223f794bf1607efc13accec662446e4c8075a.tar.gz emacs-dbe223f794bf1607efc13accec662446e4c8075a.zip | |
Add font-lock for keywords TODO, FIXME, BUG
| -rw-r--r-- | init.el | 5 |
1 files changed, 5 insertions, 0 deletions
| diff --git a/init.el b/init.el index 4756312..c8df8bc 100644 --- a/init.el +++ b/init.el | |||
| @@ -44,6 +44,10 @@ | |||
| 44 | ;; "C-x 3" #'+split-window-right-then | 44 | ;; "C-x 3" #'+split-window-right-then |
| 45 | ;; "C-x C-3" #'+split-window-right-then | 45 | ;; "C-x C-3" #'+split-window-right-then |
| 46 | ) | 46 | ) |
| 47 | ;; Font-lock keywords | ||
| 48 | (font-lock-add-keywords | ||
| 49 | nil | ||
| 50 | '(("\\<\\(TODO\\|XXX\\|FIXME\\|BUG\\):" 1 font-lock-warning-face t))) | ||
| 47 | ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults | 51 | ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults |
| 48 | (global-set-key (kbd "C-h") 'delete-backward-char) | 52 | (global-set-key (kbd "C-h") 'delete-backward-char) |
| 49 | (keyboard-translate ?\C-h ?\C-?) | 53 | (keyboard-translate ?\C-h ?\C-?) |
| @@ -843,6 +847,7 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers." | |||
| 843 | "C-l" #'lui-track-jump-to-indicator | 847 | "C-l" #'lui-track-jump-to-indicator |
| 844 | "C-<return>" #'+circe-chat@set-prompt) | 848 | "C-<return>" #'+circe-chat@set-prompt) |
| 845 | 849 | ||
| 850 | ;; XXX: this doesn't quite work right. | ||
| 846 | (advice-add #'circe-command-PART :after #'+circe-kill-buffer) | 851 | (advice-add #'circe-command-PART :after #'+circe-kill-buffer) |
| 847 | (advice-add #'circe-command-QUIT :after #'+circe-quit@kill-buffer) | 852 | (advice-add #'circe-command-QUIT :after #'+circe-quit@kill-buffer) |
| 848 | (advice-add #'circe-command-GQUIT :after #'+circe-gquit@kill-buffer) | 853 | (advice-add #'circe-command-GQUIT :after #'+circe-gquit@kill-buffer) |