Org links and mode line.

5 files changed, 90 insertions, 69 deletions

diff --git a/custom.el b/custom.el
index 1b53fa9..ef9e394 100644
--- a/custom.el
+++ b/custom.el
@@ -15,7 +15,7 @@
  '(company-quickhelp-color-foreground "#DCDCCC")
  '(custom-enabled-themes nil)
  '(custom-safe-themes
-   '("64e58ce36d361c8c0ba0fdaabd491f6d54828a1c4003bf5c7b85d1fa5e0a191f" "2c485aebc587aceca2cea4958381bdba92b9e974edb8ce8fbcde69399d9c45b0" "b0c4d8a7f261d7897373ec3b39fce87eaeeff278438ddbae5776fa9df4e550d1" "e85674d358ab59d5e14ba769bca4a58f267838a24f1285f53eab231d00671d1d" "2d32d272e79fd9b06855a26eedfbe8a1ff2c58a68219aa3fda6afb1c5094e6a4" "eb904e8bfc363aa8a342604329edd62f2b2effbb345941aa68448b50c26e3083" "57e8e75716473cb3234b52ef469c35ade301e4c928d53a21236b6c0a2bfda044" "2dd3f3f6397fb640c4ce13dfd9843a67ce32f329458f7d3e728d301bf7538c96" "a90216962b4117ecf26f1de9c87c995b2e0534a5a18565137f0bc0c38a454de4" "b60f26dbf84b1c93449cb65d6b61fbbc275d193739da66de1be1d0ba52996f1e" "d83c2da10ecbcc3d88f7f175741f5ba4ded9501bd87af69d3728cf8b02d98b17" "f272e2a066f881384f30cddc0be4067b36250fbfaf4a35a768327373e5b4a6f9" "bcfd4a063a9d86ad2a20c4ba8666738a332b1ffda8c6bb9c1ef951d27836dfa2" "a385bb05d1cbdfa62d01afbd7b67a6354c4f6d2ff5190ae4061d720bb5584524" "797fc9c1f596603b8559566dffcdd32b265b95f66db11c80cf819c9e764ccf1a" "95d9ebc003d2b41dce57c8a041d2fa5cc491ea239cbb8f14b04f77b86c971a50" "438eb17cf6540064f18b637e72d1d78f2df20dbbcc67ad67d2c6223eae23ff22" "778e41ae5e76bd91f457ce36244e6216a3f69b1cad236b0181eece15126f33cb" "e0577b022b2c27c558e1bb0cf1f56be92447b6d090865fd5e61be7f2245ac3b0" "ec6717222f527932ca0c00f54a77f6b1f0e9f81907bbb5bf338903608b1300a5" "2f35de225ab5e3ac7deea3f04b651ba579bdd6fa868502d0697938aa861909df" "98a8aeac4cd2648def2bb6fad797386c4bb05b2ee7cbe3a159b70fd68c51b2bf" "8404572e02baf9edb07cd902bf4ffb106e6996d2bc2f6a32e8058246f0d58850" "bfd4c07f80d3728cef2788018f4b045c17036b186e80055a01411ab4d69bb63e" "3edf9758c11e033496ff39fc699c4695d8a8e82f4d90af1be9b75de2d5106f02" "e5bdcd5a2822d56add3cb9928bd3a092ddb678c6588bf9dc3f34acd6bf24d781" "eacdea86fda91bba189912a6264450ecff73a95350a6e568324a673d9e8b0f16" "caaf410113356a930620a9e945994694c7834927669cb96083e7d94de8807f08" "3bfaf89f737e52e2500ed632428ce5d6e2dc399edef16d5dcd0c2c9606ed97d1" "187dedddb0f12642ef312de2a4ffadf6397747f0743bad6f6872f068129f0613" "b28fe360b938be2211f3525fa95f0ecfbb2759031ae66d2241207e86de83e951" "55e87047e7428fbd710f29f71a495a1bb3ea73f1b9b4c10def334838e3705c7b" "25e7750ab75809e94756b7039f83c65478a1ef895220dedda6b3f327df9fca65" "9760950e1c151f97b8ed0321c8577f216e1e6c09454c940e5d0f53255586c6f4" "0f350253da94e9a06abfdd48fe892f4e42da3b3d543bb1da62b5f415e29546cc" "6e69643e2c21e28b2e9d169fad1d4b149e191b836faf26541c3a7af8da920728" "3fa3799babafb468bbb17c6946bd5c831dbf32b3ac9b22d92f27188c1aee6057" "93b390eae98d60e363af65188220cc0b7fd8813ffca85915708a14661d3f79a7" "9397d802c0ce3108b13d2f23b579296ae63919f32a6436b8f2ec6d0d1b7853c1" "7999805b40f3dc59bda5822ae5f773e9ab6b9fe69931efc9265c083490c60dfc" "28aaafce20205c00c1c5afcd59d9553a621570f74d7ea4214d073a488bf4619c" "ee2934f60c0193ed7ac95a213ae90dba1504b9fc8bb20f54f4876d073f710844" "79ddf9c24ff10afdeeb2778f56c900f329e5b405d234d783cea67730f4a20c17" "dd6543577ed3e750b830635a7c2071343c8cd4b624f00b7e3470c9233fdc2252" "e5511d44e3a5c6a5039999cab6bd2696fddfe1e7f6500f2846b0c0a6b8c4f9e7" "8bc595fa3d4cde8770ec075aa939bff9ba28f3e70fe34292a43e22690bc63c76" "ab538dce25085abac8ab09b184e9cef8273082a1b2a792f1bf1bf08ecc30056a" "0326fd263f840b21da906e36c54976e211cfcc252800e6ee7dad4a7eb5a3e819" "77dfce3ef0bdf852a7a1b3527aa384c3c895eec7792a68c2d694b7341364da26" "1692d3b1f4bf5c6c55dd090d6a10c613c0b213510892ae305c1f2518cb1a3ab3" "7ddce903be67800840ef2660310123e2ee11c8ec716ac54333d961307389ccde" "95ea953c58a6510531acf2231d9bddad92015214dce68e8ffe216b51237a3a5f" "47ff07593ae6fc4069b49ee32b0f7422239ad3b6619dc37358b9e76c4b014e81" "8a7a94e776727c6ff6ac14ae88826281eea80c687ffee71a8b188e415b737525" "566f33a94ac1f29db041d55a22fb677b1f9abd02a3ea529ac2b67b93624247ac" "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))
+   '("19b606dd808fff515e2b27a4617fc89bdbce5dc1783c6b1a2c23fca5b8459b68" "d2a094e39049c4456a7125fbd74ce03da7339c687f1b7d438d9c26ff3744f96e" "5d82c3714691512ced28284edef65f753b22036495960ac42e527a6d646c375b" "fc5b0c453ae5f9269923dc288ea2ea908246f3b1879dcf62eb43f37113e188e9" "be516cd0621f296f03d842450e8a2203ca3d6d8ad35df8c72d3541f7e7e363f4" "2a0da76cc52131ec545d7b737cea401aa90a96cae5d93f5eeeb33afd7a9db078" "64e58ce36d361c8c0ba0fdaabd491f6d54828a1c4003bf5c7b85d1fa5e0a191f" "2c485aebc587aceca2cea4958381bdba92b9e974edb8ce8fbcde69399d9c45b0" "b0c4d8a7f261d7897373ec3b39fce87eaeeff278438ddbae5776fa9df4e550d1" "e85674d358ab59d5e14ba769bca4a58f267838a24f1285f53eab231d00671d1d" "2d32d272e79fd9b06855a26eedfbe8a1ff2c58a68219aa3fda6afb1c5094e6a4" "eb904e8bfc363aa8a342604329edd62f2b2effbb345941aa68448b50c26e3083" "57e8e75716473cb3234b52ef469c35ade301e4c928d53a21236b6c0a2bfda044" "2dd3f3f6397fb640c4ce13dfd9843a67ce32f329458f7d3e728d301bf7538c96" "a90216962b4117ecf26f1de9c87c995b2e0534a5a18565137f0bc0c38a454de4" "b60f26dbf84b1c93449cb65d6b61fbbc275d193739da66de1be1d0ba52996f1e" "d83c2da10ecbcc3d88f7f175741f5ba4ded9501bd87af69d3728cf8b02d98b17" "f272e2a066f881384f30cddc0be4067b36250fbfaf4a35a768327373e5b4a6f9" "bcfd4a063a9d86ad2a20c4ba8666738a332b1ffda8c6bb9c1ef951d27836dfa2" "a385bb05d1cbdfa62d01afbd7b67a6354c4f6d2ff5190ae4061d720bb5584524" "797fc9c1f596603b8559566dffcdd32b265b95f66db11c80cf819c9e764ccf1a" "95d9ebc003d2b41dce57c8a041d2fa5cc491ea239cbb8f14b04f77b86c971a50" "438eb17cf6540064f18b637e72d1d78f2df20dbbcc67ad67d2c6223eae23ff22" "778e41ae5e76bd91f457ce36244e6216a3f69b1cad236b0181eece15126f33cb" "e0577b022b2c27c558e1bb0cf1f56be92447b6d090865fd5e61be7f2245ac3b0" "ec6717222f527932ca0c00f54a77f6b1f0e9f81907bbb5bf338903608b1300a5" "2f35de225ab5e3ac7deea3f04b651ba579bdd6fa868502d0697938aa861909df" "98a8aeac4cd2648def2bb6fad797386c4bb05b2ee7cbe3a159b70fd68c51b2bf" "8404572e02baf9edb07cd902bf4ffb106e6996d2bc2f6a32e8058246f0d58850" "bfd4c07f80d3728cef2788018f4b045c17036b186e80055a01411ab4d69bb63e" "3edf9758c11e033496ff39fc699c4695d8a8e82f4d90af1be9b75de2d5106f02" "e5bdcd5a2822d56add3cb9928bd3a092ddb678c6588bf9dc3f34acd6bf24d781" "eacdea86fda91bba189912a6264450ecff73a95350a6e568324a673d9e8b0f16" "caaf410113356a930620a9e945994694c7834927669cb96083e7d94de8807f08" "3bfaf89f737e52e2500ed632428ce5d6e2dc399edef16d5dcd0c2c9606ed97d1" "187dedddb0f12642ef312de2a4ffadf6397747f0743bad6f6872f068129f0613" "b28fe360b938be2211f3525fa95f0ecfbb2759031ae66d2241207e86de83e951" "55e87047e7428fbd710f29f71a495a1bb3ea73f1b9b4c10def334838e3705c7b" "25e7750ab75809e94756b7039f83c65478a1ef895220dedda6b3f327df9fca65" "9760950e1c151f97b8ed0321c8577f216e1e6c09454c940e5d0f53255586c6f4" "0f350253da94e9a06abfdd48fe892f4e42da3b3d543bb1da62b5f415e29546cc" "6e69643e2c21e28b2e9d169fad1d4b149e191b836faf26541c3a7af8da920728" "3fa3799babafb468bbb17c6946bd5c831dbf32b3ac9b22d92f27188c1aee6057" "93b390eae98d60e363af65188220cc0b7fd8813ffca85915708a14661d3f79a7" "9397d802c0ce3108b13d2f23b579296ae63919f32a6436b8f2ec6d0d1b7853c1" "7999805b40f3dc59bda5822ae5f773e9ab6b9fe69931efc9265c083490c60dfc" "28aaafce20205c00c1c5afcd59d9553a621570f74d7ea4214d073a488bf4619c" "ee2934f60c0193ed7ac95a213ae90dba1504b9fc8bb20f54f4876d073f710844" "79ddf9c24ff10afdeeb2778f56c900f329e5b405d234d783cea67730f4a20c17" "dd6543577ed3e750b830635a7c2071343c8cd4b624f00b7e3470c9233fdc2252" "e5511d44e3a5c6a5039999cab6bd2696fddfe1e7f6500f2846b0c0a6b8c4f9e7" "8bc595fa3d4cde8770ec075aa939bff9ba28f3e70fe34292a43e22690bc63c76" "ab538dce25085abac8ab09b184e9cef8273082a1b2a792f1bf1bf08ecc30056a" "0326fd263f840b21da906e36c54976e211cfcc252800e6ee7dad4a7eb5a3e819" "77dfce3ef0bdf852a7a1b3527aa384c3c895eec7792a68c2d694b7341364da26" "1692d3b1f4bf5c6c55dd090d6a10c613c0b213510892ae305c1f2518cb1a3ab3" "7ddce903be67800840ef2660310123e2ee11c8ec716ac54333d961307389ccde" "95ea953c58a6510531acf2231d9bddad92015214dce68e8ffe216b51237a3a5f" "47ff07593ae6fc4069b49ee32b0f7422239ad3b6619dc37358b9e76c4b014e81" "8a7a94e776727c6ff6ac14ae88826281eea80c687ffee71a8b188e415b737525" "566f33a94ac1f29db041d55a22fb677b1f9abd02a3ea529ac2b67b93624247ac" "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))
  '(electric-indent-mode t)
  '(fci-rule-color "#383838")
  '(fringe-mode 0 nil (fringe))
