summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--smart-documents.org44
-rw-r--r--themes/sd-compagnon-theme.el21
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)
Copyright 2019--2024 Marius PETER