diff options
| -rw-r--r-- | init.org | 32 | ||||
| -rw-r--r-- | lisp/init-modeline.el | 19 |
2 files changed, 30 insertions, 21 deletions
@@ -960,6 +960,29 @@ All of this should be loaded lazily. ) #+END_SRC +* Modeline +:PROPERTIES: +:header-args: :noweb-ref modeline +:END: + +#+BEGIN_SRC elisp +;; clean up mode line +(require 'rich-minority) +(setq rm-whitelist '(" God" " Paredit")) + +;; show time in modeline but not load average +(setq display-time-format "%H:%M") +(setq display-time-default-load-average nil) +(display-time-mode 1) + +;; show column position of point in status bar +(column-number-mode 1) + +;; smart mode line +(setq sml/theme 'respectful) +(sml/setup) +#+END_SRC + * Lilypond :PROPERTIES: :header-args: :noweb-ref lilypond @@ -1518,7 +1541,12 @@ This is even more stuff to be done after initialising packages. I still need to (setq tab-width 4) (setq gnus-select-method '(nntp "news.gmane.org")) -(load "init-modeline.el") + +;; disable away timestamp in ERC +(setq erc-away-timestamp-format nil) +(setq erc-timestamp-format nil) +;; don’t switch to a newly created IRC buffer +(setq erc-join-buffer 'bury) ;; Revert stale document graphics buffers automatically when the files ;; have changed. @@ -1545,7 +1573,6 @@ This is even more stuff to be done after initialising packages. I still need to (require 'undo-tree) (global-undo-tree-mode 1) -(setq erc-join-buffer 'bury) (savehist-mode) ;; PDF view mode @@ -1704,6 +1731,7 @@ Having defined named code blocks in the sections above we can finally put them a (when (not (string= system-name (rot13 "ovzfo-flf02.zqp-oreyva.arg"))) <<lilypond>> ) +<<modeline>> <<old-init>> (global-set-key (kbd "C-x RET 1") (lambda () (interactive) (insert "¯\\_(ツ)_/¯"))) diff --git a/lisp/init-modeline.el b/lisp/init-modeline.el deleted file mode 100644 index 863f009..0000000 --- a/lisp/init-modeline.el +++ /dev/null @@ -1,19 +0,0 @@ -;; clean up mode line -(require 'rich-minority) -(setq rm-whitelist '(" God" " Paredit")) - -;; show time in modeline but not load average -(setq display-time-format "%H:%M") -(setq display-time-default-load-average nil) -(display-time-mode 1) - -;; show column position of point in status bar -(column-number-mode 1) - -;; smart mode line -(setq sml/theme 'respectful) -(sml/setup) - -;; disable away timestamp in ERC -(setq erc-away-timestamp-format nil) -(setq erc-timestamp-format nil) |