diff options
| author | jao <jao@gnu.org> | 2021-05-23 00:33:29 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-05-23 00:33:29 +0100 |
| commit | 480933745f0a358c9bff9840b9527925dcf5fee6 (patch) | |
| tree | 09d862f0c84d47b52557a30f3b9d4e7088304fce /init.org | |
| parent | 4207f8b22026bedd2fbf319e800a72079045eb08 (diff) | |
| download | elibs-480933745f0a358c9bff9840b9527925dcf5fee6.tar.gz elibs-480933745f0a358c9bff9840b9527925dcf5fee6.tar.bz2 | |
refactorings
Diffstat (limited to 'init.org')
| -rw-r--r-- | init.org | 23 |
1 files changed, 10 insertions, 13 deletions
@@ -655,7 +655,10 @@ #+END_SRC *** Mode line format #+begin_src emacs-lisp - (setq line-number-display-limit-width 250) + (setq line-number-display-limit-width 250 + display-time-string-forms '(24-hours ":" minutes)) + (display-time-mode -1) + (setq mode-line-position-column-format '(" %c") mode-line-position-line-format '(" %l,%c")) (setq mode-line-percent-position @@ -663,15 +666,10 @@ (line-number-mode -1) (column-number-mode 1) (when (jao-colors-scheme-dark-p) - (setq jao-minibuffer-active-buffer-line-color "seashell4" - jao-minibuffer-inactive-buffer-line-color "grey30")) + (setq jao-minibuffer-active-buffer-line-color "grey35" + jao-minibuffer-inactive-buffer-line-color "grey20")) (jao-minibuffer-add-mode-line 90) #+end_src -*** Mode line time - #+begin_src emacs-lisp - (setq display-time-string-forms '(24-hours ":" minutes)) - (display-time-mode -1) - #+end_src *** Mode line toggle #+begin_src emacs-lisp (defun jao-toggle--face-height (face &optional all) @@ -747,9 +745,6 @@ :bind (("C-c C-SPC" . jao-tracking-next-buffer))) - (defun jao-shorten-modes (&rest modes) - (dolist (m modes) (add-to-list 'tracking-shorten-modes m))) - (defun jao-tracking-faces (&rest faces) (dolist (face faces) (add-to-list 'tracking-faces-priorities face))) @@ -758,6 +753,9 @@ #+begin_src emacs-lisp (require 'shorten) + (defun jao-shorten-modes (&rest modes) + (dolist (m modes) (add-to-list 'tracking-shorten-modes m))) + (defun jao-tracking--clean-slack (s) (let ((s (replace-regexp-in-string "^\\*Slack - .*? : \\(mpdm-\\)?\\([^ ]+\\)\\( \\(T\\)\\)?.*" @@ -2927,8 +2925,7 @@ (dolist (f (list slack-file-dir slack-image-file-directory)) (when (not (file-exists-p f)) (make-directory f))) - (jao-shorten-modes 'slack-message-buffer-mode - 'slack-thread-message-buffer-mode) + (jao-shorten-modes 'slack-message-buffer-mode) (jao-tracking-faces 'warning)) #+end_src *** telegram |