updating org looks

This commit is contained in:
Chris Cochrun 2022-07-05 10:13:20 -05:00
parent bb31b2e38a
commit 828227b7cd
3 changed files with 39 additions and 7 deletions

View file

@ -115,9 +115,9 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent but not the text" "Set the frame to be transparent but not the text"
(set-frame-parameter (selected-frame) 'alpha-background 85) (set-frame-parameter (selected-frame) 'alpha-background 100)
(add-to-list 'default-frame-alist '(alpha-background . 85)) (add-to-list 'default-frame-alist '(alpha-background . 100))
(add-to-list 'initial-frame-alist '(alpha-background . 85))) (add-to-list 'initial-frame-alist '(alpha-background . 100)))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
@ -535,6 +535,14 @@ 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))
(dolist (face
'((org-level-1 1.4 ultra-bold)
(org-level-2 1.3 extra-bold)
(org-level-3 1.2 bold)
(org-level-4 1.1 semi-bold)
(org-level-5 1.0 normal)))
(set-face-attribute (nth 0 face) nil :weight (nth 2 face) :height (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))

30
init.el
View file

@ -39,9 +39,9 @@
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent but not the text" "Set the frame to be transparent but not the text"
(set-frame-parameter (selected-frame) 'alpha-background 85) (set-frame-parameter (selected-frame) 'alpha-background 100)
(add-to-list 'default-frame-alist '(alpha-background . 85)) (add-to-list 'default-frame-alist '(alpha-background . 100))
(add-to-list 'initial-frame-alist '(alpha-background . 85))) (add-to-list 'initial-frame-alist '(alpha-background . 100)))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
@ -333,6 +333,14 @@
org-verbatim)) org-verbatim))
(set-face-attribute `,face nil :inherit 'fixed-pitch)) (set-face-attribute `,face nil :inherit 'fixed-pitch))
(dolist (face
'((org-level-1 1.4 ultra-bold)
(org-level-2 1.3 extra-bold)
(org-level-3 1.2 bold)
(org-level-4 1.1 semi-bold)
(org-level-5 1.0 normal)))
(set-face-attribute (nth 0 face) nil :weight (nth 2 face) :height (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))
@ -2252,3 +2260,19 @@ interfere with the default `bongo-playlist-buffer'."
gcmh-verbose nil)) gcmh-verbose nil))
(setq warning-suppress-types '((comp))) (setq warning-suppress-types '((comp)))
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(pdf-misc-print-program "/usr/bin/lpr")
'(pdf-misc-print-program-args '("-o media=Letter" "-o fitplot"))
'(safe-local-variable-values
'((projectile-project-run-cmd . "./build/bin/presenter")
(projectile-project-compilation-cmd . "cmake -DCMAKE_EXPORT_COMPILE_COMMANDS=1 -B build/ . && make --dir build/"))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36"))))

View file

@ -1,4 +1,4 @@
;;; Automatically generated by recentf on Sun Jun 26 07:01:28 2022. ;;; Automatically generated by recentf on Sun Jul 3 06:45:20 2022.
(setq recentf-list 'nil) (setq recentf-list 'nil)