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

Header and mode line, global-tab-line-mode,

Commit
a64eebaff27bfc41313a8d3149c24369c21de3d0
Author
Blendoit <blendoit@gmail.com>
Author date
Committer
Blendoit <blendoit@gmail.com>
Committer date
Changed files
custom.el
index 8e105f2d..93653bef 100644..100644
@@ -15,10 +15,11 @@
15 15 '(company-quickhelp-color-foreground "#DCDCCC")
16 16 '(custom-enabled-themes nil)
17 17 '(custom-safe-themes
18 Removed: '("6dd0e1980e88c5bc5c4c9ab1e8b16b13287a4fa5a2e11970c0d26dfbcf2d62f3" "e479b796a220addcd20678fbb95018e4945ca574ba9900b54d107ed1569c704c" "46d1602c1e28e6223fec2bcd008312bc57a08e5ccc8c2ac35c40e6a5d2a20244" "57c9cc95433eb236e74a3b501d3bebb2716e1988cf633c47384d33d8a83a7940" "1229a1fe390f71ddeec71efd61129af285d032364a1957f9954845a6c5f617a1" "42350b596ca9d6a283ce13efb9bbb7774064d917e04ea3220ebf32b95a677d60" "07b0edb4d75390504029f7905ca8add46af2c8bb13cec46efb0d880de014464c" "884b3999dfeff6d4f45859239a46b84399ab1b3602dd2ee6d11f3a3e39fe088d" "0c5c0078062fafd063a227b4cebb49b65434ea6e9557e3aaf8bc3212ba986512" "469032293efae7c0c86a95c39cab8b0ff8883cf4af3f2c292313cf6a71195b40" "8fb0949f4229860cf19034b924eb99c664327c9250fb92a2633bdf4b4abaf060" "c3a2a37e84e474c73c2b468553f9b5b73341419f72bbc1f4a4bcc1230ef86c85" "6495716176be0ced4142593b94a410135e0b373b686a869637824260d2f1ca11" "4467b1c8d7cc78fe98345c9c63eb62cf37844dc6868630add365494bde455715" "faeef63cb31f796b4bdf22f38e614934ab34d7deacaeb89b3e9cccf70aac5a85" "370fb305168fea1614535dc9ca30f496918eaca754b6c8969dd77fa872bec695" "e9f0c0c3397d07eb1c6c3551d67fd151e24bc6d72ec678841623ed572677c97a" "5c32236ef318adafe4102f627f330fa8f448046dfd838eef5cc09c7f682cf71f" "e343fecfb8d681186d594002c9b44ce48c2061599d7e4ec635cf1ca2a277a47a" "302dc61dc55600c7424f945dce9e74fba7df19f4a7bfb72aefd93193fa82ede4" "58f1f85248ba913387d1e7ed02a867161b315cfb5acff0c234e013ffd2577d22" "a256abf590bbc3257cc11d91a312e9fe8487dc1b95a5b7b732dd2f96a7fe5a45" "30368d6195cae9298304e6ac0534b90c85b1655965f1206c5c624270f0f46002" "311aa5df3223b5b4a7c638aad3befb4de9c7f46360d52acd1fa2cd2232b1dcbd" default))
18 Added: '("bac014130231bcb21409a5ba0368ae6a437d36cb3cd710a814c2b8399dacd0a3" "3db2664cf7a2f3ca8add66736e8b432ad7aed88159c74dc220ffdc0580d37ffa" "41d8c624783c3bf1624ac595936a6968fbd7297ffdc40a0c9b080fa750027df0" "abf6e5f8aa2af79ac329a7bfcac3111dab0025ce3eaea24e424fb9e3e77e1162" "6dd0e1980e88c5bc5c4c9ab1e8b16b13287a4fa5a2e11970c0d26dfbcf2d62f3" "e479b796a220addcd20678fbb95018e4945ca574ba9900b54d107ed1569c704c" "46d1602c1e28e6223fec2bcd008312bc57a08e5ccc8c2ac35c40e6a5d2a20244" "57c9cc95433eb236e74a3b501d3bebb2716e1988cf633c47384d33d8a83a7940" "1229a1fe390f71ddeec71efd61129af285d032364a1957f9954845a6c5f617a1" "42350b596ca9d6a283ce13efb9bbb7774064d917e04ea3220ebf32b95a677d60" "07b0edb4d75390504029f7905ca8add46af2c8bb13cec46efb0d880de014464c" "884b3999dfeff6d4f45859239a46b84399ab1b3602dd2ee6d11f3a3e39fe088d" "0c5c0078062fafd063a227b4cebb49b65434ea6e9557e3aaf8bc3212ba986512" "469032293efae7c0c86a95c39cab8b0ff8883cf4af3f2c292313cf6a71195b40" "8fb0949f4229860cf19034b924eb99c664327c9250fb92a2633bdf4b4abaf060" "c3a2a37e84e474c73c2b468553f9b5b73341419f72bbc1f4a4bcc1230ef86c85" "6495716176be0ced4142593b94a410135e0b373b686a869637824260d2f1ca11" "4467b1c8d7cc78fe98345c9c63eb62cf37844dc6868630add365494bde455715" "faeef63cb31f796b4bdf22f38e614934ab34d7deacaeb89b3e9cccf70aac5a85" "370fb305168fea1614535dc9ca30f496918eaca754b6c8969dd77fa872bec695" "e9f0c0c3397d07eb1c6c3551d67fd151e24bc6d72ec678841623ed572677c97a" "5c32236ef318adafe4102f627f330fa8f448046dfd838eef5cc09c7f682cf71f" "e343fecfb8d681186d594002c9b44ce48c2061599d7e4ec635cf1ca2a277a47a" "302dc61dc55600c7424f945dce9e74fba7df19f4a7bfb72aefd93193fa82ede4" "58f1f85248ba913387d1e7ed02a867161b315cfb5acff0c234e013ffd2577d22" "a256abf590bbc3257cc11d91a312e9fe8487dc1b95a5b7b732dd2f96a7fe5a45" "30368d6195cae9298304e6ac0534b90c85b1655965f1206c5c624270f0f46002" "311aa5df3223b5b4a7c638aad3befb4de9c7f46360d52acd1fa2cd2232b1dcbd" default))
19 19 '(electric-indent-mode nil)
20 20 '(fci-rule-color "#383838")
21 21 '(fringe-mode 0 nil (fringe))
22 Added: '(global-tab-line-mode t)
22 23 '(indicate-empty-lines t)
23 24 '(line-number-mode t)
24 25 '(message-required-headers '((optional . References) From))
smart-documents.org
index 7682532f..e393ffb3 100644..100644
@@ -617,8 +617,8 @@
617 617
618 618 We enable the dynamic numbering of headlines in an Org buffer.
619 619
620 Removed: #+BEGIN_SRC emacs-lisp :tangle no
621 Removed: ; (add-hook 'org-mode-hook 'org-num-mode)
620 Added: #+BEGIN_SRC emacs-lisp :tangle yes
621 Added: (add-hook 'org-mode-hook 'org-num-mode)
622 622 #+END_SRC
623 623
624 624 *** Languages executable in smart documents
@@ -1110,9 +1110,9 @@
1110 1110 First, we create a function to calculate available width between left and right
1111 1111 portions of the header and mode line.
1112 1112
1113 Removed: #+NAME: sd-mode-line-render
1113 Added: #+NAME: sd-line-render
1114 1114 #+BEGIN_SRC emacs-lisp :tangle yes
1115 Removed: (defun sd-mode-line-render (left right)
1115 Added: (defun sd-line-render (left right)
1116 1116 "Return a string of `window-width' length
1117 1117 containing LEFT, and RIGHT aligned respectively."
1118 1118 (let* ((available-width (- (window-width) (length left) 2)))
@@ -1124,12 +1124,13 @@
1124 1124 In Org mode, the document header line will be the title of the document we are
1125 1125 working on currently.
1126 1126
1127 Removed: #+BEGIN_SRC emacs-lisp :tangle no
1128 Removed: (add-hook org-mode-hook
1127 Added: #+BEGIN_SRC emacs-lisp :tangle yes
1128 Added: (add-hook 'org-mode-hook
1129 1129 (lambda ()
1130 Removed: "Set the header line to show #+TITLE and #+DATE."
1131 Removed: (setq header-line-format
1132 Removed: (concat (save-excursion
1130 Added: "Set the header line to show #+TITLE and #+DATE."
1131 Added: (setq header-line-format
1132 Added: '(:eval (sd-line-render
1133 Added: (save-excursion
1133 1134 (goto-char (point-min))
1134 1135 (when (re-search-forward
1135 1136 "^[[:space:]]*#\\+TITLE:[[:space:]]*\\(.*?\\)[[:space:]]*$"
@@ -1140,7 +1141,7 @@
1140 1141 (when (re-search-forward
1141 1142 "^[[:space:]]*#\\+DATE:[[:space:]]*\\(.*?\\)[[:space:]]*$"
1142 1143 nil t)
1143 Removed: (match-string 1)))))))
1144 Added: (match-string 1))))))))
1144 1145 #+END_SRC
1145 1146
1146 1147 **** Mode line
@@ -1150,7 +1151,7 @@
1150 1151 #+NAME: mode-line-format
1151 1152 #+BEGIN_SRC emacs-lisp :tangle yes
1152 1153 (setq-default mode-line-format
1153 Removed: '((:eval (sd-mode-line-render
1154 Added: '((:eval (sd-line-render
1154 1155 ;; left
1155 1156 (format-mode-line "[%*] %b")
1156 1157 ;; right
@@ -1158,6 +1159,13 @@
1158 1159 #+END_SRC
1159 1160
1160 1161 ** Window
1162 Added:
1163 Added: *** Tab line
1164 Added:
1165 Added: #+BEGIN_SRC emacs-lisp :tangle yes
1166 Added: (global-tab-line-mode)
1167 Added: #+END_SRC
1168 Added:
1161 1169
1162 1170 ** Buffer
1163 1171
themes/blendoit-light-theme.el
index 6d19a221..6da5113f 100644..100644
@@ -29,9 +29,9 @@
29 29 '(font-lock-variable-name-face ((t (:foreground "sienna"))))
30 30 '(font-lock-warning-face ((t (:inherit (error)))))
31 31 '(fringe ((t (:background "grey95"))))
32 Removed: '(header-line ((t (:box nil :inherit mode-line :background "grey90" :foreground "grey20"))))
32 Added: '(header-line ((t (:box nil :inherit mode-line :background "steel blue" :foreground "white"))))
33 33 '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch)))))
34 Removed: '(mode-line ((t (:family "Hack" :background "steel blue" :foreground "white" :box (:line-width -1 :style released-button)))))
34 Added: '(mode-line ((t (:box (:line-width -1 :style released-button) :foreground "white" :background "steel blue" :height 1.2 :family "Hack"))))
35 35 '(mode-line-buffer-id ((t (:weight bold))))
36 36 '(mode-line-emphasis ((t (:weight bold))))
37 37 '(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button)))))
@@ -79,11 +79,13 @@
79 79 '(org-date ((t (:foreground "steel blue" :family "Hermit"))))
80 80 '(Info-quoted ((t (:inherit org-block))))
81 81 '(org-priority ((t (:weight bold :inherit org-meta-line))))
82 Removed: '(powerline-active1 ((t (:inherit mode-line :background "grey17" :foreground "white" :family "Hack"))))
83 Removed: '(powerline-active2 ((t (:inherit (mode-line) :foreground "white" :background "grey40"))))
84 Removed: '(powerline-inactive1 ((t (:inherit mode-line-inactive :background "grey11" :family "Hack"))))
85 Removed: '(powerline-inactive2 ((t (:inherit (mode-line-inactive) :background "grey20"))))
86 82 '(org-drawer ((t (:inherit org-meta-line))))
83 Added: '(tab-line ((t (:background "gainsboro" :family "Hack"))))
84 Added: '(tab-line-tab ((default (:inherit (tab-line))) (((class color) (min-colors 88)) (:box (:line-width 1 :color nil :style released-button))) (t (:inverse-video nil))))
85 Added: '(tab-line-tab-inactive ((t (:inherit tab-line-tab :background "white" :foreground "steel blue"))))
86 Added: '(tab-line-tab-current ((t (:inherit tab-line-tab :background "grey85" :foreground "red"))))
87 Added: '(tab-line-close-highlight ((t (:foreground "red"))))
88 Added: '(tab-line-highlight ((default (:inherit (tab-line-tab)))))
87 89 '(default ((t (:background "white" :foreground "black" :height 140 :family "Hack")))))
88 90
89 91 (provide-theme 'blendoit-light)