[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.

Reorganize header definition logic.

Commit
0939fec6f4360848c16e691973a139166815ff5e
Author
Blendoit <blendoit@gmail.com>
Author date
Committer
Blendoit <blendoit@gmail.com>
Committer date
smart-documents.org
index f7154486..7722df61 100644..100644
@@ -1320,30 +1320,58 @@
1320 1320 working on currently.
1321 1321
1322 1322 #+BEGIN_SRC emacs-lisp :tangle yes
1323 Removed: (setq-default header-line-format
1324 Removed: (list
1325 Removed: (propertize "..." 'display sd-icons-blue-ellipsis)
1326 Removed: '(:eval
1327 Removed: (list
1328 Removed: (if (eq (length (window-list)) 1)
1329 Removed: (propertize " ↤ " 'mouse-face 'highlight
1330 Removed: 'face 'org-special-keyword
1331 Removed: 'local-map 'previous-buffer
1332 Removed: 'help-echo "Return to previous window.")
1333 Removed: (list (propertize " ❌ " 'mouse-face 'org-todo
1334 Removed: 'face 'org-special-keyword
1335 Removed: 'help-echo "Close this window.")
1336 Removed: (propertize " ⇱" 'mouse-face 'highlight
1337 Removed: 'face 'org-special-keyword
1338 Removed: 'help-echo "Maximize this window.")
1339 Removed: (propertize "⇲ " 'mouse-face 'highlight
1340 Removed: 'face 'org-special-keyword
1341 Removed: 'help-echo "Minimize this window.")))
1342 Removed: (if (string-equal major-mode "org-mode")
1343 Removed: (org-property-value "TITLE")
1344 Removed: (buffer-name))))))
1345 Removed: ;; Ensure our icon is animated on start
1346 Removed: (image-animate sd-icons-blue-ellipsis 0 t)
1323 Added: (setq sd-header-gnu-linux
1324 Added: (list
1325 Added: (propertize "..." 'display sd-icons-blue-ellipsis)
1326 Added: '(:eval
1327 Added: (list
1328 Added: (if (eq (length (window-list)) 1)
1329 Added: (propertize " ↤ " 'mouse-face 'highlight
1330 Added: 'face 'org-special-keyword
1331 Added: 'local-map 'previous-buffer
1332 Added: 'help-echo "Return to previous window.")
1333 Added: (list (propertize " ❌ " 'mouse-face 'org-todo
1334 Added: 'face 'org-special-keyword
1335 Added: 'help-echo "Close this window.")
1336 Added: (propertize " ⇱" 'mouse-face 'highlight
1337 Added: 'face 'org-special-keyword
1338 Added: 'help-echo "Maximize this window.")
1339 Added: (propertize "⇲ " 'mouse-face 'highlight
1340 Added: 'face 'org-special-keyword
1341 Added: 'help-echo "Minimize this window.")))
1342 Added: (if (string-equal major-mode "org-mode")
1343 Added: (org-property-value "TITLE")
1344 Added: (buffer-name))))))
1345 Added:
1346 Added: (setq sd-header-windows-nt
1347 Added: (list
1348 Added: '(:eval
1349 Added: (list
1350 Added: (if (eq (length (window-list)) 1)
1351 Added: (propertize " ↤ " 'mouse-face 'highlight
1352 Added: 'face 'org-special-keyword
1353 Added: 'local-map 'previous-buffer
1354 Added: 'help-echo "Return to previous window.")
1355 Added: (list (propertize " ❌ " 'mouse-face 'org-todo
1356 Added: 'face 'org-special-keyword
1357 Added: 'help-echo "Close this window.")
1358 Added: (propertize " ⇱" 'mouse-face 'highlight
1359 Added: 'face 'org-special-keyword
1360 Added: 'help-echo "Maximize this window.")
1361 Added: (propertize "⇲ " 'mouse-face 'highlight
1362 Added: 'face 'org-special-keyword
1363 Added: 'help-echo "Minimize this window.")))
1364 Added: (if (string-equal major-mode "org-mode")
1365 Added: (org-property-value "TITLE")
1366 Added: (buffer-name))))))
1367 Added:
1368 Added: (cond ((string-equal system-type "windows-nt")
1369 Added: (setq header-line-format sd-header-windows-nt))
1370 Added: ((string-equal system-type "gnu'linux")
1371 Added: (setq header-line-format sd-header-gnu-linux)))
1372 Added:
1373 Added: ;; Ensure our icons are animated on start
1374 Added: (image-animate sd-icons-blue-ellipsis 0 t)
1347 1375 #+END_SRC
1348 1376
1349 1377 **** Mode line