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"

Emacs.org

@@ -10,6 +10,7 @@ This document contains the fundamental elements of my Emacs configuration. Chang
 I need to test that I can remove this still.
 
 #+begin_src emacs-lisp
+(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"
@@ -30,6 +31,9 @@ I need to test that I can remove this still.
 
 #+end_src
 
+#+RESULTS:
+: t
+
 * General Configuration
 
 #+begin_src emacs-lisp
@@ -246,6 +250,15 @@ Main Org/Agenda configuration.
 * Org Babel
 
 Org Babel allows us to evaluate source code blocks within org mode. With this functionality, we can tell org babel to insert the content of the source block codes into any file specified by using the org-babel-tangle function.
+** Racket Specific Language
+
+#+begin_src emacs-lisp
+(use-package ob-racket
+  :after org
+  :config
+  (add-hook 'ob-racket-pre-runtime-library-load-hook
+          #'ob-racket-raco-make-runtime-library))
+#+end_src
 
 ** Babel Languages
 
@@ -256,6 +269,7 @@ Org Babel allows us to evaluate source code blocks within org mode. With this fu
   (org-babel-do-load-languages
    'org-babel-load-languages
    '((emacs-lisp . t)
+     (racket . t)
      (python . t)
      (scheme . t)
      (javascript . t)
@@ -285,7 +299,8 @@ Here we use a package called org-tempo.
   (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")))
 #+end_src
 
 
@@ -404,14 +419,14 @@ Account Information:
         (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")))))