From: Frederik Vanrenterghem <frederik@vanrenterghem.biz>
Date: Mon, 3 Mar 2025 13:53:56 +0000 (+0800)
Subject: Improve R, music, spelling, note-taking and file browsing.
X-Git-Url: http://git.vanrenterghem.biz/Dotty.git/commitdiff_plain/0c9cb76069ba4951e8acd4edf8dc6072e2b51bf0?ds=inline

Improve R, music, spelling, note-taking and file browsing.
---

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index dec61b7..e5c157d 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -53,6 +53,9 @@ vc-follow-symlinks t
 (load "/usr/share/emacs/site-lisp/ess/lisp/ess-site")
 (setq inferior-julia-program-name "/usr/bin/julia")
 
+(use-package ess-view-data
+  :ensure t)
+
 ;; enable autocomplete
 (use-package corfu
   :ensure t
@@ -183,6 +186,8 @@ vc-follow-symlinks t
   ;; Usually a good idea to set the timezone manually
   (setq org-icalendar-timezone "Australia/Perth"))
 
+(use-package org-protocol)
+
 (use-package tex
   :ensure auctex
   :config
@@ -232,10 +237,24 @@ vc-follow-symlinks t
  ;; If there is more than one, they won't work right.
  '(browse-url-browser-function 'browse-url-firefox)
  '(custom-safe-themes
-   '("8d146df8bd640320d5ca94d2913392bc6f763d5bc2bb47bed8e14975017eea91" "9a977ddae55e0e91c09952e96d614ae0be69727ea78ca145beea1aae01ac78d2" "0cf95236abcf59e05b1ea69b4edd53d293a5baec4fe4c3484543fee99bfd2204" "80b00f3bf7cdbdca6c80aadfbbb03145f3d0aacf6bf2a559301e61109954e30a" default))
+   '("8d146df8bd640320d5ca94d2913392bc6f763d5bc2bb47bed8e14975017eea91"
+     "9a977ddae55e0e91c09952e96d614ae0be69727ea78ca145beea1aae01ac78d2"
+     "0cf95236abcf59e05b1ea69b4edd53d293a5baec4fe4c3484543fee99bfd2204"
+     "80b00f3bf7cdbdca6c80aadfbbb03145f3d0aacf6bf2a559301e61109954e30a"
+     default))
  '(org-export-backends '(ascii html icalendar latex md odt))
  '(package-selected-packages
-   '(devdocs straight calfw calfw-org engrave-faces org-caldav nov eat mu4e ellama emms mpdel-embark libmpdel pass password-store fontaine osm orderless embark-consult embark consult jinx dired-preview ftable flx nerd-icons-dired nerd-icons all-the-icons-dired marginalia vertico denote ox-rss org-ql org-contrib mustache org-static-blog haskell-mode julia-mode elfeed-protocol ack company magit auctex lsp-mode elpy ## org htmlize leuven-theme lua-mode ess-smart-underscore ess-R-data-view ess))
+   '(## ack all-the-icons-dired auctex calfw calfw-org company consult
+	    consult-denote denote devdocs dired-preview
+	    dired-quick-sort eat elfeed-protocol ellama elpy embark
+	    embark-consult emms engrave-faces ess ess-R-data-view
+	    ess-smart-underscore ess-view-data flx fontaine ftable
+	    haskell-mode htmlize jinx julia-mode leuven-theme libmpdel
+	    lsp-mode lua-mode magit marginalia mpdel-embark mu4e
+	    mustache nerd-icons nerd-icons-dired nov orderless org
+	    org-caldav org-contrib org-ql org-static-blog osm ox-rss
+	    pass password-store powerthesaurus request straight
+	    vertico))
  '(use-package-compute-statistics t))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
@@ -363,6 +382,7 @@ vc-follow-symlinks t
               (replace-match outfile t t nil 2)))
 	  (mapcar #'shell-command cmds)))))
   (add-hook 'message-send-hook 'mu4e-resize-image-attachments)
+  (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode) ;; Attach files to messages using dired C-c RET C-a
   (defun mu4e-inhibit-resize()
     (interactive)
     (set (make-local-variable 'mu4e-inhibit-resize) t)))
@@ -445,6 +465,25 @@ vc-follow-symlinks t
   (keymap-global-set "M-$" #'jinx-correct)
   :hook (emacs-startup . global-jinx-mode))
 
+(use-package powerthesaurus
+  :ensure t
+  :init
+  (require 'transient)
+  (transient-define-prefix my/transient-spelling ()
+    "Spelling commands"
+    ["Spelling"
+      ["Lookups"
+        ("y" "Synonyms" powerthesaurus-lookup-synonyms-dwim)
+        ("a" "Antonyms" powerthesaurus-lookup-antonyms-dwim)]
+      ["Spelling Tools"
+        ("x" "Jinx" jinx-mode)
+        ("c" "Jinx correct" jinx-correct)]
+      ["Dictionary"
+        ("d" "Lookup" dictionary-lookup-definition)]
+      ["Miscellaneous"
+        ("q" "Quit" transient-quit-one)]])
+  :bind
+  ("C-c s" . my/transient-spelling))
 
 ;; Bind embark
 (use-package embark
@@ -482,6 +521,9 @@ vc-follow-symlinks t
   (consult-mu-action #'consult-mu--view-action)
   )
 
+(use-package consult-denote
+  :ensure t)
+
 ;; Configure `world-clock'
 (use-package time
   :ensure nil
@@ -572,6 +614,21 @@ vc-follow-symlinks t
   :bind
   ("C-h D" . devdocs-lookup))
 
+(use-package emms
+  :ensure t
+  :config
+  (require 'emms-setup)
+  (require 'emms-player-mpd)
+  (emms-all) ; don't change this to values you see on stackoverflow questions if you expect emms to work
+  (setq emms-player-list '(emms-player-mpd))
+  (add-to-list 'emms-info-functions 'emms-info-mpd)
+  (add-to-list 'emms-player-list 'emms-player-mpd)
+  
+  ;; Socket is not supported
+  (setq emms-player-mpd-server-name "mea-hookani-pila")
+  (setq emms-player-mpd-server-port "6600")
+  (emms-player-mpd-connect))
+
 ;; Custom functions
 
 ;; Might want to run this automatically