Added ob-racket, babel languages, various

.config/doom/config.el

@@ -1,3 +1,4 @@
+(add-to-list 'load-path "~/bin/emacs-ob-racket")
 ;; Some functionality uses this to identify you, e.g. GPG configuration, email
 ;; clients, file templates and snippets.
 (setq user-full-name "Ry"
@@ -178,11 +179,18 @@
 (use-package visual-fill-column
   :hook (org-mode . rymacs/org-mode-visual-fill))
 
+(use-package ob-racket
+  :after org
+  :config
+  (add-hook 'ob-racket-pre-runtime-library-load-hook
+          #'ob-racket-raco-make-runtime-library))
+
 ;; Load languages for babel code blocks.
 (with-eval-after-load 'org
   (org-babel-do-load-languages
    'org-babel-load-languages
    '((emacs-lisp . t)
+     (racket . t)
      (python . t)
      (scheme . t)
      (javascript . t)
@@ -204,7 +212,8 @@
   (add-to-list 'org-structure-template-alist '("scm" . "src scheme"))
   (add-to-list 'org-structure-template-alist '("js" . "src javascript"))
   (add-to-list 'org-structure-template-alist '("html" . "src html"))
-  (add-to-list 'org-structure-template-alist '("css" . "src css")))
+  (add-to-list 'org-structure-template-alist '("css" . "src css"))
+  (add-to-list 'org-structure-template-alist '("rt" . "src racket")))
 
 ;; ;; Define a function that automatically executes rymacs/org-babel-tangle-config (a wrapper around org-babel-tangle) when saving this file.
 ;; (defun rymacs/org-babel-tangle-config ()
@@ -288,14 +297,14 @@
         (list
          ;; Opal.sh
          (make-mu4e-context
-          :name "Opal.sh"
+          :name "Ry P."
           :match-func
           (lambda (msg)
             (when msg
               (string-prefix-p "/opal.sh" (mu4e-message-field msg :maildir))))
 
           :vars '((user-mail-address . "ry@opal.sh")
-                  (user-full-name . "Opal.sh")
+                  (user-full-name . "Ry P.")
                   (mu4e-drafts-folder . "/opal.sh/Drafts")
                   (mu4e-sent-folder . "/opal.sh/Sent")
                   (mu4e-trash-folder . "/opal.sh/Trash")))))

.config/doom/packages.el

@@ -13,7 +13,8 @@
 (package! org-roam)
 (package! deft)
 (package! tide)
-
+(package! ob-racket
+  :recipe (:host github :repo "hasu/emacs-ob-racket"))
 
 ;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror:
 ;(package! some-package)

.config/user-dirs.dirs

@@ -4,12 +4,12 @@
 # Format is XDG_xxx_DIR="$HOME/yyy", where yyy is a shell-escaped
 # homedir-relative path, or XDG_xxx_DIR="/yyy", where /yyy is an
 # absolute path. No other format is supported.
-#
-XDG_DESKTOP_DIR="$HOME/"
-XDG_DOWNLOAD_DIR="$HOME/dls"
-XDG_TEMPLATES_DIR="$HOME/"
-XDG_PUBLICSHARE_DIR="$HOME/"
-XDG_DOCUMENTS_DIR="$HOME/docs"
-XDG_MUSIC_DIR="$HOME/music"
-XDG_PICTURES_DIR="$HOME/pics"
-XDG_VIDEOS_DIR="$HOME/"
+# 
+XDG_DESKTOP_DIR="$HOME/Desktop"
+XDG_DOWNLOAD_DIR="$HOME/Downloads"
+XDG_TEMPLATES_DIR="$HOME/Templates"
+XDG_PUBLICSHARE_DIR="$HOME/Public"
+XDG_DOCUMENTS_DIR="$HOME/Documents"
+XDG_MUSIC_DIR="$HOME/Music"
+XDG_PICTURES_DIR="$HOME/Pictures"
+XDG_VIDEOS_DIR="$HOME/Videos"