diff --git a/smart-documents.org b/smart-documents.org
index 972cc5d..baced32 100644
--- a/smart-documents.org
+++ b/smart-documents.org
@@ -923,6 +923,8 @@ header:
 
 ** Basic customization
 
+*** Base folder
+
 Org base directory is in user home on GNU/Linux, or in =AppData= in MS Windows.
 
 #+NAME: org-directory
@@ -930,7 +932,13 @@ Org base directory is in user home on GNU/Linux, or in =AppData= in MS Windows.
     (setq org-directory (concat user-emacs-directory "~/org"))
 #+END_SRC
 
-** TODO Org cosmetics
+*** Prevent/warn on invisible edits
+
+#+BEGIN_SRC emacs-lisp :tangle yes
+(setq org-catch-invisible-edits t)
+#+END_SRC
+
+** Org cosmetics
 
 First, we ensure the display of markup symbols for *bold*, /italic/,
 _underlined_ and +strikethrough+ text, and ensure our document appears indented
@@ -1001,30 +1009,36 @@ properties]]).
 			 '(emacs-lisp-checkdoc))))
 #+END_SRC
 
-** Languages executable in Smart Documents
+*** Timestamps
 
-The following languages can be written inside =SRC= blocks, in view of being
-executed by the Org Babel backend.
+More literary timestamps are exported to LaTeX using the following custom
+format:
 
 #+BEGIN_SRC emacs-lisp :tangle yes
