Update a ton of files that have sat on my computer forever.

1 files changed, 20 insertions, 30 deletions

diff --git a/dotfiles/.emacs.d/init.el b/dotfiles/.emacs.d/init.el
index 50222da..6311ecd 100644
--- a/dotfiles/.emacs.d/init.el
+++ b/dotfiles/.emacs.d/init.el
@@ -1,4 +1,11 @@
 ;; Turn off mouse interface early in startup to avoid momentary display
+
+;; Added by Package.el.  This must come before configurations of
+;; installed packages.  Don't delete this line.  If you don't want it,
+;; just comment it out by adding a semicolon to the start of the line.
+;; You may delete these explanatory comments.
+(package-initialize)
+
 (if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
 (if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
 (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
@@ -29,7 +36,7 @@
 (add-to-list 'load-path
              (home-file "/.guix-profile/share/emacs/site-lisp"))
 
-(when-require 'guix-init
+(when-require 'guix-autoloads
   (setf guix-dot-program (concat (getenv "HOME") "/.guix-profile/bin/dot")))
 
 ;;;
@@ -310,36 +317,12 @@ indentation."
   (interactive)
   (geiser-connect 'guile "localhost" "37147"))
 
-(defun connect-to-dmd ()
-  "Connect to dmd's REPL server."
-  (interactive)
-  (geiser-connect 'guile "localhost" "37148"))
-
 (put 'and-let* 'scheme-indent-function 1)
 (put 'syntax-parameterize 'scheme-indent-function 1)
 (put 'with-mutex 'scheme-indent-function 1)
 (put 'test-group 'scheme-indent-function 1)
-(put 'mock 'scheme-indent-function 1)
 (put 'sxml-match 'scheme-indent-function 1)
 
-;; TODO: Move to relevant project's .dir-locals.el
-(put 'colambda 'scheme-indent-function 1)
-(put 'codefine 'scheme-indent-function 1)
-(put 'with-agenda 'scheme-indent-function 1)
-(put 'with-mesh 'scheme-indent-function 1)
-(put 'with-texture 'scheme-indent-function 1)
-(put 'with-shader-program 'scheme-indent-function 1)
-(put 'with-window 'scheme-indent-function 1)
-(put 'bind-key-commands 'scheme-indent-function 2)
-(put 'signal-let 'scheme-indent-function 1)
-(put 'signal-let* 'scheme-indent-function 1)
-(put 'with-framebuffer 'scheme-indent-function 1)
-(put 'with-render-context 'scheme-indent-function 1)
-(put 'with-push-context 'scheme-indent-function 1)
-(put 'with-temp-transform 'scheme-indent-function 2)
-(put 'chain 'scheme-indent-function 1)
-(put 'call-with-input-bytevector 'scheme-indent-function 1)
-
 ;;;
 ;;; Ruby
 ;;;
@@ -482,11 +465,11 @@ the 'inbox' tag."
       smtpmail-stream-type 'starttls)
 
 ;; Work email
-(when (equalp system-name "7VWJD42")
-  (setf send-mail-function 'smtpmail-send-it
-        smtpmail-smtp-server "EXCHANGE02.vhl.dom"
-        smtpmail-smtp-service 587
-        smtpmail-stream-type 'starttls))
+;; (when (equalp system-name "7VWJD42")
+;;   (setf send-mail-function 'smtpmail-send-it
+;;         smtpmail-smtp-server "EXCHANGE02.vhl.dom"
+;;         smtpmail-smtp-service 587
+;;         smtpmail-stream-type 'starttls))
 
 ;;;
 ;;; Calendar
@@ -521,6 +504,13 @@ the 'inbox' tag."
   (global-set-key (kbd "C-c e b") 'emms-browser))
 
 ;;;
+;;; GPG
+;;;
+
+(setf epg-gpg-program "gpg")
+(setf epa-pinentry-mode 'loopback)
+
+;;;
 ;;; Other
 ;;;