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

Remove useless comments.

Commit
07341694881d6a189bcd20361f710487a8c94c6d
Author
Blendoit <blendoit@gmail.com>
Author date
Committer
Blendoit <blendoit@gmail.com>
Committer date
Changed files
smart-documents.org
index ef8ccf56..75d34e09 100644..100644
@@ -61,6 +61,7 @@
61 61
62 62 (defun my/user-details-get ()
63 63 "Get user details."
64 Added: (interactive t)
64 65 (setq user-full-name (read-string "Enter full user name:"))
65 66 (setq user-mail-address (read-string "Enter user e-mail address:"))
66 67 (message "Successfully captured user details."))
@@ -241,9 +242,10 @@
241 242
242 243 Transparency.
243 244
245 Added: : (set-frame-parameter (selected-frame) 'alpha '(<active> . <inactive>))
246 Added: : (set-frame-parameter (selected-frame) 'alpha <both>)
247 Added:
244 248 #+BEGIN_SRC emacs-lisp :tangle yes
245 Removed: ;; (set-frame-parameter (selected-frame) 'alpha '(<active> . <inactive>))
246 Removed: ;; (set-frame-parameter (selected-frame) 'alpha <both>)
247 249 (set-frame-parameter (selected-frame) 'alpha '(95 . 90))
248 250 (add-to-list 'default-frame-alist '(alpha . (95 . 90)))
249 251 #+END_SRC
@@ -324,7 +326,7 @@
324 326 *** Open the agenda
325 327
326 328 #+BEGIN_SRC emacs-lisp :tangle yes
327 Removed: (global-set-key [f5] 'org-agenda)
329 Added: (global-set-key (kbd "C-c a") 'org-agenda)
328 330 #+END_SRC
329 331
330 332 *** Open the diary
@@ -564,10 +566,10 @@
564 566 keys.[fn::For more information on =vi= keybindings, visit
565 567 [[https://hea-www.harvard.edu/~fine/Tech/vi.html]].]
566 568
567 Removed: #+BEGIN_SRC emacs-lisp :tangle yes
569 Added: #+BEGIN_SRC emacs-lisp :tangle no
568 570 (use-package evil)
569 Removed: ; (setq evil-toggle-key "C-c d") ; devil...
570 Removed: ; (evil-mode 1)
571 Added: (setq evil-toggle-key "C-c d")
572 Added: (evil-mode 1)
571 573 #+END_SRC
572 574
573 575 ** Spelling, completion, and snippets
@@ -1420,21 +1422,19 @@
1420 1422
1421 1423 #+BEGIN_SRC emacs-lisp :tangle yes
1422 1424 (defvar sd-header-line-previous-buffer-keymap
1423 Removed: ;; Add menu of window navigation to the header line.
1424 1425 (let ((map (make-sparse-keymap)))
1425 1426 (define-key map [header-line mouse-1] 'previous-buffer)
1426 1427 map)
1427 Removed: "Keymap for what is displayed in the header line, with a single window.")
1428 Added: "Keymap for what is displayed in the header line, with a single
1429 Added: window.")
1428 1430
1429 1431 (defvar sd-header-line-kill-buffer-keymap
1430 Removed: ;; Close current buffer and window.
1431 1432 (let ((map (make-sparse-keymap)))
1432 1433 (define-key map [header-line mouse-1] 'kill-buffer-and-window)
1433 1434 map)
1434 1435 "Keymap for closing current window.")
1435 1436
1436 1437 (defvar sd-header-line-maximize-window-keymap
1437 Removed: ;; Maximize current window.
1438 1438 (let ((map (make-sparse-keymap)))
1439 1439 (define-key map [header-line mouse-1] 'delete-other-windows)
1440 1440 map)
@@ -1480,7 +1480,7 @@
1480 1480 (image-animate sd-icon-loading 0 t)
1481 1481 #+END_SRC
1482 1482
1483 Removed: **** Mode line
1483 Added: **** COMMENT Mode line
1484 1484
1485 1485 This interpretation of the ideal mode line is the result of carefully
1486 1486 studying the default ~mode-line~, as well as studying various
@@ -1488,7 +1488,6 @@
1488 1488
1489 1489 #+BEGIN_SRC emacs-lisp :tangle yes
1490 1490 (defvar sd-mode-line-lock-buffer-keymap
1491 Removed: ;; Lock buffer.
1492 1491 (let ((map (make-sparse-keymap)))
1493 1492 (define-key map [mode-line mouse-1] 'read-only-mode)
1494 1493 map)
@@ -1608,11 +1607,20 @@
1608 1607
1609 1608 #+BEGIN_SRC emacs-lisp :tangle yes
1610 1609 (setq custom-theme-directory (concat user-emacs-directory "themes/"))
1611 Removed: ;; (load-theme 'sd-light)
1610 Added: #+END_SRC
1611 Added:
1612 Added: #+BEGIN_SRC emacs-lisp :tangle yes
1612 1613 (load-theme 'sd-compagnon)
1613 Removed: ;; (load-theme 'sd-dark)
1614 1614 #+END_SRC
1615 1615
1616 Added: #+BEGIN_SRC emacs-lisp :tangle no
1617 Added: (load-theme 'sd-light)
1618 Added: #+END_SRC
1619 Added:
1620 Added: #+BEGIN_SRC emacs-lisp :tangle no
1621 Added: (load-theme 'sd-dark)
1622 Added: #+END_SRC
1623 Added:
1616 1624 ** My light and dark themes
1617 1625
1618 1626 A highly legible, unambiguous, and classic theme.
@@ -1796,14 +1804,14 @@
1796 1804
1797 1805 ** Profiling---stop
1798 1806
1799 Removed: #+BEGIN_SRC emacs-lisp :tangle yes
1800 Removed: ;; (profiler-stop)
1807 Added: #+BEGIN_SRC emacs-lisp :tangle no
1808 Added: (profiler-stop)
1801 1809 #+END_SRC
1802 1810
1803 1811 ** Profiling---report
1804 1812
1805 Removed: #+BEGIN_SRC emacs-lisp :tangle yes
1806 Removed: ;; (profiler-report)
1813 Added: #+BEGIN_SRC emacs-lisp :tangle no
1814 Added: (profiler-report)
1807 1815 #+END_SRC
1808 1816
1809 1817 * Conclusion
themes/sd-compagnon-theme.el
index b6683638..3a4c9b17 100644..100644
@@ -1,5 +1,5 @@
1 1 (deftheme sd-compagnon
2 Removed: "Created 2021-05-22.")
2 Added: "Created 2021-05-23.")
3 3
4 4 (custom-theme-set-faces
5 5 'sd-compagnon
@@ -14,12 +14,12 @@
14 14 '(shadow ((t (:foreground "light slate gray"))))
15 15 '(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))))
16 16 '(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")) (t (:inverse-video t))))
17 Removed: '(font-lock-builtin-face ((t (:foreground "medium purple"))))
17 Added: '(font-lock-builtin-face ((t (:foreground "light pink"))))
18 18 '(font-lock-comment-delimiter-face ((t (:foreground "slate gray" :inherit (fixed-pitch)))))
19 19 '(font-lock-comment-face ((t (:family "Compagnon Bold"))))
20 Removed: '(font-lock-constant-face ((t (:foreground "chocolate"))))
20 Added: '(font-lock-constant-face ((t (:foreground "saddle brown" :weight bold))))
21 21 '(font-lock-doc-face ((t (:inherit variable-pitch))))
22 Removed: '(font-lock-function-name-face ((t (:foreground "sienna" :weight bold))))
22 Added: '(font-lock-function-name-face ((t (:foreground "RosyBrown3" :weight bold))))
23 23 '(font-lock-keyword-face ((t (:foreground "pink4"))))
24 24 '(font-lock-negation-char-face ((t nil)))
25 25 '(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
@@ -29,12 +29,12 @@
29 29 '(font-lock-type-face ((t (:foreground "orchid2"))))
30 30 '(font-lock-variable-name-face ((t (:weight bold))))
31 31 '(font-lock-warning-face ((t (:inherit (error)))))
32 Removed: '(button ((t (:inherit (link)))))
32 Added: '(button ((t (:inherit link))))
33 33 '(link ((t (:family "Compagnon Light Italic"))))
34 34 '(link-visited ((t (:inherit link))))
35 35 '(fringe ((t (:background "gainsboro"))))
36 36 '(header-line ((t (:height 1.8 :weight bold :inherit org-meta-line))))
37 Removed: '(tooltip ((t (:family "Hermit" :foreground "black" :background "gainsboro"))))
37 Added: '(tooltip ((t (:background "old lace" :foreground "black" :family "Hermit"))))
38 38 '(mode-line ((t (:inherit org-meta-line :box (:line-width -1 :style released-button)))))
39 39 '(mode-line-buffer-id ((t (:weight bold))))
40 40 '(mode-line-emphasis ((t (:weight bold))))
@@ -47,12 +47,12 @@
47 47 '(next-error ((t (:inherit (region)))))
48 48 '(query-replace ((t (:inherit (isearch)))))
49 49 '(org-meta-line ((t (:extend t :background "burlywood2" :family "Compagnon Light"))))
50 Removed: '(org-table ((t (:background "lemon chiffon" :inherit fixed-pitch))))
50 Added: '(org-table ((t (:inherit fixed-pitch :background "lemon chiffon"))))
51 51 '(org-block ((t (:inherit fixed-pitch :extend t))))
52 52 '(org-code ((t (:inherit fixed-pitch))))
53 53 '(custom-variable-tag ((t (:weight bold))))
54 Removed: '(org-block-begin-line ((t (:background "lemon chiffon" :extend t :inherit org-meta-line))))
55 Removed: '(org-block-end-line ((t (:inherit org-block-begin-line :extend t))))
54 Added: '(org-block-begin-line ((t (:inherit org-meta-line :extend t :background "lemon chiffon"))))
55 Added: '(org-block-end-line ((t (:extend t :inherit org-block-begin-line))))
56 56 '(outline-1 ((t (:family "Compagnon Medium"))))
57 57 '(outline-2 ((t (:inherit outline-1))))
58 58 '(outline-3 ((t (:inherit outline-1))))
@@ -74,6 +74,7 @@
74 74 '(custom-link ((t (:inherit fixed-pitch :background "burlywood1"))))
75 75 '(show-paren-match ((t (:background "aquamarine"))))
76 76 '(show-paren-mismatch ((t (:background "orange red" :foreground "white"))))
77 Removed: '(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")))))
77 Added: '(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"))))
78 Added: '(org-drawer ((t (:inherit org-block-begin-line)))))
78 79
79 80 (provide-theme 'sd-compagnon)