-    (setq org-babel-load-languages
-    '((shell . t)
-    (python . t)
-    (plantuml . t)
-    (emacs-lisp . t)
-    (awk . t)
-    (ledger . t)
-    (gnuplot . t)
-    (latex . t)))
-
-    (org-babel-do-load-languages
-    'org-babel-load-languages '((C . t) (shell . t) (gnuplot . t)))
+    (setq org-time-stamp-custom-formats
+    '("%d %b. %Y (%a)" . "%d %b. %Y (%a), at %H:%M"))
 #+END_SRC
 
-** Prevent or warn on invisible edits
+** Programming a Smart Documents
+
+The following languages can be used inside =SRC= blocks, in view of being
+executed by the Org Babel backend upon document export.
 
 #+BEGIN_SRC emacs-lisp :tangle yes
-(setq org-catch-invisible-edits t)
+  (setq org-babel-load-languages
+        '((shell . t)
+          (python . t)
+          (plantuml . t)
+          (emacs-lisp . t)
+          (awk . t)
+          (ledger . t)
+          (gnuplot . t)
+          (latex . t)))
+
+  (org-babel-do-load-languages
+   'org-babel-load-languages '((C . t)
+                               (shell . t)
+                               (gnuplot . t)))
 #+END_SRC
 
 ** Agenda
