[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
Org mode header line.
smart-documents.org
@@ -1087,13 +1087,20 @@
1087
1087
1088
1088
**** Header line
1089
1089
1090
Removed:
#+BEGIN_SRC emacs-lisp
1091
Removed:
(setq header-line-format "%b")
1090
Added:
#+BEGIN_SRC emacs-lisp :tangle yes
1091
Added:
(add-hook org-mode-hook
1092
Added:
'(lambda ()
1093
Added:
"Set the header line to show org document title."
1094
Added:
(setq header-line-format
1095
Added:
(save-excursion
1096
Added:
(goto-char (point-min))
1097
Added:
(when (re-search-forward "^[[:space:]]*#\\+TITLE:[[:space:]]*\\(.*?\\)[[:space:]]*$" nil t)
1098
Added:
(match-string 1))))
1092
1099
#+END_SRC
1093
1100
1094
1101
**** Mode line
1095
1102
1096
Removed:
#+BEGIN_SRC emacs-lisp
1103
Added:
#+BEGIN_SRC emacs-lisp :tangle yes
1097
1104
(setq mode-line-format nil)
1098
1105
#+END_SRC
1099
1106