update

.config/doom/config.el

@@ -1,4 +1,5 @@
 (add-to-list 'load-path "~/.guix-profile/bin/guile")
+(add-to-list 'load-path "~/.guix-profile/share/emacs/site-lisp")
 
 ;; Match Emacs program path to be the same as user shell
 (defun set-exec-path-from-shell-PATH ()
@@ -238,68 +239,11 @@ that used by the user's shell."
 
 ;; (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'rymacs/org-babel-tangle-config)))
 
-(use-package org-roam
-  :init
-  (setq org-roam-v2-ack t)
-  :custom
-  (org-roam-directory "~/roam/notes/")
-  (org-roam-completion-everywhere t)
-  (org-roam-capture-templates
-   '(("d" "default" plain
-      "%?"
-      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
-      :unnarrowed t)
-     ("r" "resources" plain
-      (file "~/roam/templates/resource-template.org")
-      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
-      :unnarrowed t)
-     ("f" "files" plain
-      (file "~/roam/templates/res-file-note-temp.org")
-      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
-      :unnarrowed t)
-     ("c" "cli" plain
-      (file "~/roam/templates/commands-template.org")
-      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
-      :unnarrowed t)))
-  :bind (("C-c n l" . org-roam-buffer-toggle)
-         ("C-c n f" . org-roam-node-find)
-         ("C-c n i" . org-roam-node-insert)
-         ("C-c n I" . org-roam-node-insert-immediate)
-         ("C-c n p" . my/org-roam-find-project)
-         :map org-mode-map
-         ("C-M-i" . completion-at-point)
-         :map org-roam-dailies-map
-         ("Y" . org-roam-dailies-capture-yesterday)
-         ("T" . org-roam-dailies-capture-tomorrow))
-  :bind-keymap
-  ("C-c n d" . org-roam-dailies-map)
-  :config
-  (require 'org-roam-dailies) ;; Ensure the keymap is available
-  (org-roam-db-autosync-mode))
-
-;; Function to enable the ability to quickly insert a link without
-;; opening a capture buffer.
-(defun org-roam-node-insert-immediate (arg &rest args)
-  (interactive "P")
-  (let ((args (cons arg args))
-        (org-roam-capture-templates (list (append (car org-roam-capture-templates)
-                                                  '(:immediate-finish t)))))
-    (apply #'org-roam-node-insert args)))
-
-(use-package deft
-  :after org
-  :bind
-  ("C-c n d" . deft)
-  :custom
-  (deft-recursive t)
-  (deft-use-filter-string-for-filename t)
-  (deft-default-extension "org")
-  (deft-directory org-roam-directory))
-
 (after! sly
+  (load "/home/ry/quicklisp/clhs-use-local.el" t)
   (setq sly-lisp-implementations
         '((sbcl ("/bin/sbcl" "-L" "sbcl" "-Q" "run") :coding-system utf-8-unix)
-          (clozure-cl ("/usr/local/bin/ccl64")))))
+          (ccl ("/usr/local/bin/ccl64" :coding-system utf-8-unix)))))
 
 (defmacro define-sly-lisp (name)
   `(defun ,name ()  (interactive)  (let ((sly-default-lisp ',name))  (sly))))

.config/doom/packages.el

@@ -7,11 +7,8 @@
 
 (package! org-bullets)
 (package! modus-themes)
-(package! cider)
 (package! org-pomodoro)
 (package! visual-fill-column)
-(package! org-roam)
-(package! deft)
 (package! tide)
 (package! ob-racket
   :recipe (:host github :repo "hasu/emacs-ob-racket"))