From 07341694881d6a189bcd20361f710487a8c94c6d Mon Sep 17 00:00:00 2001 From: Blendoit Date: Tue, 25 May 2021 18:11:04 -0700 Subject: Remove useless comments. --- smart-documents.org | 44 ++++++++++++++++++++++++++------------------ themes/sd-compagnon-theme.el | 21 +++++++++++---------- 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 '( . )) +: (set-frame-parameter (selected-frame) 'alpha ) + #+BEGIN_SRC emacs-lisp :tangle yes - ;; (set-frame-parameter (selected-frame) 'alpha '( . )) - ;; (set-frame-parameter (selected-frame) 'alpha ) (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) -- cgit v1.2.3