278 lines
9.0 KiB
EmacsLisp
278 lines
9.0 KiB
EmacsLisp
;;; em-emacs.el --- Module file for configuring Emacs itself.
|
|
;;
|
|
;; Copyright (C) 2017 Wojciech Kozlowski
|
|
;;
|
|
;; Author: Wojciech Kozlowski <wk@wojciechkozlowski.eu>
|
|
;; Created: 25 Aug 2017
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; Commentary:
|
|
;;
|
|
;; This module is used for generic Emacs configuration.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
;;; Required packages:
|
|
|
|
;;; Code:
|
|
|
|
(defvar emodule/em-emacs-packages
|
|
|
|
'(discover-my-major
|
|
help+
|
|
help-fns+
|
|
help-mode+
|
|
ibuffer-vc
|
|
info+
|
|
rainbow-mode
|
|
sr-speedbar
|
|
which-key
|
|
use-package)
|
|
|
|
)
|
|
|
|
;;; Configuration:
|
|
|
|
(defun emodule/em-emacs-init ()
|
|
"Initialise the `em-emacs' module."
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Help extensions.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(use-package info+)
|
|
|
|
(use-package discover-my-major
|
|
:init
|
|
(global-unset-key (kbd "C-h h"))
|
|
:bind
|
|
(("C-h h m" . discover-my-major)))
|
|
|
|
(use-package help+)
|
|
|
|
(use-package help-fns+)
|
|
|
|
(use-package help-mode+)
|
|
|
|
(use-package which-key
|
|
:init
|
|
(setq which-key-separator " ")
|
|
(setq which-key-prefix-prefix "+")
|
|
:config
|
|
(which-key-mode 1))
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Configure `ibuffer'.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(use-package ibuffer-vc
|
|
:defer t
|
|
:init
|
|
(add-hook 'ibuffer-hook
|
|
(lambda ()
|
|
(declare-function ibuffer-do-sort-by-alphabetic "ibuf-ext")
|
|
(ibuffer-vc-set-filter-groups-by-vc-root)
|
|
(unless (eq ibuffer-sorting-mode 'alphabetic)
|
|
(ibuffer-do-sort-by-alphabetic))))
|
|
:config
|
|
(setq ibuffer-formats
|
|
'((mark modified read-only vc-status-mini " "
|
|
(name 36 36 :left :elide)
|
|
" "
|
|
(size 9 -1 :right)
|
|
" "
|
|
(mode 16 16 :left :elide)
|
|
" "
|
|
(vc-status 16 16 :left)
|
|
" "
|
|
filename-and-process))))
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Rainbow mode.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(use-package rainbow-mode
|
|
:defer t)
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Speedbar.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(use-package sr-speedbar
|
|
:defer t
|
|
:bind
|
|
(("C-c s" . sr-speedbar-toggle))
|
|
:config
|
|
(setq-default
|
|
sr-speedbar-skip-other-window-p t
|
|
sr-speedbar-right-side nil
|
|
speedbar-show-unknown-files t
|
|
sr-speedbar-delete-windows t)
|
|
|
|
(defun goto-speedbar ()
|
|
"Set the speedbar window as the active window."
|
|
(interactive)
|
|
(if (window-live-p sr-speedbar-window)
|
|
(set-frame-selected-window (window-frame) sr-speedbar-window)
|
|
(user-error "Speedbar window is not live")))
|
|
(declare-function goto-speedbar "emacs")
|
|
|
|
(global-set-key (kbd "M-m") #'goto-speedbar))
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Keep point in same position on the screen when scrolling.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(setq-default scroll-preserve-screen-position 1)
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Functions.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(defun quit-other-window ()
|
|
"Quit the next window in cyclic order"
|
|
(interactive)
|
|
(quit-window t (next-window (selected-window))))
|
|
|
|
(defun kill-default-buffer ()
|
|
"Kill the currently active buffer with no confirmation."
|
|
(interactive)
|
|
(let (kill-buffer-query-functions) (kill-buffer)))
|
|
|
|
(defun refresh-non-face-colours ()
|
|
"Restart modes that use colours not set with face variables.
|
|
This has to be called whenever the active theme changes to
|
|
refresh these colours."
|
|
|
|
(defvar highlight-parentheses-mode)
|
|
|
|
(when (and (fboundp 'fci-mode)
|
|
(member 'fci-mode minor-mode-list))
|
|
(fci-mode 1))
|
|
|
|
(when (and (fboundp 'highlight-parentheses-mode)
|
|
highlight-parentheses-mode)
|
|
(highlight-parentheses-mode 1)))
|
|
(declare-function refresh-non-face-colours "emacs")
|
|
|
|
;; Key-bindings -------------------------------------------------------------
|
|
|
|
;; Kill other window (cyclic order).
|
|
(global-set-key (kbd "C-z") 'quit-other-window)
|
|
|
|
;; Kill current buffer without prompting.
|
|
(global-set-key (kbd "C-x k") 'kill-default-buffer)
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Additional key-bindings.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
;; Change active window. More convenient than "C-x o".
|
|
(global-set-key (kbd "M-o") 'other-window)
|
|
(global-set-key (kbd "M-O") (lambda () (interactive) (other-window -1)))
|
|
|
|
;; Scroll up/down, but keep point in place.
|
|
(global-set-key (kbd "C-<") (lambda()
|
|
(interactive)
|
|
(let ((scroll-preserve-screen-position nil))
|
|
(scroll-down 1))))
|
|
(global-set-key (kbd "C->") (lambda()
|
|
(interactive)
|
|
(let ((scroll-preserve-screen-position nil))
|
|
(scroll-up 1))))
|
|
|
|
;; Recursive grep.
|
|
(global-set-key (kbd "C-c g") 'rgrep)
|
|
|
|
;; Setup key-bindings for switching between themes.
|
|
(global-set-key (kbd "C-x t l") (lambda ()
|
|
(interactive)
|
|
(load-theme 'havoc-light t)
|
|
(refresh-non-face-colours)))
|
|
(global-set-key (kbd "C-x t d") (lambda ()
|
|
(interactive)
|
|
(load-theme 'havoc-dark t)
|
|
(refresh-non-face-colours)))
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Update buffers when files change.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(global-auto-revert-mode)
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Aliases.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
;; y or n is enough.
|
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
|
|
|
;; Always use ibuffer.
|
|
(defalias 'list-buffers 'ibuffer)
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Address mode.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(add-hook 'prog-mode-hook 'goto-address-mode)
|
|
(add-hook 'text-mode-hook 'goto-address-mode)
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Tramp configuration.
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(use-package tramp
|
|
:defer t
|
|
:config
|
|
(setq-default tramp-default-method "ssh")
|
|
;; This line proxies all sudo connections via an ssh connection to the
|
|
;; provided hostname.
|
|
(add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
|
|
;; This rule is an exception to the above so that local sudo does not proxy
|
|
;; via ssh. This has to be added last so that it is the first element of
|
|
;; the list.
|
|
(add-to-list 'tramp-default-proxies-alist '("localhost" "\\`root\\'" nil))
|
|
|
|
(defun sudo ()
|
|
"Use TRAMP to `sudo' the current buffer"
|
|
(interactive)
|
|
(when buffer-file-name
|
|
(find-alternate-file
|
|
(concat "/sudo:root@localhost:"
|
|
buffer-file-name)))))
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Configure garbage collection.
|
|
;;
|
|
;; Based on advice from:
|
|
;; http://bling.github.io/blog/2016/01/18/why-are-you-changing-gc-cons-threshold/
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(defun minibuffer-gc-setup-hook ()
|
|
(setq gc-cons-threshold most-positive-fixnum))
|
|
(declare-function minibuffer-gc-setup-hook "emacs")
|
|
|
|
(defun minibuffer-gc-exit-hook ()
|
|
(setq gc-cons-threshold 800000))
|
|
(declare-function minibuffer-gc-exit-hook "emacs")
|
|
|
|
(add-hook 'minibuffer-setup-hook #'minibuffer-gc-setup-hook)
|
|
(add-hook 'minibuffer-exit-hook #'minibuffer-gc-exit-hook)
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; Increase recursion limits.
|
|
;; --------------------------------------------------------------------------
|
|
(setq-default max-specpdl-size 20000) ;; ~15x original value
|
|
(setq-default max-lisp-eval-depth 24000) ;; 30x orignal value
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; This slows down cursor scrolling.
|
|
;; --------------------------------------------------------------------------
|
|
(setq-default auto-window-vscroll nil)
|
|
|
|
)
|
|
|
|
(provide 'em-emacs)
|
|
;;; em-emacs.el ends here
|