From 64f821a4cca704f2b43024c04dfa5b0e3ac10a59 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Tue, 21 Feb 2017 16:51:51 +0100
Subject: Add section "Modeline".

---
 init.org              | 32 ++++++++++++++++++++++++++++++--
 lisp/init-modeline.el | 19 -------------------
 2 files changed, 30 insertions(+), 21 deletions(-)
 delete mode 100644 lisp/init-modeline.el

diff --git a/init.org b/init.org
index 516c675..0d5e3a1 100644
--- a/init.org
+++ b/init.org
@@ -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)
-- 
cgit v1.2.3