diff options
author | Blendoit <blendoit@gmail.com> | 2020-11-08 20:38:35 -0800 |
---|---|---|
committer | Blendoit <blendoit@gmail.com> | 2020-11-08 20:38:35 -0800 |
commit | ec44b98d11c787d115983c068938819e5b1deda6 (patch) | |
tree | d6e6acf9d8c16893e8b328b41637bcf4a8f84519 | |
parent | 76428bc7eead883e57f7bd37ac2626871d347197 (diff) |
Propertized header line WIP :trollface:
-rw-r--r-- | custom.el | 1 | ||||
-rw-r--r-- | smart-documents.org | 30 |
2 files changed, 22 insertions, 9 deletions
@@ -38,6 +38,7 @@ '(send-mail-function 'smtpmail-send-it) '(smtpmail-smtp-server "smtp.gmail.com") '(smtpmail-smtp-service 587) + '(treemacs-width 24) '(vc-annotate-background "#2B2B2B") '(vc-annotate-color-map '((20 . "#BC8383") diff --git a/smart-documents.org b/smart-documents.org index 288eeda..217cee4 100644 --- a/smart-documents.org +++ b/smart-documents.org @@ -1279,20 +1279,32 @@ The keybinding for opening a recently visited file is described in paragraph # Top of the buffer is more intuitive for buffer info, bottom is more intuitive # for buffer action. -**** TODO Header line +**** TODO COMMENT Header line In Org mode, the document header line will be the title of the document we are working on currently. #+BEGIN_SRC emacs-lisp :tangle yes - (add-hook 'org-mode-hook - (lambda () - "Set the header line to show #+TITLE and section name." - (setq header-line-format - '(:eval - (list - " " - (org-property-value "TITLE")))))) + (setq-default header-line-format + (list + '(:eval + (list + (if (eq (length (window-list)) 1) + (propertize " ↤ " 'mouse-face 'highlight + 'face 'org-special-keyword + 'help-echo "Return to previous window.") + (list (propertize " ❌ " 'mouse-face 'org-todo + 'face 'org-special-keyword + 'help-echo "Close this window.") + (propertize " ⇱" 'mouse-face 'highlight + 'face 'org-special-keyword + 'help-echo "Maximize this window.") + (propertize "⇲ " 'mouse-face 'highlight + 'face 'org-special-keyword + 'help-echo "Minimize this window."))) + (if (string-equal major-mode "org-mode") + (org-property-value "TITLE") + (buffer-name)))))) #+END_SRC **** Mode line |