diff options
| author | Case Duckworth | 2022-04-28 15:49:42 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-28 15:49:42 -0500 |
| commit | c2834c351160b8f2c5e68b327b07758a5033137d (patch) | |
| tree | 945dc6aa6bbeff0f5b7ac56b29860da23aca8645 /init.el | |
| parent | Dim .gitignore files (mostly) in dired (diff) | |
| download | emacs-c2834c351160b8f2c5e68b327b07758a5033137d.tar.gz emacs-c2834c351160b8f2c5e68b327b07758a5033137d.zip | |
Make hiding tracking-mode-line when clocked in configurable
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 5 |
1 files changed, 4 insertions, 1 deletions
| diff --git a/init.el b/init.el index 2137179..cfa7f9c 100644 --- a/init.el +++ b/init.el | |||
| @@ -1214,7 +1214,8 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers." | |||
| 1214 | (:with-mode tracking-mode | 1214 | (:with-mode tracking-mode |
| 1215 | (:option tracking-position 'before-modes) | 1215 | (:option tracking-position 'before-modes) |
| 1216 | (:bind "C-c C-SPC" (lambda () (interactive) | 1216 | (:bind "C-c C-SPC" (lambda () (interactive) |
| 1217 | (if (and (fboundp 'org-clocking-p) | 1217 | (if (and +tracking-hide-when-org-clocking |
| 1218 | (fboundp 'org-clocking-p) | ||
| 1218 | (org-clocking-p)) | 1219 | (org-clocking-p)) |
| 1219 | (message "Bro, get back to work!") | 1220 | (message "Bro, get back to work!") |
| 1220 | (call-interactively #'tracking-next-buffer)))) | 1221 | (call-interactively #'tracking-next-buffer)))) |
| @@ -1819,6 +1820,8 @@ See also `crux-reopen-as-root-mode'." | |||
| 1819 | (let ((hook (intern (format "%s-hook" mode)))) | 1820 | (let ((hook (intern (format "%s-hook" mode)))) |
| 1820 | (add-hook hook #'visual-fill-column-mode))) | 1821 | (add-hook hook #'visual-fill-column-mode))) |
| 1821 | (add-hook 'jabber-activity-mode-hook #'tracking-mode) | 1822 | (add-hook 'jabber-activity-mode-hook #'tracking-mode) |
| 1823 | (with-eval-after-load 'tracking | ||
| 1824 | (add-to-list 'tracking-ignored-buffers "discuss@conference.soprani.ca")) | ||
| 1822 | (:with-mode jabber-chat-mode | 1825 | (:with-mode jabber-chat-mode |
| 1823 | (:local-set +modeline-position-function (lambda () | 1826 | (:local-set +modeline-position-function (lambda () |
| 1824 | (cond | 1827 | (cond |