Remove useless comments.

2 files changed, 37 insertions, 28 deletions

diff --git a/smart-documents.org b/smart-documents.org
index ef8ccf5..75d34e0 100644
--- a/smart-documents.org
+++ b/smart-documents.org
@@ -61,6 +61,7 @@ other appropriate element.
 
   (defun my/user-details-get ()
     "Get user details."
+    (interactive t)
     (setq user-full-name (read-string "Enter full user name:"))
     (setq user-mail-address (read-string "Enter user e-mail address:"))
     (message "Successfully captured user details."))
@@ -241,9 +242,10 @@ We also set the dimensions of subsequent frames:
 
 Transparency.
 
+: (set-frame-parameter (selected-frame) 'alpha '(<active> . <inactive>))
+: (set-frame-parameter (selected-frame) 'alpha <both>)
+
 #+BEGIN_SRC emacs-lisp :tangle yes
-  ;; (set-frame-parameter (selected-frame) 'alpha '(<active> . <inactive>))
-  ;; (set-frame-parameter (selected-frame) 'alpha <both>)
   (set-frame-parameter (selected-frame) 'alpha '(95 . 90))
   (add-to-list 'default-frame-alist '(alpha . (95 . 90)))
 #+END_SRC
@@ -324,7 +326,7 @@ navigation cues on all modern desktop OSes. From IBM's CUA, we get the
 *** Open the agenda
 
 #+BEGIN_SRC emacs-lisp :tangle yes
-  (global-set-key [f5] 'org-agenda)
+  (global-set-key (kbd "C-c a") 'org-agenda)
 #+END_SRC
 
 *** Open the diary
@@ -564,10 +566,10 @@ This is the 2^{nd} most significant customization after
 keys.[fn::For more information on =vi= keybindings, visit
 [[https://hea-www.harvard.edu/~fine/Tech/vi.html]].]
 
-#+BEGIN_SRC emacs-lisp :tangle yes
+#+BEGIN_SRC emacs-lisp :tangle no
   (use-package evil)
-                                          ;  (setq evil-toggle-key "C-c d") ; devil...
-                                          ;  (evil-mode 1)
+  (setq evil-toggle-key "C-c d")
+  (evil-mode 1)
 #+END_SRC
 
 ** Spelling, completion, and snippets
@@ -1420,21 +1422,19 @@ for our header line buttons for navigating through open windows.
 
 #+BEGIN_SRC emacs-lisp :tangle yes
   (defvar sd-header-line-previous-buffer-keymap
-    ;; Add menu of window navigation to the header line.
     (let ((map (make-sparse-keymap)))
       (define-key map [header-line mouse-1] 'previous-buffer)
       map)
-    "Keymap for what is displayed in the header line, with a single window.")
+    "Keymap for what is displayed in the header line, with a single
+    window.")
 
   (defvar sd-header-line-kill-buffer-keymap
-    ;; Close current buffer and window.
     (let ((map (make-sparse-keymap)))
       (define-key map [header-line mouse-1] 'kill-buffer-and-window)
       map)
     "Keymap for closing current window.")
 
   (defvar sd-header-line-maximize-window-keymap
-    ;; Maximize current window.
     (let ((map (make-sparse-keymap)))
       (define-key map [header-line mouse-1] 'delete-other-windows)
       map)
@@ -1480,7 +1480,7 @@ Now, we describe the actual format of the header line.
   (image-animate sd-icon-loading 0 t)
 #+END_SRC
 
-**** Mode line
+**** COMMENT Mode line
 
 This interpretation of the ideal mode line is the result of carefully
 studying the default ~mode-line~, as well as studying various
@@ -1488,7 +1488,6 @@ customizations online.
 
 #+BEGIN_SRC emacs-lisp :tangle yes
   (defvar sd-mode-line-lock-buffer-keymap
-    ;; Lock buffer.
     (let ((map (make-sparse-keymap)))
       (define-key map [mode-line mouse-1] 'read-only-mode)
       map)
@@ -1608,9 +1607,18 @@ unusable. Thus, we /describe/ two themes that were developed
 
 #+BEGIN_SRC emacs-lisp :tangle yes
   (setq custom-theme-directory (concat user-emacs-directory "themes/"))
-  ;; (load-theme 'sd-light)
+#+END_SRC
+
+#+BEGIN_SRC emacs-lisp :tangle yes
   (load-theme 'sd-compagnon)
-  ;; (load-theme 'sd-dark)
+#+END_SRC
+
+#+BEGIN_SRC emacs-lisp :tangle no
+  (load-theme 'sd-light)
+#+END_SRC
+
+#+BEGIN_SRC emacs-lisp :tangle no
+  (load-theme 'sd-dark)
 #+END_SRC
 
 ** My light and dark themes
@@ -1796,14 +1804,14 @@ the result of our profiling.
 
 ** Profiling---stop
 
-#+BEGIN_SRC emacs-lisp :tangle yes
-  ;; (profiler-stop)
+#+BEGIN_SRC emacs-lisp :tangle no
+  (profiler-stop)
 #+END_SRC
 
 ** Profiling---report
 
-#+BEGIN_SRC emacs-lisp :tangle yes
-  ;; (profiler-report)
+#+BEGIN_SRC emacs-lisp :tangle no
+ (profiler-report)
 #+END_SRC
 
 * Conclusion
diff --git a/themes/sd-compagnon-theme.el b/themes/sd-compagnon-theme.el
index b668363..3a4c9b1 100644
--- a/themes/sd-compagnon-theme.el
+++ b/themes/sd-compagnon-theme.el
@@ -1,5 +1,5 @@
 (deftheme sd-compagnon
-  "Created 2021-05-22.")
+  "Created 2021-05-23.")
 
 (custom-theme-set-faces
  'sd-compagnon
@@ -14,12 +14,12 @@
  '(shadow ((t (:foreground "light slate gray"))))
  '(secondary-selection ((((class color) (min-colors 88) (background light)) (:extend t :background "yellow1")) (((class color) (min-colors 88) (background dark)) (:extend t :background "SkyBlue4")) (((class color) (min-colors 16) (background light)) (:extend t :background "yellow")) (((class color) (min-colors 16) (background dark)) (:extend t :background "SkyBlue4")) (((class color) (min-colors 8)) (:extend t :foreground "black" :background "cyan")) (t (:inverse-video t))))
  '(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")) (t (:inverse-video t))))
- '(font-lock-builtin-face ((t (:foreground "medium purple"))))
+ '(font-lock-builtin-face ((t (:foreground "light pink"))))
  '(font-lock-comment-delimiter-face ((t (:foreground "slate gray" :inherit (fixed-pitch)))))
  '(font-lock-comment-face ((t (:family "Compagnon Bold"))))
- '(font-lock-constant-face ((t (:foreground "chocolate"))))
+ '(font-lock-constant-face ((t (:foreground "saddle brown" :weight bold))))
  '(font-lock-doc-face ((t (:inherit variable-pitch))))
- '(font-lock-function-name-face ((t (:foreground "sienna" :weight bold))))
+ '(font-lock-function-name-face ((t (:foreground "RosyBrown3" :weight bold))))
  '(font-lock-keyword-face ((t (:foreground "pink4"))))
  '(font-lock-negation-char-face ((t nil)))
  '(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
@@ -29,12 +29,12 @@
  '(font-lock-type-face ((t (:foreground "orchid2"))))
  '(font-lock-variable-name-face ((t (:weight bold))))
  '(font-lock-warning-face ((t (:inherit (error)))))
- '(button ((t (:inherit (link)))))
+ '(button ((t (:inherit link))))
  '(link ((t (:family "Compagnon Light Italic"))))
  '(link-visited ((t (:inherit link))))
  '(fringe ((t (:background "gainsboro"))))
  '(header-line ((t (:height 1.8 :weight bold :inherit org-meta-line))))
- '(tooltip ((t (:family "Hermit" :foreground "black" :background "gainsboro"))))
+ '(tooltip ((t (:background "old lace" :foreground "black" :family "Hermit"))))
  '(mode-line ((t (:inherit org-meta-line :box (:line-width -1 :style released-button)))))
  '(mode-line-buffer-id ((t (:weight bold))))
  '(mode-line-emphasis ((t (:weight bold))))
@@ -47,12 +47,12 @@
  '(next-error ((t (:inherit (region)))))
  '(query-replace ((t (:inherit (isearch)))))
  '(org-meta-line ((t (:extend t :background "burlywood2" :family "Compagnon Light"))))
- '(org-table ((t (:background "lemon chiffon" :inherit fixed-pitch))))
+ '(org-table ((t (:inherit fixed-pitch :background "lemon chiffon"))))
  '(org-block ((t (:inherit fixed-pitch :extend t))))
  '(org-code ((t (:inherit fixed-pitch))))
  '(custom-variable-tag ((t (:weight bold))))
- '(org-block-begin-line ((t (:background "lemon chiffon" :extend t :inherit org-meta-line))))
- '(org-block-end-line ((t (:inherit org-block-begin-line :extend t))))
+ '(org-block-begin-line ((t (:inherit org-meta-line :extend t :background "lemon chiffon"))))
+ '(org-block-end-line ((t (:extend t :inherit org-block-begin-line))))
  '(outline-1 ((t (:family "Compagnon Medium"))))
  '(outline-2 ((t (:inherit outline-1))))
  '(outline-3 ((t (:inherit outline-1))))
@@ -74,6 +74,7 @@
  '(custom-link ((t (:inherit fixed-pitch :background "burlywood1"))))
  '(show-paren-match ((t (:background "aquamarine"))))
  '(show-paren-mismatch ((t (:background "orange red" :foreground "white"))))
- '(default ((t (:inherit nil :extend nil :stipple nil :background "cornsilk" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight semi-bold :height 142 :width normal :foundry "UKWN" :family "Compagnon Medium")))))
+ '(default ((t (:inherit nil :extend nil :stipple nil :background "cornsilk" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight semi-bold :height 142 :width normal :foundry "UKWN" :family "Compagnon Medium"))))
+ '(org-drawer ((t (:inherit org-block-begin-line)))))
 
 (provide-theme 'sd-compagnon)