Added ob-racket, babel languages, various

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")))))