JosephFerano/old-dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Move the theme changes to a forked version of doom themes

Browse Source
This commit is contained in:
Joseph Ferano 2022-12-24 00:33:50 +07:00
parent 6daededf58
commit d40c28c5fc
1 changed files with 17 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
.config/emacs/init.org
View File

@ -198,32 +198,17 @@ Use Dashboard.el. First load `all-the-icons` for nicer rendering
*** Themes
#+begin_src emacs-lisp
(straight-use-package 'doom-themes)
;; (setq custom-safe-themes t)
;; Small changes to my favorite themes
(straight-use-package
'(doom-themes :type git :host github :repo "doomemacs/themes"
:fork (:host github
:repo "JosephFerano/doom-themes")))
(setq custom-safe-themes t)
;; (setq debug-on-message "stop")
;; General Faces
(custom-set-faces
'(dashboard-items-face ((t (:inherit widget-button :weight normal)))))
;; Theme Specific
;; (with-eval-after-load 'doom-themes
;; (load "/home/joe/.dotfiles/.config/emacs/straight/build/doom-themes/doom-flatwhite-theme.el")
(load "/home/joe/.dotfiles/.config/emacs/straight/build/doom-themes/doom-palenight-theme.el")
(custom-theme-set-faces
'doom-palenight
`(highlight ((t (:background ,(doom-color 'base3) :foreground ,(doom-color 'fg)))))
`(markdown-code-face ((t (:extend t :background ,(doom-color 'base2))))))
(load-theme 'doom-palenight t)
;; (custom-theme-set-faces
;; 'doom-flatwhite
;; '(hl-line ((t (:extend t :background "#e4ddd2"))))
;; '(org-block ((t (:extend t :background "#f1ece4"))))
;; '(org-block-begin-line ((t (:extend t :background "#3C435E")))))
;; )
#+end_src
We want to add whatever custom theme we selected to the custom variables since emacs will just
@ -238,9 +223,9 @@ our case is worse since we have a literate file. Send all custom variables to ~c
Save the last used theme when exiting emacs and then reload it.
#+begin_src emacs-lisp tangle: no
;; (defun joe/save-current-theme ()
;; (customize-save-variable 'custom-enabled-themes custom-enabled-themes))
;; (add-hook 'kill-emacs-hook #'joe/save-current-theme)
(defun joe/save-current-theme ()
(customize-save-variable 'custom-enabled-themes custom-enabled-themes))
(add-hook 'kill-emacs-hook #'joe/save-current-theme)
#+end_src
*** Other
@ -298,6 +283,9 @@ Setup other stuff
(doom-modeline-set-modeline 'main 'default)))
(dolist (mode '(dired-mode-hook lsp-help-mode-hook))
(add-hook mode (lambda () (display-line-numbers-mode 0))))
;; (straight-use-package 'centaur-tabs)
;; (setq centaur-tabs-set-bar 'under)
;; (setq x-underline-at-descent-line t)
@ -806,10 +794,10 @@ targets."
(setq dirvish-reuse-session nil)
(dirvish-define-preview exa (file)
"Use `exa' to generate directory preview."
:require ("exa") ; tell Dirvish to check if we have the executable
(when (file-directory-p file) ; we only interest in directories here
`(shell . ("exa" "--icons" "--color=always" "--no-user" "-al" "--group-directories-first" ,file))))
"Use `exa' to generate directory preview."
:require ("exa") ; tell Dirvish to check if we have the executable
(when (file-directory-p file) ; we only interest in directories here
`(shell . ("exa" "--icons" "--color=always" "--no-user" "-al" "--group-directories-first" ,file))))
(add-to-list 'dirvish-preview-dispatchers 'exa)
(setq dired-listing-switches "-l --sort=version --almost-all --human-readable --time-style=long-iso --group-directories-first --no-group")
@ -855,8 +843,6 @@ targets."
(global-set-key (kbd "C-x d") #'dirvish-dwim)
(global-set-key (kbd "C-x C-d") #'joe/dirvish-find-directory)
(add-hook 'dired-mode-hook (lambda () (setq truncate-lines t)))
#+end_src
** Org Mode