Add notes-list and emcn config

emacs/custom.el

@@ -6,6 +6,7 @@
  '(custom-safe-themes
    '("6e23a74a8c3e71515aafaa2c39d337c9b032ab8bd98530819c862b223ff3638f" default))
  '(deft-extensions '("kotl" "txt" "text" "md" "markdown" "org"))
+ '(emcn-host "famthun.nl")
  '(package-selected-packages
    '(yasnippet protobuf-mode lsp-ui lsp-mode exwm ement plz ts quelpa deft hyperbole phps-mode telega gnus-desktop-notify xclip ix esh-autosuggest company-shell docker-compose-mode docker muse writeroom-mode vscode-icon mastodon smtpmail-multi vterm pyvenv pyenv-mode python-mode markdown-mode+ websocket sql-indent company-lsp flymake-go noflet ido-vertical-mode counsel swiper typescript-mode flymake-shellcheck omnisharp plantuml-mode all-the-icons-dired all-the-icons dired-sidebar company-irony-c-headers irony-eldoc company-irony irony go-eldoc company-go go-mode webpaste emojify csv csv-mode js2-mode company-tern php-mode xmlgen request-deferred auto-package-update web-mode company magit powerline nginx-mode cpanfile-mode dotenv-mode mustache-mode htmlize dockerfile-mode indent-tools markdown-mode yaml-mode))
  '(php-lineup-cascaded-calls t)
@@ -16,6 +17,7 @@
  '(tab-bar-border 4 t)
  '(tab-bar-close-button-show nil)
  '(tab-bar-separator "|" t)
+ '(warning-suppress-types '((ement)))
  '(window-divider-default-right-width 4)
  '(window-divider-mode nil))
 (custom-set-faces

emacs/init.el

@@ -416,8 +416,6 @@ closed or not, to not confuse elements with Svelte components."
 ;; `ido-list-directory' if I ever really want to use dired. Also there is {C-c
 ;; C-x C-d} to open `dired-sidebar'.
 (global-unset-key (kbd "C-x d"))
-(global-set-key (kbd "C-x d d") 'deft)
-(global-set-key (kbd "C-x d f") 'deft-new-file-named)
 
 (global-set-key (kbd "C-c e") 'emojify-insert-emoji)
 
@@ -443,25 +441,18 @@ closed or not, to not confuse elements with Svelte components."
 
 ;; END KEYBINDS
 
-;;;;;;;;;;;;;;;;
-;;;;; DEFT ;;;;;
-;;;;;;;;;;;;;;;;
-(require 'deft)
-
-(defun hugot-deft-window-width (old-function)
-  (- (funcall old-function) 1))
-
-(advice-add 'deft-current-window-width :around #'hugot-deft-window-width)
-
-(eval-after-load "deft"
-  (progn
-    (setq deft-directory "~/projects/deft")
-    (custom-set-variables '(deft-extensions '("kotl" "txt" "text" "md" "markdown" "org")))
-    (setq-default deft-default-extension "kotl")
-    (setq deft-use-filename-as-title t)
-    (setq deft-strip-summary-regexp "^\\(\n\\|;;\\|\"\\|[[:digit:]]\\|[[:blank:]]*\\[\\|[a-z]\\|\\|[[:blank:]]+(creator\\|.*\\]$\\).*\\|\\|[\n \t]+")))
+;;;;;;;;;;;;;;;;;;;;;;
+;;;;; NOTES LIST ;;;;;
+;;;;;;;;;;;;;;;;;;;;;;
+(when (and (require 'emcn-notes-list nil t)
+           (require 'notes-list nil t))
+  (setq notes-list-collect-notes-function #'emcn-notes-list-collect-notes)
+  (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 DEFT
+;; END NOTES LIST
 
 ;;;;;;;;;;;;;;;;;;;;
 ;;;;; EWW MODE ;;;;;
@@ -487,11 +478,14 @@ OLD-FUNCTION must be the function that is being adviced."
 ;;;;; EMENT ;;;;;
 ;;;;;;;;;;;;;;;;;
 
-(defun hugot-ement-hook ()
-  (emojify-mode))
+(when (require 'ement nil t)
+  (setq ement-save-sessions t)
+
+  (defun hugot-ement-hook ()
+    (emojify-mode))
 
-(add-hook 'ement-room-list-mode-hook #'hugot-ement-hook)
-(add-hook 'ement-room-mode-hook #'hugot-ement-hook)
+  (add-hook 'ement-room-list-mode-hook #'hugot-ement-hook)
+  (add-hook 'ement-room-mode-hook #'hugot-ement-hook))
 
 ;; END EMENT