@@ -1039,16 +1053,6 @@ We open the agenda in a separate window.
 (setq org-agenda-window-setup 'other-frame)
 #+END_SRC
 
-** Timestamps
-
-More literary timestamps are exported to LaTeX using the following custom
-format:
-
-#+BEGIN_SRC emacs-lisp :tangle yes
-    (setq org-time-stamp-custom-formats
-    '("%d %b. %Y (%a)" . "%d %b. %Y (%a), at %H:%M"))
-#+END_SRC
-
 ** LaTeX export
 
 We'll be compiling our documents with LuaTeX. This will afford us some
@@ -1167,6 +1171,27 @@ however cleaner to separate table of contents with the rest of the work.
 The following makes =TODO= items appear red and =CLOSED= items appear green in
 Org's LaTeX exports. Very stylish, much flair!
 
+** Org links
+
+This is a mind-bending capacity of Org mode: we can assign arbitrary functions
+to be executed when a user follows an Org link. Org links appear like
+hyperlinks both in buffers and PDF exports---e.g. the following link to this
+very section, Section [[Org links]]---but their in-buffer behavior can be
+arbitrarily assigned.
+
+#+BEGIN_SRC emacs-lisp :tangle no
+  (org-add-link-type
+   "tag" 'endless/follow-tag-link)
+
+  (defun endless/follow-tag-link (tag)
+    "Display a list of TODO headlines with tag TAG.
+  With prefix argument, also display headlines without a TODO keyword."
+    (org-tags-view (null current-prefix-arg) tag))
+
+  [[tag:work+phonenumber-boss][Optional Description]]
+#+END_SRC
+
+
 * One-click workflows
 
 In this section, we'll implement useful one-click workflows. It comes later
@@ -1243,51 +1268,40 @@ The keybinding for opening a recently visited file is described in paragraph
 
 ** Frame
 
-*** TODO Header & mode lines
+*** Header & mode lines
 # Top of the buffer is more intuitive for buffer info, bottom is more intuitive
 # for buffer action.
 
-First, we create a function to calculate available width between left and right
-portions of the header and mode line.
-
-#+NAME: sd-line-render
-#+BEGIN_SRC emacs-lisp :tangle yes
-  (defun sd-line-render (left right)
-    "Return a string of `window-width' length
-    containing LEFT, and RIGHT aligned respectively."
-    (let ((available-width (- (window-total-width)
-            (+ (length (format-mode-line left))
-               (length (format-mode-line right))))))
-      (format (format " %%s %%%ds " available-width) left right)))
-#+END_SRC
-
 **** TODO Header line
 
 In Org mode, the document header line will be the title of the document we are
 working on currently.
 
-todo unfontify org-document-title. 
-
 #+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 (org-property-value "TITLE")))))
+                    '(:eval
+                      (list
+                       "    "
+                       (org-property-value "TITLE"))))))
 #+END_SRC
 
 **** Mode line
 
