Update

lisp/init-better-default.el

@@ -129,4 +129,7 @@
          (lambda (button)
            (helpful-variable (button-get button 'apropos-symbol))))))))
 
+(setq auto-save-file-name-transforms
+      `((".*" ,(concat user-emacs-directory "auto-save/") t)))
+
 (provide 'init-better-default)

lisp/init-eglot.el

@@ -34,7 +34,10 @@
   :config
   (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster))
 
-(use-package eldoc-box
+;; (use-package eldoc-box
-  :hook (eglot-managed-mode . eldoc-box-hover-at-point-mode))
+;;   :hook (eglot-managed-mode . eldoc-box-hover-at-point-mode))
+
+(use-package eldoc-mouse
+  :hook eldoc-mode)
 
 (provide 'init-eglot)

lisp/init-org.el

@@ -264,6 +264,7 @@ the element after the #+HEADER: tag."
          ("C-c n g" . org-roam-graph)
          ("C-c n i" . org-roam-node-insert)
          ("C-c n c" . org-roam-capture)
+         ("C-c n w" . org-roam-refile)
          ;; Dailies
          ("C-c n j" . org-roam-dailies-capture-today))
   :config
@@ -276,9 +277,30 @@ the element after the #+HEADER: tag."
 (use-package org-roam-ui)
 
 (use-package org-download
-  :after org)
+  :autoload org-download-clipboard
+  :hook ((org-mode dired-mode) . org-download-enable)
+  :bind (:map org-mode-map
+              ("C-M-y" . org-download-clipboard))
+  :config
+  (setq-default org-download-heading-lvl 1)
+  (defconst org-download-root-directory "./attachments/")
+  (defun set-org-download-directory ()
+    (create-directory-if-not-exists org-download-root-directory)
+    (make-local-variable 'org-download--dir)
+    (setq org-download-image-dir (concat  org-download-root-directory (buffer-name)))
+    (setq org-download-heading-lvl nil)
+    (setq org-attach-directory  org-download-image-dir)
+    (message "set-org-download-directory")
+    )
+
+    (add-hook 'org-mode-hook #'set-org-download-directory)
+  (setq-default org-download-method 'directory))
 
 (use-package valign
   :hook (org-mode . valign-mode))
 
+(use-package org-noter
+  :config
+  (use-package djvu))
+
 (provide 'init-org)

lisp/init-ui.el

@@ -20,8 +20,11 @@
 (use-package ef-themes :demand t)
 (use-package doric-themes
   :demand t
+  :bind ("<f5>" . doric-load-random)
   :init
   (mapc #'disable-theme custom-enabled-themes)
+  (defun doric-load-random ()
+    (interactive)
     (let* ((themes '(doric-plum
                      doric-fire
                      doric-oak
@@ -29,11 +32,11 @@
                      doric-wind
                      doric-beach
                      doric-earth
-                 doric-cherry
-                 doric-marble
                      doric-valley))
            (loaded (seq-random-elt themes)))
       (load-theme loaded :no-confirm)))
+  (doric-load-random)
+  )
 
 ;; (use-package doom-themes
 ;;   :demand t

lisp/init-utils.el

@@ -37,6 +37,8 @@
   (pdf-tools-install))
 
 (use-package keycast
-  :hook (elpaca-after-init . keycast-header-line-mode))
+  :hook (elpaca-after-init . keycast-tab-bar-mode)
+  :config
+  (setq keycast-mode-line-remove-tail-elements nil))
 
 (provide 'init-utils)