adding transparency

README.org

@@ -121,9 +121,9 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
 
 (defun chris/set-transparency ()
   "Set the frame to be transparent but not the text"
-  (set-frame-parameter (selected-frame) 'alpha-background 100)
+  (set-frame-parameter (selected-frame) 'alpha-background 85)
-  (add-to-list 'default-frame-alist '(alpha-background . 100))
+  (add-to-list 'default-frame-alist '(alpha-background . 85))
-  (add-to-list 'initial-frame-alist '(alpha-background . 100)))
+  (add-to-list 'initial-frame-alist '(alpha-background . 85)))
 
 (if (daemonp) (add-hook 'after-make-frame-functions
           (lambda (frame)
@@ -821,6 +821,7 @@ Part of this config includes some special capture templates for my work as a you
         org-odt-styles-file "/home/chris/org/style.odt"
         org-export-with-toc nil
         org-export-with-author nil
+        org-export-with-section-numbers nil
         org-todo-keywords
         '((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)")
           (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)"))
@@ -2110,11 +2111,6 @@ Vertico is an alternative to Selectrum. Maybe using it will give me an even bett
     "C-k" 'vertico-previous)
   )
 
-;; Persist history over Emacs restarts. Vertico sorts by history position.
-(use-package savehist
-  :init
-  (savehist-mode))
-
 ;; A few more useful configurations...
 (use-package emacs
   :init
@@ -2757,8 +2753,7 @@ Also here are some lisp specific stuff
 (use-package paredit
   :hook ((lisp-mode . enable-paredit-mode)
          (emacs-lisp-mode . enable-paredit-mode)
-         (scheme-mode . enable-paredit-mode)
+         (scheme-mode . enable-paredit-mode))
-         (prog-mode . enable-paredit-mode))
   :general
   ('normal lisp-mode-map
            "gl" 'paredit-forward-slurp-sexp
@@ -3162,7 +3157,7 @@ I'm making a small function in here to open files in the appropriate program usi
     "Open dired in Videos as file-manager in wm"
     (interactive)
     (with-selected-frame (make-frame '((name . "dired")))
-      (dired "~/Videos/")
+      (dired "/home/chris/vids/")
       (toggle-truncate-lines +1)))
 
   (defun chris/setup-dired ()
@@ -3427,8 +3422,8 @@ Ledger mode
   ;; shortcuts in the jumplist by pressing "J" in the mu4e buffer
   (setq mu4e-maildir-shortcuts
         '((:maildir "/cochrun/Archive"               :key ?a)
-          (:maildir "/cochrun/INBOX"                 :key ?i)
+          (:maildir "/cochrun/Inbox"                 :key ?i)
-          (:maildir "/office/INBOX"                  :key ?w)
+          (:maildir "/office/Inbox"                  :key ?w)
           (:maildir "/office/Junk Email"             :key ?j)
           (:maildir "/office/INBOX/Website Forms"    :key ?f)
           (:maildir "/office/Sent Items"             :key ?s)))

init.el

@@ -40,9 +40,9 @@
 
 (defun chris/set-transparency ()
   "Set the frame to be transparent but not the text"
-  (set-frame-parameter (selected-frame) 'alpha-background 100)
+  (set-frame-parameter (selected-frame) 'alpha-background 85)
-  (add-to-list 'default-frame-alist '(alpha-background . 100))
+  (add-to-list 'default-frame-alist '(alpha-background . 85))
-  (add-to-list 'initial-frame-alist '(alpha-background . 100)))
+  (add-to-list 'initial-frame-alist '(alpha-background . 85)))
 
 (if (daemonp) (add-hook 'after-make-frame-functions
           (lambda (frame)
@@ -552,6 +552,7 @@ much faster. The hope is to also make this a faster version of imenu."
         org-odt-styles-file "/home/chris/org/style.odt"
         org-export-with-toc nil
         org-export-with-author nil
+        org-export-with-section-numbers nil
         org-todo-keywords
         '((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)")
           (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)"))
@@ -1533,11 +1534,6 @@ All my (performant) foldings needs are met between this and `org-show-subtree'
     "C-k" 'vertico-previous)
   )
 
-;; Persist history over Emacs restarts. Vertico sorts by history position.
-(use-package savehist
-  :init
-  (savehist-mode))
-
 ;; A few more useful configurations...
 (use-package emacs
   :init
@@ -2062,8 +2058,7 @@ targets."
 (use-package paredit
   :hook ((lisp-mode . enable-paredit-mode)
          (emacs-lisp-mode . enable-paredit-mode)
-         (scheme-mode . enable-paredit-mode)
+         (scheme-mode . enable-paredit-mode))
-         (prog-mode . enable-paredit-mode))
   :general
   ('normal lisp-mode-map
            "gl" 'paredit-forward-slurp-sexp
@@ -2296,7 +2291,7 @@ targets."
     "Open dired in Videos as file-manager in wm"
     (interactive)
     (with-selected-frame (make-frame '((name . "dired")))
-      (dired "~/Videos/")
+      (dired "/home/chris/vids/")
       (toggle-truncate-lines +1)))
 
   (defun chris/setup-dired ()
@@ -2455,8 +2450,8 @@ targets."
   ;; shortcuts in the jumplist by pressing "J" in the mu4e buffer
   (setq mu4e-maildir-shortcuts
         '((:maildir "/cochrun/Archive"               :key ?a)
-          (:maildir "/cochrun/INBOX"                 :key ?i)
+          (:maildir "/cochrun/Inbox"                 :key ?i)
-          (:maildir "/office/INBOX"                  :key ?w)
+          (:maildir "/office/Inbox"                  :key ?w)
           (:maildir "/office/Junk Email"             :key ?j)
           (:maildir "/office/INBOX/Website Forms"    :key ?f)
           (:maildir "/office/Sent Items"             :key ?s)))

recentf

@@ -1,12 +1,8 @@
-;;; Automatically generated by ‘recentf’ on Wed Jun  7 20:58:32 2023.
+;;; Automatically generated by ‘recentf’ on Mon Jul 31 16:20:57 2023.
 
 (setq recentf-list
       '(
         "~/.emacs.d/init.el"
-        "~/.files/guix/home-configuration.scm"
-        "~/.emacs.d/README.org"
-        "~/.files/guix/system.scm"
-        "~/.files/guix/channels.scm"
         ))
 
 (setq recentf-filter-changer-current 'nil)