chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

some color changes

Browse source
This commit is contained in:
Chris Cochrun 2022-08-02 13:33:12 -05:00
parent f9cab369d3
commit 6a9e67ceb4
2 changed files with 30 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
README.org
View file

@ -540,6 +540,7 @@ Let's start by creating a self contained function of what I'd like started on ev
org-verbatim)) org-verbatim))
(set-face-attribute `,face nil :inherit 'fixed-pitch)) (set-face-attribute `,face nil :inherit 'fixed-pitch))
;; changing height and boldness
(dolist (face (dolist (face
'((org-level-1 1.4 ultra-bold) '((org-level-1 1.4 ultra-bold)
(org-level-2 1.3 extra-bold) (org-level-2 1.3 extra-bold)
@ -548,6 +549,13 @@ Let's start by creating a self contained function of what I'd like started on ev
(org-level-5 1.0 normal))) (org-level-5 1.0 normal)))
(set-face-attribute (nth 0 face) nil :weight (nth 2 face) :height (nth 1 face))) (set-face-attribute (nth 0 face) nil :weight (nth 2 face) :height (nth 1 face)))
;; changing colors
(dolist (face
'((outline-2 "#5af78e")
(outline-3 "#ffb86c")
(outline-4 "#f3f99d")))
(set-face-attribute (nth 0 face) nil :foreground (nth 1 face)))
(set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line) (set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line)
(set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch)) (set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch))
@ -2994,9 +3002,14 @@ Since Bongo seems kinda difficult I shall give EMMS another try.
:states 'normal :states 'normal
:keymaps 'override :keymaps 'override
"mo" 'emms "mo" 'emms
"mb" 'emms-browser "ml" 'emms-browser
"mp" 'emms-pause "mp" 'emms-pause
"ma" 'emms-add-dired) "ma" 'emms-add-dired
"mr" 'emms-toggle-repeat-track
"mn" 'emms-next
"mb" 'emms-previous
"m]" 'emms-seek-forward
"m[" 'emms-seek-backward)
(general-def 'normal emms-playlist-mode-map (general-def 'normal emms-playlist-mode-map
"q" 'bury-buffer "q" 'bury-buffer
"d" 'emms-playlist-mode-kill-track "d" 'emms-playlist-mode-kill-track

17
init.el
View file

@ -338,6 +338,7 @@
org-verbatim)) org-verbatim))
(set-face-attribute `,face nil :inherit 'fixed-pitch)) (set-face-attribute `,face nil :inherit 'fixed-pitch))
;; changing height and boldness
(dolist (face (dolist (face
'((org-level-1 1.4 ultra-bold) '((org-level-1 1.4 ultra-bold)
(org-level-2 1.3 extra-bold) (org-level-2 1.3 extra-bold)
@ -346,6 +347,13 @@
(org-level-5 1.0 normal))) (org-level-5 1.0 normal)))
(set-face-attribute (nth 0 face) nil :weight (nth 2 face) :height (nth 1 face))) (set-face-attribute (nth 0 face) nil :weight (nth 2 face) :height (nth 1 face)))
;; changing colors
(dolist (face
'((outline-2 "#5af78e")
(outline-3 "#ffb86c")
(outline-4 "#f3f99d")))
(set-face-attribute (nth 0 face) nil :foreground (nth 1 face)))
(set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line) (set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line)
(set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch)) (set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch))
@ -2160,9 +2168,14 @@ interfere with the default `bongo-playlist-buffer'."
:states 'normal :states 'normal
:keymaps 'override :keymaps 'override
"mo" 'emms "mo" 'emms
"mb" 'emms-browser "ml" 'emms-browser
"mp" 'emms-pause "mp" 'emms-pause
"ma" 'emms-add-dired) "ma" 'emms-add-dired
"mr" 'emms-toggle-repeat-track
"mn" 'emms-next
"mb" 'emms-previous
"m]" 'emms-seek-forward
"m[" 'emms-seek-backward)
(general-def 'normal emms-playlist-mode-map (general-def 'normal emms-playlist-mode-map
"q" 'bury-buffer "q" 'bury-buffer
"d" 'emms-playlist-mode-kill-track "d" 'emms-playlist-mode-kill-track