Add notes list faces to theme + add some config to init.el

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
 

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 ;;;;;