[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
Propertized header line WIP :trollface:
Changed files
custom.el
@@ -38,6 +38,7 @@
38
38
'(send-mail-function 'smtpmail-send-it)
39
39
'(smtpmail-smtp-server "smtp.gmail.com")
40
40
'(smtpmail-smtp-service 587)
41
Added:
'(treemacs-width 24)
41
42
'(vc-annotate-background "#2B2B2B")
42
43
'(vc-annotate-color-map
43
44
'((20 . "#BC8383")
smart-documents.org
@@ -1279,20 +1279,32 @@
1279
1279
# Top of the buffer is more intuitive for buffer info, bottom is more intuitive
1280
1280
# for buffer action.
1281
1281
1282
Removed:
**** TODO Header line
1282
Added:
**** TODO COMMENT Header line
1283
1283
1284
1284
In Org mode, the document header line will be the title of the document we are
1285
1285
working on currently.
1286
1286
1287
1287
#+BEGIN_SRC emacs-lisp :tangle yes
1288
Removed:
(add-hook 'org-mode-hook
1289
Removed:
(lambda ()
1290
Removed:
"Set the header line to show #+TITLE and section name."
1291
Removed:
(setq header-line-format
1292
Removed:
'(:eval
1293
Removed:
(list
1294
Removed:
" "
1295
Removed:
(org-property-value "TITLE"))))))
1288
Added:
(setq-default header-line-format
1289
Added:
(list
1290
Added:
'(:eval
1291
Added:
(list
1292
Added:
(if (eq (length (window-list)) 1)
1293
Added:
(propertize " ↤ " 'mouse-face 'highlight
1294
Added:
'face 'org-special-keyword
1295
Added:
'help-echo "Return to previous window.")
1296
Added:
(list (propertize " ❌ " 'mouse-face 'org-todo
1297
Added:
'face 'org-special-keyword
1298
Added:
'help-echo "Close this window.")
1299
Added:
(propertize " ⇱" 'mouse-face 'highlight
1300
Added:
'face 'org-special-keyword
1301
Added:
'help-echo "Maximize this window.")
1302
Added:
(propertize "⇲ " 'mouse-face 'highlight
1303
Added:
'face 'org-special-keyword
1304
Added:
'help-echo "Minimize this window.")))
1305
Added:
(if (string-equal major-mode "org-mode")
1306
Added:
(org-property-value "TITLE")
1307
Added:
(buffer-name))))))
1296
1308
#+END_SRC
1297
1309
1298
1310
**** Mode line