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

Indentation :trollface:

Commit
c73762e77cdc5e07330589266379c367dd8bbf9a
Author
Blendoit <blendoit@gmail.com>
Author date
Committer
Blendoit <blendoit@gmail.com>
Committer date
smart-documents.org
index 123babfc..7778498e 100644..100644
@@ -1491,31 +1491,32 @@
1491 1491 Now, we describe the actual format of the header line.
1492 1492
1493 1493 #+BEGIN_SRC emacs-lisp :tangle yes
1494 Removed: (setq-default header-line-format
1495 Removed: '(:eval
1496 Removed: (list
1497 Removed: (if (eq (length (window-list)) 1)
1498 Removed: (propertize " ↤ "
1499 Removed: 'face 'org-special-keyword
1500 Removed: 'mouse-face 'highlight
1501 Removed: 'keymap sd-header-line-previous-buffer-keymap
1502 Removed: 'help-echo "Return to previous window.")
1503 Removed: (list (propertize " ❌ "
1504 Removed: 'face 'org-special-keyword
1505 Removed: 'mouse-face 'org-todo
1506 Removed: 'keymap sd-header-line-kill-buffer-keymap
1507 Removed: 'help-echo "Close this window.")
1508 Removed: (propertize " ⇱"
1509 Removed: 'face 'org-special-keyword
1510 Removed: 'mouse-face 'highlight
1511 Removed: 'keymap sd-header-line-maximize-window-keymap
1512 Removed: 'help-echo "Maximize this window.")
1513 Removed: (propertize "⇲ "
1514 Removed: 'face 'org-special-keyword
1515 Removed: 'mouse-face 'highlight
1516 Removed: 'keymap sd-header-line-minimize-window-keymap
1517 Removed: 'help-echo "Minimize this window.")))
1518 Removed: mode-line-buffer-identification)))
1494 Added: (setq-default
1495 Added: header-line-format
1496 Added: '(:eval
1497 Added: (list
1498 Added: (if (eq (length (window-list)) 1)
1499 Added: (propertize " ↤ "
1500 Added: 'face 'org-special-keyword
1501 Added: 'mouse-face 'highlight
1502 Added: 'keymap sd-header-line-previous-buffer-keymap
1503 Added: 'help-echo "Return to previous window.")
1504 Added: (list (propertize " ❌ "
1505 Added: 'face 'org-special-keyword
1506 Added: 'mouse-face 'org-todo
1507 Added: 'keymap sd-header-line-kill-buffer-keymap
1508 Added: 'help-echo "Close this window.")
1509 Added: (propertize " ⇱"
1510 Added: 'face 'org-special-keyword
1511 Added: 'mouse-face 'highlight
1512 Added: 'keymap sd-header-line-maximize-window-keymap
1513 Added: 'help-echo "Maximize this window.")
1514 Added: (propertize "⇲ "
1515 Added: 'face 'org-special-keyword
1516 Added: 'mouse-face 'highlight
1517 Added: 'keymap sd-header-line-minimize-window-keymap
1518 Added: 'help-echo "Minimize this window.")))
1519 Added: mode-line-buffer-identification)))
1519 1520
1520 1521 (image-animate sd-icon-loading 0 t)
1521 1522 #+END_SRC
@@ -1527,17 +1528,33 @@
1527 1528 various customizations online.
1528 1529
1529 1530 #+BEGIN_SRC emacs-lisp :tangle yes
1530 Removed: (setq-default mode-line-format
1531 Removed: (list
1532 Removed: mode-line-front-space
1533 Removed: '(:eval (if buffer-read-only
1534 Removed: (propertize "🔒" 'help-echo "C-x C-q: unlock buffer.")
1535 Removed: (propertize "🔓" 'help-echo "C-x C-q: lock buffer.")))
1536 Removed: '(:eval (if (buffer-modified-p)
1537 Removed: (propertize " 🖉 " 'help-echo "Buffer is modified.")
1538 Removed: (propertize " ✓ " 'help-echo "Buffer is saved.")))
1539 Removed: mode-line-modes " "
1540 Removed: mode-line-end-spaces))
1531 Added: (defvar sd-mode-line-lock-buffer-keymap
1532 Added: ;; Lock buffer.
1533 Added: (let ((map (make-sparse-keymap)))
1534 Added: (define-key map [mode-line mouse-1] 'read-only-mode)
1535 Added: map)
1536 Added: "Keymap for locking/unlocking the current buffer.")
1537 Added: #+END_SRC
1538 Added:
1539 Added: #+BEGIN_SRC emacs-lisp :tangle yes
1540 Added: (setq-default
1541 Added: mode-line-format
1542 Added: (list
1543 Added: mode-line-front-space
1544 Added: '(:eval (if buffer-read-only
1545 Added: (propertize "🔒"
1546 Added: 'keymap sd-mode-line-lock-buffer-keymap
1547 Added: 'help-echo "C-x C-q: unlock buffer.")
1548 Added: (propertize "🔓"
1549 Added: 'keymap sd-mode-line-lock-buffer-keymap
1550 Added: 'help-echo "C-x C-q: lock buffer.")))
1551 Added: '(:eval (if (buffer-modified-p)
1552 Added: (propertize " 🖉 "
1553 Added: 'help-echo "Buffer is modified.")
1554 Added: (propertize " ✓ "
1555 Added: 'help-echo "Buffer is saved.")))
1556 Added: mode-line-modes " "
1557 Added: mode-line-end-spaces))
1541 1558 #+END_SRC
1542 1559
1543 1560 ** Window