2026-08-19T13:06:01+02:00

2 files changed, 114 insertions, 37 deletions

diff --git a/config.el b/config.el
index e2a64c6..215c2f2 100644
--- a/config.el
+++ b/config.el
@@ -2241,12 +2241,7 @@ Timers that expired while Emacs was closed fire immediately."
   (company-backends '(company-capf))
   :config
   (defun my/company-limit-candidates (candidates)
-    (seq-take candidates 4))
-
-  (define-key company-mode-map [remap indent-for-tab-command]
-              #'company-manual-begin)
-  (define-key company-mode-map [remap c-indent-line-or-region]
-              #'company-manual-begin))
+    (seq-take candidates 4)))
 
 (use-package which-key
   :ensure t
@@ -2273,20 +2268,6 @@ Timers that expired while Emacs was closed fire immediately."
   ;; completion functions takes precedence over the global list.
   (add-hook 'completion-at-point-functions #'cape-file))
 
-(use-package embark
-  :ensure (:wait t)
-  :defer t
-  :bind
-  (("C-." . embark-act)
-   ("M-." . embark-dwim)
-   ("C-h B" . embark-bindings)
-   :map minibuffer-local-map
-   ("C-c C-a" . embark-act-all)
-   ("C-c C-e" . embark-export)
-   ("C-c C-o" . embark-collect))
-  :init
-  (setq prefix-help-command #'embark-prefix-help-command))
-
 (use-package helm
   :ensure (:wait t)
   :hook
@@ -2315,7 +2296,7 @@ Timers that expired while Emacs was closed fire immediately."
      "\\`\\*elpaca-log\\*\\'"
      "\\`\\*Native-compile-Log\\*\\'"
      "\\`\\*Async-native-compile-log\\*\\'"))
-  (helm-display-function #'helm-display-buffer-in-own-frame)
+  ;; (helm-display-function #'helm-display-buffer-in-own-frame)
   :bind (:map helm-map
               ("C-j" . helm-next-line)
               ("C-k" . helm-previous-line)))
@@ -2402,6 +2383,13 @@ Timers that expired while Emacs was closed fire immediately."
       (kbd "g r") #'citre-jump-to-reference
       (kbd "g b") #'citre-jump-back)))
 
+(use-package nov
+  :ensure t
+  :mode ("\\.epub\\'" . nov-mode)
+  :hook (nov-mode . visual-line-mode)
+  :custom
+  (nov-text-width 100))
+
 (use-package typst-ts-mode
   :ensure t
   :mode "\\.typ\\'")
@@ -2883,8 +2871,6 @@ so the working-tree diff stays visible until the user explicitly stages."
 (blink-cursor-mode 0)
 (setq-default cursor-type 'box)
 
-(defvar cashmere/font-height 180)
-
 (defun cashmere/set-fonts (&optional frame)
   "Apply the MapleMono faces, but only on graphical frames.
 Runs per-frame so a TTY-only daemon never touches fonts while GUI frames
@@ -3030,6 +3016,8 @@ still require a restart since elpaca queues run at init time."
 (use-package projectile
   :ensure (:wait t)
   :demand t
+  :bind-keymap
+  (("C-x p" . projectile-command-map))
   :config
   (projectile-mode +1)
   (setq projectile-completion-system 'default
@@ -3483,7 +3471,6 @@ workspace (e.g. *scratch*)."
   "fr" '(helm-recentf :wk "recent files")
   "ff" '(helm-find-files :wk "find file")
   "fs" '(save-buffer :wk "save file")
-
   "b" '(:ignore t :wk "buffer/bookmarks")
   "bb" '(helm-filtered-bookmarks :wk "display current bookmarks")
   "bi" '(my/ibuffer-workspace :wk "ibuffer (workspace)")
@@ -4297,7 +4284,7 @@ opening another file in same project does not re-notify."
   (minimal-dashboard-text (lambda () (format "started in %s" (emacs-init-time))))
 
   ;; Multi-line text (with center alignment) is also supported
-  ;; (minimal-dashboard-text "My multiline\nstring is here")
+  (minimal-dashboard-text "You never quit Emacs\nYou just die at some point")
 
   ;; Click support for image
   ;; (minimal-dashboard-image-click-handler
@@ -4318,4 +4305,92 @@ opening another file in same project does not re-notify."
   (minimal-dashboard-enable-resize-handling t) ;; to refresh when buffer is resized
   (minimal-dashboard-modeline-shown t)) ;; visibility of the modeline
 
+(use-package rsync-ui
+  :ensure nil
+  :commands (rsync-ui rsync-ui-dired)
+  :bind (:map dired-mode-map
+              ("C-c r" . rsync-ui-dired))
+  :init
+  (with-eval-after-load 'general
+    (my-leader "or" '(rsync-ui :wk "rsync"))))
+
+(defun rlr/org-export-html-to-browser ()
+  "Export the current Org buffer to a temporary HTML file in the system temp directory, open it, and then delete it when Emacs is killed."
+  (interactive)
+  (unless (derived-mode-p 'org-mode)
+    (user-error "Not in an Org buffer"))
+  (let* ((tmp (make-temp-file "org-preview-" nil ".html"))
+         (org-export-in-background nil)
+         (org-html-head-include-default-style nil)
+         (org-html-head-include-scripts nil)
+         (org-html-head rlr/org-preview-css)
+         (org-html-validation-link nil))
+    (org-export-to-file 'html tmp)
+    (add-hook 'kill-emacs-hook
+              (lambda () (ignore-errors (delete-file tmp))))
+    (funcall browse-url-secondary-browser-function
+             (browse-url-file-url tmp))))
+(defvar rlr/org-preview-css "
+<style>
+  :root { color-scheme: light dark; }
+  body {
+    max-width: 40rem;
+    margin: 3rem auto;
+    padding: 0 1.25rem;
+    font-family: -apple-system, BlinkMacSystemFont, 'Iowan Old Style','Palatino Linotype', Georgia, serif;
+    font-size: 1.125rem;
+    line-height: 1.65;
+    color: #24292f;
+    background: #fdfdfc;
+    text-rendering: optimizeLegibility;
+    hyphens: auto;
+  }
+  h1, h2, h3, h4 {
+    font-family: -apple-system, BlinkMacSystemFont, 'Helvetica Neue', sans-serif;
+    line-height: 1.25;
+    margin-top: 2.25em;
+    color: #14181c;
+  }
+  h1 { font-size: 1.9rem; margin-bottom: 0.2em; }
+  h2 { font-size: 1.45rem; }
+  h3 { font-size: 1.2rem; }
+  .title { text-align: left; margin-bottom: 2rem; }
+  #table-of-contents { font-size: 0.95rem; }
+  a { color: #0b5cad; text-underline-offset: 2px; }
+  blockquote {
+    margin: 1.5em 0; padding: 0.25em 0 0.25em 1.25em;
+    border-left: 3px solid #d0d7de; color: #4a5058; font-style: italic;
+  }
+  pre, code { font-family: 'SF Mono', Menlo, Consolas, monospace; font-size: 0.9rem; }
+  pre {
+    background: #f4f4f2; padding: 0.9em 1.1em;
+    border-radius: 6px; overflow-x: auto; line-height: 1.45;
+  }
+  code { background: #f0f0ee; padding: 0.1em 0.3em; border-radius: 3px; }
+  pre code { background: none; padding: 0; }
+  table { border-collapse: collapse; margin: 1.5em 0; font-size: 0.95rem; }
+  th, td { border: 1px solid #d0d7de; padding: 0.4em 0.7em; text-align: left; }
+  th { background: #f4f4f2; }
+  hr { border: none; border-top: 1px solid #d8d8d4; margin: 2.5em 0; }
+  .footpara { display: inline; }
+  #postamble { margin-top: 3rem; font-size: 0.85rem; color: #6a707a; }
+  @media (prefers-color-scheme: dark) {
+    body { color: #d6d3cd; background: #16181a; }
+    h1, h2, h3, h4 { color: #f0ede8; }
+    a { color: #6cb3f5; }
+    blockquote { border-left-color: #3a3f45; color: #a8a49d; }
+    pre { background: #1e2124; }
+    code { background: #24282c; }
+    th, td { border-color: #3a3f45; }
+    th { background: #1e2124; }
+    hr { border-top-color: #2e3236; }
+  }
+</style>"
+  "Stylesheet injected into throwaway HTML previews of Org buffers.")
+
+(use-package javelin
+  :ensure t
+  :config
+  (global-javelin-minor-mode 1))
+
 (provide 'init)
diff --git a/config.org b/config.org
index 5c7fa8e..9ea7d64 100644
--- a/config.org
+++ b/config.org
@@ -999,7 +999,6 @@ let's give agent-shell another try
   :ensure (:host nil :repo "ssh://git@git.cashmere.rs/agent-shell-sidebar.git"))
 #+end_src
 
-
 * eldoc
 
 #+begin_src emacs-lisp
@@ -1720,10 +1719,6 @@ Skips capture tasks and projects."
 
 #+end_src
 
-
-** harper
-
-
 * org-capture
 
 *** org-capture combined with denote
@@ -1795,7 +1790,6 @@ Skips capture tasks and projects."
   :after org-super-agenda)
 #+end_src
 
-
 ** agenda
 
 #+begin_src emacs-lisp
@@ -2625,7 +2619,7 @@ Auto switch silos (different workspaces/folders) based on preconfigured director
   (add-hook 'completion-at-point-functions #'cape-file))
 #+end_src
 
-* embark
+* COMMENT embark
 
 #+begin_src emacs-lisp
 (use-package embark
@@ -3463,8 +3457,6 @@ Native =undo-redo= (via =evil-undo-system='undo-redo=); just raise the undo limi
 (blink-cursor-mode 0)
 (setq-default cursor-type 'box)
 
-(defvar cashmere/font-height 180)
-
 (defun cashmere/set-fonts (&optional frame)
   "Apply the MapleMono faces, but only on graphical frames.
 Runs per-frame so a TTY-only daemon never touches fonts while GUI frames
@@ -3568,7 +3560,6 @@ moved to local.el
       (funcall fn dps))))
 #+end_src
 
-
 * zoxide
 
 #+begin_src emacs-lisp
@@ -3676,6 +3667,8 @@ still require a restart since elpaca queues run at init time."
 (use-package projectile
   :ensure (:wait t)
   :demand t
+  :bind-keymap
+  (("C-x p" . projectile-command-map))
   :config
   (projectile-mode +1)
   (setq projectile-completion-system 'default
@@ -4170,7 +4163,6 @@ workspace (e.g. *scratch*)."
   "fr" '(helm-recentf :wk "recent files")
   "ff" '(helm-find-files :wk "find file")
   "fs" '(save-buffer :wk "save file")
-
   "b" '(:ignore t :wk "buffer/bookmarks")
   "bb" '(helm-filtered-bookmarks :wk "display current bookmarks")
   "bi" '(my/ibuffer-workspace :wk "ibuffer (workspace)")
@@ -5114,7 +5106,7 @@ opening another file in same project does not re-notify."
   (minimal-dashboard-text (lambda () (format "started in %s" (emacs-init-time))))
 
   ;; Multi-line text (with center alignment) is also supported
-  ;; (minimal-dashboard-text "My multiline\nstring is here")
+  (minimal-dashboard-text "You never quit Emacs\nYou just die at some point")
 
   ;; Click support for image
   ;; (minimal-dashboard-image-click-handler
@@ -5228,6 +5220,16 @@ opening another file in same project does not re-notify."
 #+end_src
 
 
+* javelin
+
+#+begin_src emacs-lisp
+(use-package javelin
+  :ensure t
+  :config
+  (global-javelin-minor-mode 1))
+#+end_src
+
+
 * provide init
 
 #+begin_src emacs-lisp