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

Compagnon theme!

Commit
70e15a4114a13c0ec29b6206c96d7fffa39f22fa
Author
Blendoit <blendoit@gmail.com>
Author date
Committer
Blendoit <blendoit@gmail.com>
Committer date
Changed files
smart-documents.org
index 6174abcc..bc92a7f1 100644..100644
@@ -874,7 +874,6 @@
874 874 (setf rm-whitelist "projectile")
875 875 #+END_SRC
876 876
877 Removed:
878 877 *** Emojis
879 878
880 879 Emojis are a symbol of modernity, and their tasteful use enables
@@ -1041,8 +1040,7 @@
1041 1040 '("%d %b. %Y (%a)" . "%d %b. %Y (%a), at %H:%M"))
1042 1041 #+END_SRC
1043 1042
1044 Removed: *** N/A Sequence of TODOs
1045 Removed: CLOSED: [2021-05-16 Sun]
1043 Added: *** Sequence of TODOs
1046 1044
1047 1045 #+begin_src emacs-lisp :tangle yes
1048 1046 (setq org-todo-keywords
@@ -1593,14 +1591,15 @@
1593 1591 #+END_SRC
1594 1592
1595 1593 * Themes
1596 Removed:
1594 Added: # This is just another comment.
1597 1595 Without a carefully designed theme, our editor would become
1598 Removed: unusable. Thus, we describe two themes that were developed
1599 Removed: purposefully and iteratively.
1596 Added: unusable. Thus, we /describe/ two themes that were developed
1597 Added: *purposefully* and iteratively.
1600 1598
1601 1599 #+BEGIN_SRC emacs-lisp :tangle yes
1602 1600 (setq custom-theme-directory (concat user-emacs-directory "themes/"))
1603 Removed: (load-theme 'sd-light)
1601 Added: ;; (load-theme 'sd-light)
1602 Added: (load-theme 'sd-compagnon)
1604 1603 ;; (load-theme 'sd-dark)
1605 1604 #+END_SRC
1606 1605
themes/sd-compagnon-theme.el
index 00000000..b6683638 000000..100644
@@ -0,0 +1,79 @@
1 Added: (deftheme sd-compagnon
2 Added: "Created 2021-05-22.")
3 Added:
4 Added: (custom-theme-set-faces
5 Added: 'sd-compagnon
6 Added: '(cursor ((t (:background "red"))))
7 Added: '(fixed-pitch ((t (:family "Compagnon Medium"))))
8 Added: '(variable-pitch ((t (:family "Compagnon Roman"))))
9 Added: '(escape-glyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
10 Added: '(homoglyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
11 Added: '(minibuffer-prompt ((t (:inherit (org-meta-line)))))
12 Added: '(highlight ((t (:background "light goldenrod"))))
13 Added: '(region ((t (:extend t :background "light goldenrod"))))
14 Added: '(shadow ((t (:foreground "light slate gray"))))
15 Added: '(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 Added: '(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")) (t (:inverse-video t))))
17 Added: '(font-lock-builtin-face ((t (:foreground "medium purple"))))
18 Added: '(font-lock-comment-delimiter-face ((t (:foreground "slate gray" :inherit (fixed-pitch)))))
19 Added: '(font-lock-comment-face ((t (:family "Compagnon Bold"))))
20 Added: '(font-lock-constant-face ((t (:foreground "chocolate"))))
21 Added: '(font-lock-doc-face ((t (:inherit variable-pitch))))
22 Added: '(font-lock-function-name-face ((t (:foreground "sienna" :weight bold))))
23 Added: '(font-lock-keyword-face ((t (:foreground "pink4"))))
24 Added: '(font-lock-negation-char-face ((t nil)))
25 Added: '(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
26 Added: '(font-lock-regexp-grouping-backslash ((t (:foreground "orange"))))
27 Added: '(font-lock-regexp-grouping-construct ((t (:foreground "dark orange"))))
28 Added: '(font-lock-string-face ((t (:inherit variable-pitch))))
29 Added: '(font-lock-type-face ((t (:foreground "orchid2"))))
30 Added: '(font-lock-variable-name-face ((t (:weight bold))))
31 Added: '(font-lock-warning-face ((t (:inherit (error)))))
32 Added: '(button ((t (:inherit (link)))))
33 Added: '(link ((t (:family "Compagnon Light Italic"))))
34 Added: '(link-visited ((t (:inherit link))))
35 Added: '(fringe ((t (:background "gainsboro"))))
36 Added: '(header-line ((t (:height 1.8 :weight bold :inherit org-meta-line))))
37 Added: '(tooltip ((t (:family "Hermit" :foreground "black" :background "gainsboro"))))
38 Added: '(mode-line ((t (:inherit org-meta-line :box (:line-width -1 :style released-button)))))
39 Added: '(mode-line-buffer-id ((t (:weight bold))))
40 Added: '(mode-line-emphasis ((t (:weight bold))))
41 Added: '(mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width 2 :color "grey40" :style released-button))) (t (:inherit (highlight)))))
42 Added: '(mode-line-inactive ((t (:box (:line-width -1 :color "dark gray" :style nil) :background "gainsboro" :inherit (org-meta-line)))))
43 Added: '(isearch ((t (:foreground "white" :background "DodgerBlue1"))))
44 Added: '(isearch-fail ((((class color) (min-colors 88) (background light)) (:background "RosyBrown1")) (((class color) (min-colors 88) (background dark)) (:background "red4")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) (:foreground "grey")) (t (:inverse-video t))))
45 Added: '(lazy-highlight ((t (:foreground "burlywood" :box 2))))
46 Added: '(match ((t (:background "yellow1"))))
47 Added: '(next-error ((t (:inherit (region)))))
48 Added: '(query-replace ((t (:inherit (isearch)))))
49 Added: '(org-meta-line ((t (:extend t :background "burlywood2" :family "Compagnon Light"))))
50 Added: '(org-table ((t (:background "lemon chiffon" :inherit fixed-pitch))))
51 Added: '(org-block ((t (:inherit fixed-pitch :extend t))))
52 Added: '(org-code ((t (:inherit fixed-pitch))))
53 Added: '(custom-variable-tag ((t (:weight bold))))
54 Added: '(org-block-begin-line ((t (:background "lemon chiffon" :extend t :inherit org-meta-line))))
55 Added: '(org-block-end-line ((t (:inherit org-block-begin-line :extend t))))
56 Added: '(outline-1 ((t (:family "Compagnon Medium"))))
57 Added: '(outline-2 ((t (:inherit outline-1))))
58 Added: '(outline-3 ((t (:inherit outline-1))))
59 Added: '(outline-4 ((t (:inherit outline-1))))
60 Added: '(outline-5 ((t (:inherit outline-1))))
61 Added: '(outline-6 ((t (:inherit outline-1))))
62 Added: '(outline-7 ((t (:inherit outline-1))))
63 Added: '(outline-8 ((t (:inherit outline-1))))
64 Added: '(org-special-keyword ((t (:inherit fixed-pitch :foreground "black" :background "cornsilk"))))
65 Added: '(line-number ((t (:inherit org-meta-line))))
66 Added: '(org-todo ((t (:inherit fixed-pitch :background "tomato" :foreground "white" :weight bold))))
67 Added: '(org-done ((t (:weight bold :foreground "white" :background "medium aquamarine" :inherit fixed-pitch))))
68 Added: '(org-date ((t (:inherit link))))
69 Added: '(bold ((t (:weight bold))))
70 Added: '(italic ((t (:slant italic))))
71 Added: '(bold-italic ((t (:slant italic :weight bold))))
72 Added: '(org-headline-done ((t (:foreground "aquamarine4" :inherit outline-1))))
73 Added: '(org-footnote ((t (:family "Compagnon Light"))))
74 Added: '(custom-link ((t (:inherit fixed-pitch :background "burlywood1"))))
75 Added: '(show-paren-match ((t (:background "aquamarine"))))
76 Added: '(show-paren-mismatch ((t (:background "orange red" :foreground "white"))))
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:
79 Added: (provide-theme 'sd-compagnon)