From ec44b98d11c787d115983c068938819e5b1deda6 Mon Sep 17 00:00:00 2001 From: Blendoit Date: Sun, 8 Nov 2020 20:38:35 -0800 Subject: Propertized header line WIP :trollface: --- custom.el | 1 + smart-documents.org | 30 +++++++++++++++++++++--------- 2 files changed, 22 insertions(+), 9 deletions(-) diff --git a/custom.el b/custom.el index 84de01e..5246a44 100644 --- a/custom.el +++ b/custom.el @@ -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 -- cgit v1.2.3