-Then, we use the previously declared function to set up our mode line.
-
 #+NAME: mode-line-format
 #+BEGIN_SRC emacs-lisp :tangle yes
-(setq-default mode-line-format
-      '((:eval (sd-line-render
-                ;; left
-                (format-mode-line "[%*] %b")
-                ;; right
-                (format-mode-line "Line: %l ")))))
+    (setq-default mode-line-format
+          (list
+           '(:eval
+             (list
+              "    "
+              (if buffer-read-only "🔒" "🔓")
+              (propertize " %b "
+                          'help-echo (buffer-file-name)
+                          )
+              (if (buffer-modified-p) "🖉" "✓")))))
 #+END_SRC
 
 ** Window
@@ -1388,9 +1402,9 @@ Without a carefully designed theme, our editor would become unusable. Thus, we
 describe two themes that were developed purposefully and iteratively.
 
 #+BEGIN_SRC emacs-lisp :tangle yes
-(setq custom-theme-directory (concat user-emacs-directory "themes/"))
-(load-theme 'blendoit-light)
-; (load-theme 'blendoit-dark)
+  (setq custom-theme-directory (concat user-emacs-directory "themes/"))
+  (load-theme 'blendoit-light)
+  ;; (load-theme 'blendoit-dark)
 #+END_SRC
 
 ** My light and dark themes
diff --git a/smart-documents.pdf b/smart-documents.pdf
index ddb3a56..371d913 100644
--- a/smart-documents.pdf
+++ b/smart-documents.pdf
diff --git a/snippets/emacs-lisp-mode/defun b/snippets/emacs-lisp-mode/defun
new file mode 100644
index 0000000..80373b2
--- /dev/null
+++ b/snippets/emacs-lisp-mode/defun
@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: defun
+# key: def
+# --
+(defun ${1:function-name} (${2:arguments})
+  "${3:Docstring}"
+  $0)
\ No newline at end of file
diff --git a/themes/blendoit-light-theme.el b/themes/blendoit-light-theme.el
index 6a0b1b7..1be39e3 100644
--- a/themes/blendoit-light-theme.el
+++ b/themes/blendoit-light-theme.el
@@ -1,5 +1,5 @@
 (deftheme blendoit-light
-  "Created 2020-11-07.")
+  "Created 2020-11-08.")
 
 (custom-theme-set-faces
  'blendoit-light
@@ -29,13 +29,13 @@
  '(font-lock-variable-name-face ((t (:foreground "sienna"))))
  '(font-lock-warning-face ((t (:inherit (error)))))
  '(fringe ((t (:background "grey95"))))
- '(header-line ((t (:weight extra-bold :height 2.0 :family "Jost*"))))
+ '(header-line ((t (:weight extra-bold :height 1.8 :family "Jost*"))))
  '(tooltip ((t (:inherit variable-pitch :background "lightyellow" :foreground "black"))))
- '(mode-line ((t (:family "Hermit" :background "steel blue" :foreground "white" :box (:line-width -1 :style released-button)))))
+ '(mode-line ((t (:box (:line-width -1 :style released-button) :foreground "white" :background "steel blue" :family "Hermit" :height 1.2))))
  '(mode-line-buffer-id ((t (:weight bold))))
  '(mode-line-emphasis ((t (:weight bold))))
  '(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button)))))
- '(mode-line-inactive ((t (:family "Hermit" :background "SteelBlue4" :foreground "gainsboro" :box (:line-width -1 :color "gainsboro")))))
+ '(mode-line-inactive ((t (:box (:line-width -1 :color "gainsboro") :foreground "gainsboro" :background "SteelBlue4" :family "Hermit" :height 1.2))))
  '(isearch ((t (:background "DodgerBlue1" :foreground "white"))))
  '(isearch-fail ((t (:background "RosyBrown1"))))
  '(lazy-highlight ((t (:foreground "DodgerBlue1" :box 2))))
@@ -51,7 +51,7 @@
  '(ivy-minibuffer-match-face-3 ((t (:inherit swiper-match-face-3))))
  '(ivy-minibuffer-match-face-4 ((t (:inherit swiper-match-face-4))))
  '(ivy-minibuffer-match-highlight ((t (:inherit highlight))))
- '(org-document-title ((t (:weight bold :height 2.0 :family "Jost*"))))
+ '(org-document-title ((t (:weight bold :height 2.4 :family "Jost*"))))
  '(org-formula ((t (:inherit org-table))))
  '(org-meta-line ((t (:foreground "SteelBlue" :family "Hermit"))))
  '(org-document-info-keyword ((t (:inherit org-meta-line))))
@@ -61,12 +61,12 @@
  '(org-document-info ((t (:weight bold))))
  '(org-table ((t (:height 0.8 :family "Hack"))))
  '(org-block ((t (:foreground "light slate blue" :background "smoke" :inherit fixed-pitch))))
- '(org-special-keyword ((t (:background "white" :weight bold :inherit org-meta-line))))
- '(org-level-1 ((t (:weight bold :height 1.6 :family "Jost*"))))
- '(org-level-2 ((t (:weight bold :height 1.4))))
- '(org-level-3 ((t (:weight bold :height 1.2))))
- '(org-level-4 ((t (:weight bold :height 1.1))))
- '(org-level-5 ((t (:weight bold :height 1.0))))
+ '(org-special-keyword ((t (:inherit org-meta-line :weight bold :background "white"))))
+ '(org-level-1 ((t (:weight bold :height 1.8 :family "Jost*"))))
+ '(org-level-2 ((t (:weight bold :height 1.6))))
+ '(org-level-3 ((t (:weight bold :height 1.4))))
+ '(org-level-4 ((t (:weight bold :height 1.2))))
+ '(org-level-5 ((t (:weight bold :height 1.1))))
  '(org-level-6 ((t (:inherit org-level-5))))
  '(org-level-7 ((t (:inherit org-level-5))))
  '(org-level-8 ((t (:inherit org-level-5))))