summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-05-23 00:33:29 +0100
committerjao <jao@gnu.org>2021-05-23 00:33:29 +0100
commit480933745f0a358c9bff9840b9527925dcf5fee6 (patch)
tree09d862f0c84d47b52557a30f3b9d4e7088304fce
parent4207f8b22026bedd2fbf319e800a72079045eb08 (diff)
downloadelibs-480933745f0a358c9bff9840b9527925dcf5fee6.tar.gz
elibs-480933745f0a358c9bff9840b9527925dcf5fee6.tar.bz2
refactorings
-rw-r--r--init.org23
1 files changed, 10 insertions, 13 deletions
diff --git a/init.org b/init.org
index dc9c30c..7a7a038 100644
--- a/init.org
+++ b/init.org
@@ -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