summaryrefslogtreecommitdiff
path: root/dotfiles/.emacs.d
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2020-07-12 10:00:09 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2020-07-12 10:00:09 -0400
commitf0e7bc14ab6f77eb35d7f3bfb0fe1440d4428e8e (patch)
tree1810b2853fcaec6b9b1c2b5e630060a23e978a42 /dotfiles/.emacs.d
parent8dc62550ce4220aca473b9e377e8c9c9cd340881 (diff)
Big ol' backlog of previously uncommitted changes.
Diffstat (limited to 'dotfiles/.emacs.d')
-rw-r--r--dotfiles/.emacs.d/init.el10
1 files changed, 8 insertions, 2 deletions
diff --git a/dotfiles/.emacs.d/init.el b/dotfiles/.emacs.d/init.el
index 822961c..eba9d62 100644
--- a/dotfiles/.emacs.d/init.el
+++ b/dotfiles/.emacs.d/init.el
@@ -1,9 +1,11 @@
-;; Turn off mouse interface early in startup to avoid momentary display
+(require 'cl)
;; 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.
+(require 'package)
+(add-to-list 'package-archives (cons "melpa-stable" "https://stable.melpa.org/packages/") t)
(package-initialize)
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
@@ -240,7 +242,8 @@ might be bad."
(when-require 'paredit
(use-mode-for-lisp paredit-mode))
-(when-require 'geiser-install
+(when-require 'geiser
+ (require 'geiser-guile)
(setf geiser-active-implementations '(guile))
(global-set-key (kbd "C-c s") 'connect-to-guile))
@@ -317,11 +320,14 @@ indentation."
(interactive)
(geiser-connect 'guile "localhost" "37147"))
+(put 'run-script 'scheme-indent-function 1)
(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 'sxml-match 'scheme-indent-function 1)
+(put 'substitute-keyword-arguments 'scheme-indent-function 1)
+(put 'modify-phases 'scheme-indent-function 1)
;;;
;;; Ruby