From 161e57ba200961f430e0538a72bf3b7a19b3781d Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 26 May 2015 08:57:03 -0400 Subject: emacs: Update config. --- dotfiles/.emacs.d/init.el | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) diff --git a/dotfiles/.emacs.d/init.el b/dotfiles/.emacs.d/init.el index 54a0b0a..5ae1970 100644 --- a/dotfiles/.emacs.d/init.el +++ b/dotfiles/.emacs.d/init.el @@ -6,6 +6,9 @@ ;; No splash screen. (setf inhibit-startup-message t) +;; Maximize frames +(add-to-list 'default-frame-alist '(fullscreen . maximized)) + ;;; ;;; Packages ;;; @@ -16,7 +19,7 @@ (package-initialize) ;; Additional packages that I use. -(setq required-packages +(setf required-packages '(better-defaults elfeed emms @@ -218,17 +221,18 @@ might be bad." (show-paren-mode t) +(defmacro use-mode-for-lisp (mode) + `(progn + (add-hook 'emacs-lisp-mode-hook (lambda () (,mode t))) + (add-hook 'lisp-mode-hook (lambda () (,mode t))) + (add-hook 'lisp-interaction-mode-hook (lambda () (,mode t))) + (add-hook 'scheme-mode-hook (lambda () (,mode t))))) + (when-require 'rainbow-delimiters - (global-rainbow-delimiters-mode t)) + (use-mode-for-lisp rainbow-delimiters-mode)) (when-require 'paredit - (defun use-paredit () - (paredit-mode t)) - - (add-hook 'emacs-lisp-mode-hook 'use-paredit) - (add-hook 'lisp-mode-hook 'use-paredit) - (add-hook 'lisp-interaction-mode-hook 'use-paredit) - (add-hook 'scheme-mode-hook 'use-paredit)) + (use-mode-for-lisp paredit-mode)) (when-require 'geiser (setf geiser-active-implementations '(guile)) @@ -311,8 +315,8 @@ might be bad." ;;; (when-require 'notmuch - (when-require 'notmuch-unread - (notmuch-unread-mode 1)) + ;; (when-require 'notmuch-unread + ;; (notmuch-unread-mode 1)) (global-set-key (kbd "C-c m") 'notmuch) -- cgit v1.2.3