summaryrefslogtreecommitdiff
path: root/dotfiles/.emacs.d
diff options
context:
space:
mode:
Diffstat (limited to 'dotfiles/.emacs.d')
-rw-r--r--dotfiles/.emacs.d/erc.el7
-rw-r--r--dotfiles/.emacs.d/init.el50
2 files changed, 23 insertions, 34 deletions
diff --git a/dotfiles/.emacs.d/erc.el b/dotfiles/.emacs.d/erc.el
index 85b4670..5461f15 100644
--- a/dotfiles/.emacs.d/erc.el
+++ b/dotfiles/.emacs.d/erc.el
@@ -1,7 +1,7 @@
(require 'erc)
(require 'erc-log)
(require 'erc-notify)
-(require 'erc-spelling)
+;;(require 'erc-spelling)
(require 'erc-autoaway)
(require 'erc-services)
(require 'notifications)
@@ -64,7 +64,7 @@
(erc-truncate-mode 1)
;; enable spell checking
-(erc-spelling-mode 0)
+;;(erc-spelling-mod 0)
;; utf-8 always and forever
(setq erc-server-coding-system '(utf-8 . utf-8))
@@ -72,8 +72,7 @@
;; Auto-join channels
(erc-autojoin-mode t)
(setq erc-autojoin-channels-alist
- '(("freenode.net" "#guile" "#guix" "#emacs" "#scheme"
- "#lispgames" "#fsf" "#gnu" "#sly")
+ '(("freenode.net" "#guile" "#guix" "#lispgames" "#librelounge")
("slack.com" "#general" "#random" "#ops" "#techeng"
"#church-of-emacs")))
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
;;;