# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1717823538 14400
# Node ID a698dd5de562edd343b359d8b851933aec383f92
# Parent  af3d873a03120a32f1aa3b0eddcf077c0dd2537d
babel setup

diff -r af3d873a0312 -r a698dd5de562 .hgignore
--- a/.hgignore	Sat Jun 08 00:20:52 2024 -0400
+++ b/.hgignore	Sat Jun 08 01:12:18 2024 -0400
@@ -12,6 +12,7 @@
 .*[.]a$
 .*[.]core$
 .*[.]elc$
+emacs/.*[.]html$
 c/.*
 .*dist/.*
 [.]stash/.*
\ No newline at end of file
diff -r af3d873a0312 -r a698dd5de562 emacs/babel.org
--- a/emacs/babel.org	Sat Jun 08 00:20:52 2024 -0400
+++ b/emacs/babel.org	Sat Jun 08 01:12:18 2024 -0400
@@ -1,5 +1,11 @@
 #+title: babel
 #+author: Richard Westhaver
 #+description: Core Library of Babel
-#+setupfile: clean.theme
+#+setupfile: https://cdn.compiler.company/org/clean.theme
 #+PROPERTY: header-args :eval never-export
+
+Welcome to the Core [[https://www.gnu.org/software/emacs/manual/html_node/org/Library-of-Babel.html][Library of Babel]]. This file contains a
+collection of code blocks used throughout our Org documents.
+
+To load the library use ~C-c C-v i~
+
diff -r af3d873a0312 -r a698dd5de562 emacs/default.el
--- a/emacs/default.el	Sat Jun 08 00:20:52 2024 -0400
+++ b/emacs/default.el	Sat Jun 08 01:12:18 2024 -0400
@@ -7,7 +7,8 @@
 (put 'list-timers 'disabled nil)
 (setq show-paren-context-when-offscreen 'overlay)
 (setopt
- ;; tabs = bad
+ org-safe-remote-resources '("\\`https://cdn\\.compiler\\.company/org/clean\\.theme\\'")
+ ;; tabs = bad (unless in makefile..)
  indent-tabs-mode nil
  make-backup-files nil
  auto-save-list-file-prefix (expand-file-name "auto-save/." user-emacs-directory)
@@ -64,6 +65,7 @@
 (defvar company-name "The Compiler Company, LLC")
 (defvar company-vc-domain "vc.compiler.company")
 (defvar company-home "the.compiler.company")
+(defvar company-cdn-url "https://cdn.compiler.company")
 
 ;;; Theme
 (defun load-default-theme () (interactive) (load-theme default-theme))
@@ -746,6 +748,8 @@
     (cond ((eq major-mode 'org-mode) (org-todo))
           ((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
 
+(defun org-agenda-show-week-all (&optional arg ) (interactive "P") (org-agenda arg "n"))
+
 (defun org-ask-location ()
   "prompt for a location\"\""
   (let* ((org-refile-targets '((nil :maxlevel . 9)))
diff -r af3d873a0312 -r a698dd5de562 emacs/keys.el
--- a/emacs/keys.el	Sat Jun 08 00:20:52 2024 -0400
+++ b/emacs/keys.el	Sat Jun 08 01:12:18 2024 -0400
@@ -87,6 +87,7 @@
   "f" #'load-file
   "u" #'compile
   "a" #'org-agenda
+  "A" #'org-agenda-show-week-all
   "<return>" #'shell
   "C-<return>" #'term
   "S-<return>" #'eshell-new