diff --git a/emacs/epaper-theme.el b/emacs/epaper-theme.el index abcdcab..da8be3f 100644 --- a/emacs/epaper-theme.el +++ b/emacs/epaper-theme.el @@ -106,6 +106,18 @@ line, set `erc-header-line-face-method` to `t`.") ;; Highlight indentation mode faces `(highlight-indentation-face ((,class (:background "#ebe6da")))) + + ;; Notes List faces + `(notes-list-face-stripe + ((,class (:background ,tinted-background-color)))) + `(notes-list-face-highlight + ((,class (:background ,toolbar-color :foreground ,string-color)))) + `(notes-list-face-title + ((,class (:foreground ,string-color :weight bold)))) + `(notes-list-face-summary ((,class (:foreground ,default-color :slant italic)))) + `(notes-list-face-tags ((,class (:foreground ,default-color :background ,toolbar-color)))) + `(notes-list-face-time ((,class (:foreground ,default-color :slant italic)))) + ) ; End custom-set-faces ) ; End let diff --git a/emacs/init.el b/emacs/init.el index 8c73733..41b1696 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -134,7 +134,6 @@ (add-to-list 'load-path "~/projects/qtoot") (add-to-list 'load-path "~/projects/emcn.el") (add-to-list 'load-path "~/projects/notes-list") -(add-to-list 'load-path "~/projects/publish.el") (when (require 'qtoot nil 'noerror) (setq qtoot-enable-drafts t)) @@ -451,19 +450,12 @@ closed or not, to not confuse elements with Svelte components." (setq notes-list-open-function #'emcn-notes-list-open) (setq notes-list-highlight-face 'font-lock-string-face) (setq notes-list-stripe-face 'fringe) - (setq notes-list-display-tags nil)) - -;; END NOTES LIST - -;;;;;;;;;;;;;;;;;;;;;; -;;;;; PUBLISH ;;;;;;;; -;;;;;;;;;;;;;;;;;;;;;; -(require 'publish nil t) - -;; END PUBLISH - + (defun hugot-notes-list-fringes () + (set-window-fringes nil 8 8)) + (advice-add 'notes-list-refresh :before #'hugot-notes-list-fringes)) +;; END NOTES LIST ;;;;;;;;;;;;;;;;;;;; ;;;;; EWW MODE ;;;;;