|
|
;;; Init.el --- Daniel's Emacs Configuration
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
;; * Packages
|
|
|
|
|
|
(defconst emacs-d (file-name-directory
|
|
|
(file-chase-links load-file-name))
|
|
|
"The giant turtle on which the world rests.")
|
|
|
|
|
|
(require 'package)
|
|
|
|
|
|
(setq package-user-dir (expand-file-name "elpa" emacs-d))
|
|
|
|
|
|
(setq package-archives
|
|
|
'(("melpa" . "https://melpa.org/packages/")
|
|
|
("gnu" . "https://elpa.gnu.org/packages/")
|
|
|
("melpa-stable" . "https://stable.melpa.org/packages/")
|
|
|
("org" . "http://orgmode.org/elpa/")))
|
|
|
|
|
|
(setq package-enable-at-startup nil)
|
|
|
|
|
|
(package-initialize)
|
|
|
|
|
|
(dolist (package '(diminish use-package bind-key))
|
|
|
(unless (package-installed-p package)
|
|
|
(package-install package))
|
|
|
(require package))
|
|
|
|
|
|
(put 'use-package 'common-lisp-indent-function 1)
|
|
|
|
|
|
(use-package auto-compile
|
|
|
:ensure t)
|
|
|
|
|
|
|
|
|
;; * Mode activation
|
|
|
|
|
|
(defun db/run-init ()
|
|
|
"Run main initialization after everything is set up."
|
|
|
|
|
|
;; Activate modes
|
|
|
(show-paren-mode 1)
|
|
|
(transient-mark-mode 1)
|
|
|
(global-font-lock-mode 1)
|
|
|
(column-number-mode 1)
|
|
|
;; (display-time)
|
|
|
(delete-selection-mode 1)
|
|
|
|
|
|
(dolist (mode '(tool-bar-mode
|
|
|
scroll-bar-mode
|
|
|
menu-bar-mode
|
|
|
blink-cursor-mode))
|
|
|
(when (fboundp mode)
|
|
|
(funcall mode 0)))
|
|
|
|
|
|
(when (<= 24 emacs-major-version)
|
|
|
(electric-indent-mode -1))
|
|
|
|
|
|
(appt-activate +1)
|
|
|
(savehist-mode 1)
|
|
|
(midnight-mode +1)
|
|
|
|
|
|
(quietly-read-abbrev-file)
|
|
|
|
|
|
(global-undo-tree-mode 1)
|
|
|
(ace-window-display-mode +1)
|
|
|
(electric-pair-mode +1)
|
|
|
(electric-quote-mode +1)
|
|
|
(key-chord-mode +1)
|
|
|
|
|
|
(size-indication-mode 1)
|
|
|
(display-battery-mode -1)
|
|
|
(sml/setup)
|
|
|
|
|
|
(ivy-mode +1)
|
|
|
|
|
|
(recentf-mode t)
|
|
|
(which-key-mode 1)
|
|
|
(winner-mode 1)
|
|
|
|
|
|
(global-auto-revert-mode -1)
|
|
|
|
|
|
(projectile-mode +1)
|
|
|
(which-function-mode +1)
|
|
|
;; (semantic-mode +1)
|
|
|
(persp-mode +1)
|
|
|
|
|
|
;; setting this in `custom-file’ does not work, so we set it here
|
|
|
(custom-set-variables
|
|
|
'(custom-enabled-themes (quote (exot-main solarized-dark smart-mode-line-dark))))
|
|
|
|
|
|
;; Hooks
|
|
|
|
|
|
(add-hook 'minibuffer-setup-hook #'conditionally-enable-lispy)
|
|
|
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
|
|
|
(add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p)
|
|
|
(add-hook 'text-mode-hook #'turn-on-auto-fill)
|
|
|
(add-hook 'before-save-hook #'db/delete-trailing-whitespace-maybe)
|
|
|
(add-hook 'prog-mode-hook #'turn-on-page-break-lines-mode)
|
|
|
(when (<= 24 emacs-major-version)
|
|
|
(add-hook 'prog-mode-hook #'electric-indent-local-mode))
|
|
|
(add-hook 'lisp-mode-hook #'lispy-mode)
|
|
|
|
|
|
;; Keybindings
|
|
|
|
|
|
(bind-key "<XF86Back>" #'winner-undo)
|
|
|
(bind-key "<XF86Forward>" #'winner-redo)
|
|
|
(bind-key "<f1>" #'db/run-or-hide-eshell)
|
|
|
(bind-key "<f2> i" #'counsel-info-lookup-symbol)
|
|
|
(bind-key "<f2> u" #'counsel-unicode-char)
|
|
|
(bind-key "<f5>" #'counsel-ag)
|
|
|
(bind-key "<f6>" #'hydra-zoom/body)
|
|
|
(bind-key "<f7>" #'dictcc)
|
|
|
(bind-key "<f8>" #'counsel-locate)
|
|
|
(bind-key "<f9>" #'counsel-org-goto-all)
|
|
|
(bind-key "<f10>" #'magit-status)
|
|
|
(bind-key "<f11>" #'org-capture)
|
|
|
(bind-key "<f12>" #'db/helm-shortcuts)
|
|
|
(bind-key "C-<" #'mc/mark-previous-like-this)
|
|
|
(bind-key "C->" #'mc/mark-next-like-this)
|
|
|
(bind-key "C-@" #'er/expand-region)
|
|
|
(bind-key "C-M-\\" #'crux-cleanup-buffer-or-region)
|
|
|
(bind-key "C-S-c C-S-c" #'mc/edit-lines)
|
|
|
(bind-key "C-Z" #'undo-tree-redo)
|
|
|
(bind-key "C-c C-<" #'mc/mark-all-like-this)
|
|
|
(bind-key "C-c C-r" #'ivy-resume)
|
|
|
(bind-key "C-c D" #'define-word)
|
|
|
(bind-key "C-c J" #'avy-goto-word-or-subword-1)
|
|
|
(bind-key "C-c P" #'ivy-pages)
|
|
|
(bind-key "C-c a" #'org-agenda)
|
|
|
(bind-key "C-c c" #'org-capture)
|
|
|
(bind-key "C-c d" #'define-word-at-point)
|
|
|
(bind-key "C-c e" #'crux-eval-and-replace)
|
|
|
(bind-key "C-c h" #'helm-command-prefix)
|
|
|
(bind-key "C-c h #" #'helm-emms)
|
|
|
(bind-key "C-c i" #'hydra-ispell/body)
|
|
|
(bind-key "C-c j" #'avy-goto-char-timer)
|
|
|
(bind-key "C-c l" #'org-store-link)
|
|
|
(bind-key "C-c m" #'emms-control/body)
|
|
|
(bind-key "C-c o" #'hydra-org-clock/body)
|
|
|
(bind-key "C-c r" #'ivy-recentf)
|
|
|
(bind-key "C-c s" #'synonyms)
|
|
|
(bind-key "C-h C-f" #'find-function)
|
|
|
(bind-key "C-h C-k" #'find-function-on-key)
|
|
|
(bind-key "C-h f" #'counsel-describe-function)
|
|
|
(bind-key "C-h v" #'counsel-describe-variable)
|
|
|
(bind-key "C-s" #'isearch-forward)
|
|
|
(bind-key "C-S-s" #'counsel-grep-or-swiper)
|
|
|
(bind-key "M-i" #'swiper-from-isearch isearch-mode-map)
|
|
|
(bind-key "C-x C-d" #'dired)
|
|
|
(bind-key "C-x C-f" #'counsel-find-file)
|
|
|
(bind-key "C-x C-r" #'revert-buffer)
|
|
|
(bind-key "C-x SPC" #'hydra-rectangle/body)
|
|
|
(bind-key "C-x o" #'ace-window)
|
|
|
(bind-key "C-x r v" #'list-registers)
|
|
|
(bind-key "C-x t" #'hydra-toggle/body)
|
|
|
(bind-key "C-z" #'undo)
|
|
|
(bind-key "M-/" #'hippie-expand)
|
|
|
(bind-key "M-:" #'pp-eval-expression)
|
|
|
(bind-key "M-=" #'count-words)
|
|
|
(bind-key "M-SPC" #'cycle-spacing)
|
|
|
(bind-key "M-Z" #'zap-to-char)
|
|
|
(bind-key "M-g M-g" #'avy-goto-line)
|
|
|
(bind-key "M-g g" #'avy-goto-line)
|
|
|
(bind-key "M-g j b" #'dumb-jump-back)
|
|
|
(bind-key "M-g j g" #'dumb-jump-go)
|
|
|
(bind-key "M-j" #'(lambda () (interactive) (join-line -1)))
|
|
|
(bind-key "M-o" nil)
|
|
|
(bind-key "M-x" #'counsel-M-x) ; gets nicer sorting with smex installed
|
|
|
(bind-key "M-y" #'helm-show-kill-ring)
|
|
|
(bind-key "M-z" #'zap-up-to-char)
|
|
|
(bind-key [insert] nil)
|
|
|
(bind-key [kp-insert] nil)
|
|
|
(bind-key [remap fill-paragraph] #'endless/fill-or-unfill)
|
|
|
(bind-key [remap kill-whole-line] #'crux-kill-whole-line)
|
|
|
(bind-key [remap open-line] #'crux-smart-open-line-above)
|
|
|
|
|
|
;; Timers
|
|
|
|
|
|
(run-with-timer 0 3600 #'org-clock-save)
|
|
|
(run-with-timer 0 3600 #'recentf-save-list)
|
|
|
(run-with-timer 0 3600 #'bbdb-save)
|
|
|
(run-with-timer 0 3600 #'emms-cache-save)
|
|
|
(run-with-idle-timer 1200 t #'db/export-diary)
|
|
|
(run-at-time "00:01" 86400 #'db/org-agenda-to-appt)
|
|
|
|
|
|
;; Environment Variables
|
|
|
|
|
|
(setenv "SSH_AUTH_SOCK" "/run/user/1000/ssh-agent.socket")
|
|
|
(setenv "SSH_AGENT_PID"
|
|
|
(substring (shell-command-to-string "systemctl show --user ssh-agent.service -p MainPID --value")
|
|
|
0 -1))
|
|
|
(setenv "PATH" (concat (concat (getenv "HOME") "/.local/bin")
|
|
|
":"
|
|
|
(getenv "PATH")))
|
|
|
(setq exec-path (append (list (concat (getenv "HOME") "/.local/bin"))
|
|
|
exec-path))
|
|
|
(setenv "TEXMFHOME" (expand-file-name "~/Documents/texmf"))
|
|
|
|
|
|
t)
|
|
|
|
|
|
(add-hook 'after-init-hook #'db/run-init)
|
|
|
|
|
|
|
|
|
;; * Builtin Variables
|
|
|
|
|
|
(use-package db-private
|
|
|
:load-path "site-lisp"
|
|
|
:defines (db/personal-mail-address
|
|
|
db/work-mail-address
|
|
|
db/jabber-id
|
|
|
db/smtp-accounts
|
|
|
db/work-gnus-filter-rules
|
|
|
db/personal-gnus-filter-rules))
|
|
|
|
|
|
(setq user-full-name "Daniel Borchmann"
|
|
|
user-mail-address db/personal-mail-address)
|
|
|
|
|
|
(setq custom-file (expand-file-name "private/custom.el" emacs-d))
|
|
|
(load-file custom-file)
|
|
|
|
|
|
(use-package cl-lib)
|
|
|
|
|
|
(use-package warnings
|
|
|
:config (cl-pushnew '(undo discard-info) warning-suppress-types
|
|
|
:test #'equal))
|
|
|
|
|
|
(set-default-coding-systems 'utf-8)
|
|
|
(prefer-coding-system 'utf-8)
|
|
|
(set-terminal-coding-system 'utf-8)
|
|
|
(set-keyboard-coding-system 'utf-8)
|
|
|
(setq buffer-file-coding-system 'utf-8)
|
|
|
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
|
|
|
|
|
|
(setq inhibit-startup-message t
|
|
|
initial-scratch-message nil
|
|
|
initial-major-mode 'org-mode
|
|
|
ring-bell-function #'ignore
|
|
|
garbage-collection-messages nil
|
|
|
load-prefer-newer nil) ; t breaks `org-reload'
|
|
|
|
|
|
(fset 'yes-or-no-p 'y-or-n-p)
|
|
|
|
|
|
(setq-default fill-column 80)
|
|
|
(setq-default indent-tabs-mode nil)
|
|
|
|
|
|
(setq frame-title-format "emacs")
|
|
|
|
|
|
(setq select-enable-clipboard t
|
|
|
select-enable-primary t
|
|
|
save-interprogram-paste-before-kill t
|
|
|
mouse-yank-at-point t
|
|
|
require-final-newline nil
|
|
|
sentence-end-double-space t
|
|
|
recenter-positions '(top middle bottom)
|
|
|
scroll-conservatively 10
|
|
|
message-log-max t
|
|
|
inhibit-eol-conversion nil
|
|
|
tab-always-indent 'complete
|
|
|
enable-recursive-minibuffers t
|
|
|
set-mark-command-repeat-pop t
|
|
|
large-file-warning-threshold 100000000
|
|
|
echo-keystrokes 0.1
|
|
|
delete-by-moving-to-trash t
|
|
|
delete-trailing-lines nil
|
|
|
x-underline-at-descent-line t
|
|
|
search-whitespace-regexp "[ \t\r\n]+"
|
|
|
apropos-sort-by-scores 'verbose)
|
|
|
|
|
|
(setq-default cursor-type 'bar)
|
|
|
|
|
|
;; don't let the cursor go into minibuffer prompt
|
|
|
(setq minibuffer-prompt-properties '(read-only t
|
|
|
face minibuffer-prompt
|
|
|
cursor-intangible t))
|
|
|
|
|
|
;; Make M-v undo C-v
|
|
|
(setq scroll-preserve-screen-position 'always)
|
|
|
|
|
|
;; Backups and Autosave
|
|
|
(defvar backup-dir (expand-file-name "ebackup/" emacs-d))
|
|
|
(defvar autosave-dir (expand-file-name "eautosave/" emacs-d))
|
|
|
(setq make-backup-files t
|
|
|
backup-directory-alist (list (cons ".*" backup-dir))
|
|
|
auto-save-list-file-prefix autosave-dir
|
|
|
auto-save-file-name-transforms `((".*" ,autosave-dir t))
|
|
|
version-control t
|
|
|
kept-old-versions 2
|
|
|
kept-new-versions 4
|
|
|
delete-old-versions t
|
|
|
vc-make-backup-files t)
|
|
|
|
|
|
(setq-default async-shell-command-buffer 'new-buffer)
|
|
|
(add-to-list 'display-buffer-alist
|
|
|
'("^\*Async Shell Command*" . (display-buffer-no-window)))
|
|
|
|
|
|
(put 'set-goal-column 'disabled nil)
|
|
|
(put 'upcase-region 'disabled nil)
|
|
|
(put 'downcase-region 'disabled nil)
|
|
|
(put 'narrow-to-region 'disabled nil)
|
|
|
|
|
|
(require 'time)
|
|
|
(require 'calendar)
|
|
|
|
|
|
(setq display-time-24hr-format t
|
|
|
calendar-date-style 'iso
|
|
|
calendar-view-diary-initially-flag t
|
|
|
diary-show-holidays-flag nil
|
|
|
holiday-hebrew-holidays nil
|
|
|
holiday-islamic-holidays nil
|
|
|
holiday-bahai-holidays nil
|
|
|
holiday-oriental-holidays nil
|
|
|
holiday-solar-holidays nil
|
|
|
holiday-general-holidays nil
|
|
|
holiday-other-holidays '((holiday-fixed 5 1 "Labour Day")
|
|
|
(holiday-fixed 10 3 "German Unity Day")
|
|
|
(holiday-fixed 10 31 "Reformation Day")
|
|
|
(holiday-float 11 3 -1 "Day of Repentance and Prayer" 22)))
|
|
|
|
|
|
(setq-default font-lock-maximum-decoration '((t . t)))
|
|
|
(setq-default savehist-file (expand-file-name "savehist" emacs-d))
|
|
|
|
|
|
(require 'tramp)
|
|
|
(setq tramp-save-ad-hoc-proxies t)
|
|
|
|
|
|
(require 'bookmark)
|
|
|
(setq bookmark-default-file (concat user-emacs-directory "bookmarks"))
|
|
|
|
|
|
(require 'browse-url)
|
|
|
(setq browse-url-browser-function 'browse-url-generic
|
|
|
browse-url-generic-program "start-tor-browser")
|
|
|
|
|
|
(require 're-builder)
|
|
|
(setq reb-re-syntax 'string)
|
|
|
|
|
|
(setq lisp-indent-function 'common-lisp-indent-function)
|
|
|
|
|
|
|
|
|
;; * Basic Builtin Packages
|
|
|
|
|
|
(use-package misc
|
|
|
:commands (zap-up-to-char zap-to-char))
|
|
|
|
|
|
(use-package grep
|
|
|
:commands (rgrep zrgrep)
|
|
|
:config (progn
|
|
|
(bind-key "C-x C-q" #'wgrep-change-to-wgrep-mode grep-mode-map)
|
|
|
(bind-key "C-c C-c" #'wgrep-finish-edit grep-mode-map)))
|
|
|
|
|
|
(use-package winner
|
|
|
:commands (winner-mode winner-undo winner-redo))
|
|
|
|
|
|
(use-package abbrev
|
|
|
:commands (quitely-read-abbrev-file)
|
|
|
:config (progn
|
|
|
(setq-default abbrev-mode t)
|
|
|
(setq save-abbrevs 'silently))
|
|
|
:diminish abbrev-mode)
|
|
|
|
|
|
(use-package appt
|
|
|
:commands (appt-activate)
|
|
|
:config (setq appt-display-mode-line nil))
|
|
|
|
|
|
(use-package ediff
|
|
|
:config (progn
|
|
|
(setq ediff-diff-options "-w"
|
|
|
ediff-window-setup-function 'ediff-setup-windows-plain
|
|
|
ediff-split-window-function 'split-window-horizontally)
|
|
|
|
|
|
(add-hook 'ediff-keymap-setup-hook
|
|
|
'(lambda ()
|
|
|
(bind-key "j" 'ediff-next-difference ediff-mode-map)
|
|
|
(bind-key "k" 'ediff-previous-difference ediff-mode-map)))
|
|
|
|
|
|
(add-hook 'ediff-after-quit-hook-internal 'winner-undo)))
|
|
|
|
|
|
(use-package ispell
|
|
|
:commands (ispell-change-directory)
|
|
|
:init (progn
|
|
|
(setq ispell-dictionary "en_US"
|
|
|
ispell-really-hunspell t)))
|
|
|
|
|
|
(use-package mailcap
|
|
|
:config (progn
|
|
|
;;Remove doc-view so pdf will open with ocular
|
|
|
(setcdr
|
|
|
(assoc "application" mailcap-mime-data)
|
|
|
(remove '("pdf"
|
|
|
(viewer . doc-view-mode)
|
|
|
(type . "application/pdf")
|
|
|
(test eq window-system 'x))
|
|
|
(cdr (assoc "application" mailcap-mime-data))))))
|
|
|
|
|
|
(use-package quail
|
|
|
:defer t
|
|
|
:config (progn
|
|
|
(defun db/add-symbols-to-TeX-input-method ()
|
|
|
(when (string= current-input-method "TeX")
|
|
|
(let ((quail-current-package (assoc "TeX" quail-package-alist)))
|
|
|
(quail-define-rules
|
|
|
((append . t))
|
|
|
("\\land" ?∧)
|
|
|
("\\lor" ?∨)
|
|
|
("\\lnot" ?¬)
|
|
|
("\\implies" ?⇒)
|
|
|
("\\powerset" ?𝔓)
|
|
|
("\\mathbbK" ?𝕂)
|
|
|
("\\mathbbR" ?ℝ)
|
|
|
("\\mathbbN" ?ℕ)
|
|
|
("\\mathbbZ" ?ℤ)
|
|
|
("\\mathbbP" ?ℙ)
|
|
|
("\\mathcalA" ?𝒜)
|
|
|
("\\mathcalB" ?ℬ)
|
|
|
("\\mathcalC" ?𝒞)
|
|
|
("\\mathcalD" ?𝒟)
|
|
|
("\\mathcalE" ?ℰ)
|
|
|
("\\mathcalH" ?ℋ)
|
|
|
("\\mathcalI" ?ℐ)
|
|
|
("\\mathcalJ" ?𝒥)
|
|
|
("\\mathcalK" ?𝒦)
|
|
|
("\\mathcalL" ?ℒ)
|
|
|
("\\mathcalM" ?ℳ)
|
|
|
("\\mathcalR" ?ℛ)
|
|
|
("\\mathcalQ" ?𝒬)
|
|
|
("\\mathcalS" ?𝒮)
|
|
|
("\\mathfrakP" ?𝔓)))))
|
|
|
(add-hook 'input-method-activate-hook
|
|
|
#'db/add-symbols-to-TeX-input-method)))
|
|
|
|
|
|
|
|
|
;; * Org Mode
|
|
|
|
|
|
(use-package org
|
|
|
:mode (("\\.org\\'" . org-mode))
|
|
|
:commands (org-agenda
|
|
|
org-capture
|
|
|
org-store-link
|
|
|
db/export-diary
|
|
|
org-clock-save
|
|
|
db/org-agenda-to-appt
|
|
|
hydra-org-clock/body)
|
|
|
:config (progn
|
|
|
(bind-key [remap org-return] 'org-return-indent org-mode-map)
|
|
|
|
|
|
(use-package db-org
|
|
|
:load-path "site-lisp")
|
|
|
|
|
|
;; avoid important buffers to end up in `org-agenda-new-buffers’ by
|
|
|
;; opening them manually
|
|
|
(mapc #'find-file-noselect org-agenda-files)
|
|
|
|
|
|
(org-clock-persistence-insinuate)
|
|
|
|
|
|
(require 'hydra)
|
|
|
|
|
|
(defhydra hydra-org-clock (:color blue)
|
|
|
"
|
|
|
Current Task: %`org-clock-current-task; "
|
|
|
("w" (lambda ()
|
|
|
(interactive)
|
|
|
(clock-in-task-by-id org-working-task-id)))
|
|
|
("h" (lambda ()
|
|
|
(interactive)
|
|
|
(clock-in-task-by-id org-home-task-id)))
|
|
|
("b" (lambda ()
|
|
|
(interactive)
|
|
|
(clock-in-task-by-id org-break-task-id)))
|
|
|
("i" (lambda ()
|
|
|
(interactive)
|
|
|
(org-clock-in '(4))))
|
|
|
("a" counsel-org-goto-all)
|
|
|
("o" org-clock-out)
|
|
|
("l" db/org-clock-in-last-task)
|
|
|
("p" db/play-playlist)
|
|
|
("d" (lambda ()
|
|
|
(interactive)
|
|
|
(when (org-clock-is-active)
|
|
|
(save-window-excursion
|
|
|
(org-clock-goto)
|
|
|
(let ((org-inhibit-logging 'note))
|
|
|
(org-todo 'done)
|
|
|
(org-save-all-org-buffers)))))))))
|
|
|
|
|
|
(use-package org-ref
|
|
|
:config (progn
|
|
|
(require 'org-ref-pdf)
|
|
|
(require 'org-ref-url-utils)
|
|
|
|
|
|
(setq org-ref-default-bibliography '("~/Documents/uni/research/references.bib")
|
|
|
org-ref-pdf-directory "~/Documents/library/.bibtex-pdfs/"
|
|
|
org-ref-bibliography-notes "~/Documents/uni/research/references.org")))
|
|
|
|
|
|
|
|
|
;; * Some essential packages
|
|
|
|
|
|
(use-package crux
|
|
|
:commands (crux-eval-and-replace
|
|
|
crux-smart-open-line-above
|
|
|
crux-kill-whole-line
|
|
|
crux-cleanup-buffer-or-region))
|
|
|
|
|
|
(use-package db-utils
|
|
|
:load-path "site-lisp/"
|
|
|
:commands (endless/fill-or-unfill
|
|
|
db/delete-trailing-whitespace-maybe
|
|
|
db/go-dark
|
|
|
db/go-light
|
|
|
db/show-current-org-task
|
|
|
db/run-or-hide-shell
|
|
|
db/run-or-hide-eshell
|
|
|
db/run-or-hide-ansi-term
|
|
|
db/helm-shortcuts))
|
|
|
|
|
|
(use-package db-emacsclient
|
|
|
:load-path "site-lisp/")
|
|
|
|
|
|
(use-package hydra
|
|
|
:commands (defhydra hydra-toggle/body hydra-zoom/body hydra-rectangle/body hydra-ispell/body)
|
|
|
:config (progn
|
|
|
(defhydra hydra-toggle (:color blue)
|
|
|
"toggle"
|
|
|
("c" column-number-mode "column")
|
|
|
("d" toggle-debug-on-error "debug-on-error")
|
|
|
("e" toggle-debug-on-error "debug-on-error")
|
|
|
("f" auto-fill-mode "auto-fill")
|
|
|
("l" toggle-truncate-lines "truncate lines")
|
|
|
("q" toggle-debug-on-quit "debug-on-quit")
|
|
|
("r" read-only-mode "read-only"))
|
|
|
|
|
|
;; zooming with single keystrokes (from oremacs)
|
|
|
(defhydra hydra-zoom (:color red)
|
|
|
"zoom"
|
|
|
("g" text-scale-increase "increase")
|
|
|
("l" text-scale-decrease "decrease"))
|
|
|
|
|
|
;; rectangle mode
|
|
|
(defhydra hydra-rectangle (:body-pre (rectangle-mark-mode 1)
|
|
|
:color pink
|
|
|
:post (deactivate-mark))
|
|
|
"
|
|
|
^_k_^ _d_elete _s_tring
|
|
|
_h_ _l_ _o_k _y_ank
|
|
|
^_j_^ _n_ew-copy _r_eset
|
|
|
^^^^ _e_xchange _u_ndo
|
|
|
^^^^ ^ ^ _p_aste
|
|
|
"
|
|
|
("h" backward-char nil)
|
|
|
("l" forward-char nil)
|
|
|
("k" previous-line nil)
|
|
|
("j" next-line nil)
|
|
|
("e" ora-ex-point-mark nil)
|
|
|
("n" copy-rectangle-as-kill nil)
|
|
|
("d" delete-rectangle nil)
|
|
|
("r" (if (region-active-p)
|
|
|
(deactivate-mark)
|
|
|
(rectangle-mark-mode 1))
|
|
|
nil)
|
|
|
("y" yank-rectangle nil)
|
|
|
("u" undo nil)
|
|
|
("s" string-rectangle nil)
|
|
|
("p" kill-rectangle nil)
|
|
|
("o" nil nil))
|
|
|
|
|
|
(defhydra hydra-ispell (:color blue)
|
|
|
"ispell"
|
|
|
("g" (lambda ()
|
|
|
(interactive)
|
|
|
(setq ispell-dictionary "de_DE")
|
|
|
(ispell-change-dictionary "de_DE"))
|
|
|
"german")
|
|
|
("e" (lambda ()
|
|
|
(interactive)
|
|
|
(setq ispell-dictionary "en_US")
|
|
|
(ispell-change-dictionary "en_US"))
|
|
|
"english"))))
|
|
|
|
|
|
(use-package magit
|
|
|
:ensure magit
|
|
|
:commands (magit-status)
|
|
|
:config (progn
|
|
|
(setq magit-diff-refine-hunk t
|
|
|
magit-commit-show-diff nil
|
|
|
magit-popup-use-prefix-argument 'default)
|
|
|
|
|
|
(add-to-list 'magit-no-confirm 'stage-all-changes)
|
|
|
|
|
|
(setq magit-repository-directories
|
|
|
(mapcar
|
|
|
(lambda (dir)
|
|
|
(substring dir 0 -1))
|
|
|
(cl-remove-if-not
|
|
|
(lambda (project)
|
|
|
(unless (file-remote-p project)
|
|
|
(file-exists-p (concat project "/.git"))))
|
|
|
(projectile-relevant-known-projects))))))
|
|
|
|
|
|
(use-package projectile
|
|
|
:ensure projectile
|
|
|
:commands (projectile-relevant-known-projects projectile-mode)
|
|
|
:config (progn
|
|
|
(setq projectile-switch-project-action 'projectile-dired
|
|
|
projectile-completion-system 'ivy))
|
|
|
:diminish projectile-mode)
|
|
|
|
|
|
(use-package perspective
|
|
|
:commands (persp-mode))
|
|
|
|
|
|
|
|
|
;; * Mail
|
|
|
|
|
|
(use-package bbdb
|
|
|
:ensure bbdb
|
|
|
:commands (bbdb-search-name bbab-initialize bbdb-mua-auto-update-init bbdb-save)
|
|
|
:config (progn
|
|
|
(setq bbdb-completion-display-record nil
|
|
|
bbdb-complete-mail-allow-cycling t
|
|
|
bbdb-mua-auto-update-p 'query
|
|
|
bbdb-default-country "Germany"
|
|
|
bbdb-user-mail-address-re (regexp-opt (list db/personal-mail-address
|
|
|
db/work-mail-address))
|
|
|
bbdb-file (expand-file-name "private/bbdb" emacs-d))
|
|
|
(add-hook 'message-setup-hook 'bbdb-mail-aliases)
|
|
|
(add-hook 'mail-setup-hook 'bbdb-mail-aliases)))
|
|
|
|
|
|
(use-package gnus
|
|
|
:defines (gnus-init-file)
|
|
|
:commands (gnus)
|
|
|
:init (setq gnus-group-update-tool-bar nil)
|
|
|
:config (progn
|
|
|
(bbdb-initialize 'gnus 'message)
|
|
|
(bbdb-mua-auto-update-init 'message)
|
|
|
(setq gnus-init-file (expand-file-name "gnus" emacs-d)
|
|
|
gnus-home-directory (expand-file-name "~/Mail/news/")
|
|
|
gnus-directory (expand-file-name "~/Mail/news/")
|
|
|
gnus-kill-files-directory gnus-directory
|
|
|
gnus-startup-file (expand-file-name "~/Mail/gnus-newsrc")
|
|
|
gnus-cache-directory (expand-file-name "cache/" gnus-directory))))
|
|
|
|
|
|
|
|
|
;; * Crypto
|
|
|
|
|
|
(use-package nsm
|
|
|
:config (progn (setq network-security-level 'medium
|
|
|
nsm-save-host-names t
|
|
|
nsm-settings-file (expand-file-name "private/network-security.data"
|
|
|
emacs-d))))
|
|
|
|
|
|
(use-package gnutls
|
|
|
:config (progn
|
|
|
(setq gnutls-log-level 0
|
|
|
gnutls-min-prime-bits 1024
|
|
|
gnutls-verify-error t)
|
|
|
|
|
|
;; add own trustfiles
|
|
|
(dolist (cert-file
|
|
|
(directory-files "~/.local/etc/certs" t "\.crt$"))
|
|
|
(add-to-list 'gnutls-trustfiles cert-file))))
|
|
|
|
|
|
(use-package epg
|
|
|
:config (progn
|
|
|
(setq epg-program "/usr/bin/gpg2"
|
|
|
epg-debug t)))
|
|
|
|
|
|
|
|
|
;; * Appearance
|
|
|
|
|
|
(use-package solarized-theme
|
|
|
:init (setq solarized-use-less-bold t
|
|
|
solarized-emphasize-indicators t
|
|
|
solarized-use-variable-pitch nil))
|
|
|
|
|
|
(use-package smart-mode-line
|
|
|
:init (setq sml/use-projectile-p t))
|
|
|
|
|
|
|
|
|
;; * Dired
|
|
|
|
|
|
(use-package dired
|
|
|
:config (progn
|
|
|
(setq dired-dwim-target t)
|
|
|
(put 'dired-find-alternate-file 'disabled nil)
|
|
|
(setq dired-listing-switches "-alLh")
|
|
|
(setq dired-hide-details-hide-information-lines nil)
|
|
|
|
|
|
(setq dired-recursive-copies 'top)
|
|
|
(setq dired-recursive-deletes 'top)
|
|
|
|
|
|
(require 'dired-x)
|
|
|
(require 'gnus-dired)
|
|
|
|
|
|
(add-hook 'dired-mode-hook #'turn-on-gnus-dired-mode)
|
|
|
(add-hook 'dired-mode-hook #'dired-omit-mode)
|
|
|
|
|
|
(setq dired-omit-files "^\\...+$"
|
|
|
dired-omit-verbose nil
|
|
|
dired-omit-extensions nil)
|
|
|
|
|
|
(setq dired-guess-shell-alist-user
|
|
|
'(("\\.pdf\\'" "evince")
|
|
|
("\\.ps\\'" "evince")
|
|
|
("\\.\\(?:djvu\\|eps\\)\\'" "evince")
|
|
|
("\\.\\(?:jpg\\|jpeg\\|png\\|gif\\|xpm\\)\\'" "geeqie")
|
|
|
("\\.\\(?:xcf\\)\\'" "gimp")
|
|
|
("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'"
|
|
|
"vlc")
|
|
|
("\\.\\(?:mp3\\|flac\\|ogg\\)\\'" "mplayer")
|
|
|
("\\.html?\\'" "firefox")
|
|
|
("\\.docx?\\'" "loffice")))
|
|
|
|
|
|
(unbind-key "C-M-o" dired-mode-map)
|
|
|
|
|
|
(require 'dired+)
|
|
|
(setq diredp-hide-details-initially-flag nil)
|
|
|
|
|
|
;; disable exaggerated fontification of dired+
|
|
|
(require 'font-lock)
|
|
|
(add-to-list 'font-lock-maximum-decoration '(wdired-mode . 1))
|
|
|
(add-to-list 'font-lock-maximum-decoration '(dired-mode . 1))
|
|
|
|
|
|
;; https://oremacs.com/2017/03/18/dired-ediff/
|
|
|
|
|
|
(defun ora-ediff-files ()
|
|
|
(interactive)
|
|
|
(lexical-let ((files (dired-get-marked-files))
|
|
|
(wnd (current-window-configuration)))
|
|
|
(if (<= (length files) 2)
|
|
|
(lexical-let ((file1 (car files))
|
|
|
(file2 (if (cdr files)
|
|
|
(cadr files)
|
|
|
(read-file-name
|
|
|
"file: "
|
|
|
(dired-dwim-target-directory)))))
|
|
|
(if (file-newer-than-file-p file1 file2)
|
|
|
(ediff-files file2 file1)
|
|
|
(ediff-files file1 file2))
|
|
|
(add-hook 'ediff-after-quit-hook-internal
|
|
|
(lambda ()
|
|
|
(setq ediff-after-quit-hook-internal nil)
|
|
|
(set-window-configuration wnd))))
|
|
|
(error "no more than 2 files should be marked"))))
|
|
|
|
|
|
(require 'dired-quick-sort)
|
|
|
(dired-quick-sort-setup)
|
|
|
|
|
|
(bind-key [remap beginning-of-buffer]
|
|
|
#'dired-back-to-top dired-mode-map)
|
|
|
(bind-key [remap end-of-buffer]
|
|
|
#'dired-jump-to-bottom dired-mode-map)
|
|
|
(bind-key "z" 'dired-get-size dired-mode-map)
|
|
|
(unbind-key "s" dired-mode-map)
|
|
|
(unbind-key "<f1>" dired-mode-map)
|
|
|
(bind-key "e" #'ora-ediff-files dired-mode-map)
|
|
|
|
|
|
))
|
|
|
|
|
|
(use-package find-dired
|
|
|
:commands (find-dired)
|
|
|
:config (setq find-ls-option '("-print0 | xargs -0 ls -ld" . "-ld")))
|
|
|
|
|
|
|
|
|
;; * Completion
|
|
|
|
|
|
(use-package hippie-exp
|
|
|
:commands (hippie-expand))
|
|
|
|
|
|
(use-package helm
|
|
|
:commands (helm-command-prefix
|
|
|
helm-show-kill-ring)
|
|
|
:ensure helm
|
|
|
:diminish helm-mode
|
|
|
:defines (helm-command-prefix-key
|
|
|
helm-command-prefix
|
|
|
helm-command-map
|
|
|
helm-completing-read-handlers-alist)
|
|
|
:init (require 'helm-config)
|
|
|
:config (progn
|
|
|
(setq helm-input-idle-delay 0.0
|
|
|
helm-M-x-fuzzy-match t
|
|
|
helm-M-x-requires-pattern nil
|
|
|
helm-buffers-fuzzy-matching t
|
|
|
helm-recentf-fuzzy-match t
|
|
|
helm-mode-fuzzy-match t
|
|
|
helm-autoresize-min-height 20
|
|
|
helm-ff-auto-update-initial-value t
|
|
|
helm-ff-file-name-history-use-recentf t
|
|
|
helm-ff-search-library-in-sexp t
|
|
|
helm-ff-skip-boring-files nil
|
|
|
helm-split-window-in-side-p t
|
|
|
helm-move-to-line-cycle-in-source nil
|
|
|
helm-scroll-amount nil
|
|
|
helm-locate-command nil
|
|
|
helm-candidate-number-limit 100
|
|
|
helm-follow-mode-persistent t
|
|
|
helm-buffer-details-flag t
|
|
|
helm-buffer-skip-remote-checking t)
|
|
|
|
|
|
(unbind-key helm-command-prefix-key)
|
|
|
|
|
|
(bind-key "<tab>" 'helm-execute-persistent-action helm-map)
|
|
|
(bind-key "C-i" 'helm-execute-persistent-action helm-map)
|
|
|
(bind-key "C-z" 'helm-select-action helm-map)
|
|
|
|
|
|
(require 'db-utils)
|
|
|
|
|
|
(setq helm-mini-default-sources '(helm-source-buffers-list
|
|
|
helm-source-recentf
|
|
|
db/helm-frequently-used-features
|
|
|
db/helm-frequently-visited-locations
|
|
|
helm-source-buffer-not-found
|
|
|
helm-source-bookmarks
|
|
|
helm-source-bookmark-set))))
|
|
|
|
|
|
(use-package ivy
|
|
|
:commands (ivy-mode
|
|
|
ivy-resume
|
|
|
ivy-recentf)
|
|
|
:diminish ivy-mode
|
|
|
:config (progn
|
|
|
(setq ivy-use-virtual-buffers t
|
|
|
enable-recursive-minibuffers t)
|
|
|
(setq ivy-initial-inputs-alist '((counsel-describe-function . "^")
|
|
|
(counsel-describe-variable . "^")
|
|
|
(man . "^")
|
|
|
(woman . "^")))))
|
|
|
|
|
|
(use-package counsel
|
|
|
:commands (counsel-org-goto-all
|
|
|
counsel-ag
|
|
|
counsel-M-x
|
|
|
counsel-find-file
|
|
|
counsel-info-lookup-symbol
|
|
|
counsel-unicode-char
|
|
|
counsel-describe-variable
|
|
|
counsel-describe-function))
|
|
|
|
|
|
(use-package swiper
|
|
|
:commands (swiper))
|
|
|
|
|
|
(use-package recentf
|
|
|
:commands (recentf-mode recentf-save-list)
|
|
|
:init (setq recentf-max-saved-items 20))
|
|
|
|
|
|
(use-package company
|
|
|
:commands (company-mode global-company-mode))
|
|
|
|
|
|
|
|
|
;; * Navigation
|
|
|
|
|
|
(use-package ace-window
|
|
|
:ensure t
|
|
|
:commands (ace-window ace-window-display-mode)
|
|
|
:demand t
|
|
|
:config (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
|
|
|
aw-background nil
|
|
|
aw-leading-char-style 'char
|
|
|
aw-scope 'frame))
|
|
|
(use-package avy
|
|
|
:commands (avy-goto-char-timer
|
|
|
avy-goto-word-or-subword-1
|
|
|
avy-goto-line))
|
|
|
|
|
|
(use-package dumb-jump
|
|
|
:commands (dumb-jump-go-other-window
|
|
|
dumb-jump-go
|
|
|
dumb-jump-back
|
|
|
dumb-jump-quick-look
|
|
|
dumb-jump-go-prefer-external
|
|
|
dumb-jump-go-prefer-external-other-window)
|
|
|
:config (setq dumb-jump-selector 'helm))
|
|
|
|
|
|
|
|
|
;; * EMMS
|
|
|
|
|
|
(use-package emms
|
|
|
:ensure t
|
|
|
:commands (emms
|
|
|
emms-stream-init
|
|
|
db/play-playlist
|
|
|
emms-cache-save
|
|
|
emms-play-directory-tree
|
|
|
emms-control/body)
|
|
|
:defines (emms-playlist-mode-map)
|
|
|
:config (progn
|
|
|
|
|
|
(require 'emms-setup)
|
|
|
|
|
|
(emms-all)
|
|
|
(emms-default-players)
|
|
|
|
|
|
(setq emms-source-file-default-directory "~/Documents/media/audio/")
|
|
|
|
|
|
(defadvice emms-tag-editor-submit (after delete-window activate)
|
|
|
(delete-window))
|
|
|
|
|
|
(bind-key "S s" #'emms-shuffle emms-playlist-mode-map)
|
|
|
|
|
|
(add-hook 'emms-player-started-hook 'emms-show)
|
|
|
(setq emms-show-format "NP: %s")
|
|
|
|
|
|
(emms-mode-line -1)
|
|
|
(emms-playing-time-enable-display)
|
|
|
(setq emms-player-list
|
|
|
'(emms-player-mplayer emms-player-mplayer-playlist))
|
|
|
|
|
|
(defun db/play-playlist ()
|
|
|
(interactive)
|
|
|
(save-window-excursion
|
|
|
(let ((music-buffer-name "*EMMS Playlist* -- Misc"))
|
|
|
(unless (get-buffer music-buffer-name)
|
|
|
(emms-playlist-new music-buffer-name))
|
|
|
(with-current-buffer (get-buffer music-buffer-name)
|
|
|
(emms-stop)
|
|
|
(emms-playlist-set-playlist-buffer)
|
|
|
(emms-playlist-current-clear)
|
|
|
(emms-playlist-current-insert-source
|
|
|
'emms-insert-playlist
|
|
|
"~/Documents/home/misc/playlist-daniel.pls")
|
|
|
(beginning-of-buffer)
|
|
|
(emms-shuffle)
|
|
|
;; (emms-playlist-sort-by-play-count)
|
|
|
(emms-playlist-select-first)
|
|
|
(emms-start)))))
|
|
|
|
|
|
;; adapt track description
|
|
|
(defun db/emms-track-description (track)
|
|
|
(require 'seq)
|
|
|
(let* ((artist (propertize (emms-track-get track 'info-artist "")
|
|
|
'face 'emms-browser-artist-face))
|
|
|
(composer (propertize (emms-track-get track 'info-composer "")
|
|
|
'face 'emms-browser-composer-face))
|
|
|
(performer (propertize (emms-track-get track 'info-performer "")
|
|
|
'face 'emms-browser-performer-face))
|
|
|
(title (propertize (emms-track-get track 'info-title "")
|
|
|
'face 'emms-browser-track-face))
|
|
|
(note (emms-track-get track 'info-note "")))
|
|
|
(let ((main-description (if (not (seq-empty-p title))
|
|
|
(cond
|
|
|
((and (not (seq-empty-p composer))
|
|
|
(not (seq-empty-p performer)))
|
|
|
(if (string= composer performer)
|
|
|
(format "“%s” by %s"
|
|
|
title composer)
|
|
|
(format "“%s” by %s, performed by %s"
|
|
|
title
|
|
|
composer
|
|
|
performer)))
|
|
|
((not (seq-empty-p artist))
|
|
|
(format "“%s” by %s" title artist))
|
|
|
(t title))
|
|
|
(emms-track-simple-description track)))
|
|
|
(note (if (seq-empty-p note)
|
|
|
""
|
|
|
(concat " [" note "]"))))
|
|
|
(concat main-description note))))
|
|
|
|
|
|
(setq emms-track-description-function
|
|
|
'db/emms-track-description)
|
|
|
|
|
|
;; don't set face in playlist to emms-playlist-track-face
|
|
|
(defun db/emms-playlist-mode-insert-track (track &optional no-newline)
|
|
|
"Insert the description of TRACK at point.
|
|
|
When NO-NEWLINE is non-nil, do not insert a newline after the track."
|
|
|
(emms-playlist-ensure-playlist-buffer)
|
|
|
(emms-with-inhibit-read-only-t
|
|
|
(insert (emms-propertize (emms-track-force-description track)
|
|
|
'emms-track track
|
|
|
;'face 'emms-playlist-track-face
|
|
|
))
|
|
|
(when (emms-playlist-selected-track-at-p)
|
|
|
(emms-playlist-mode-overlay-selected))
|
|
|
(unless no-newline
|
|
|
(insert "\n"))))
|
|
|
|
|
|
(add-hook 'emms-playlist-mode-hook
|
|
|
(lambda ()
|
|
|
(setq emms-playlist-insert-track-function
|
|
|
#'db/emms-playlist-mode-insert-track)))
|
|
|
|
|
|
;; streams
|
|
|
(require 'emms-stream-info)
|
|
|
(setq emms-stream-default-action "play")
|
|
|
|
|
|
(defun db/emms-track-status ()
|
|
|
(if emms-player-playing-p
|
|
|
(format "%s" (emms-track-description
|
|
|
(emms-playlist-current-selected-track)))
|
|
|
"«nothing»"))
|
|
|
|
|
|
;; easy control
|
|
|
(defhydra emms-control (:color red :hint none)
|
|
|
"
|
|
|
Playing: %s(db/emms-track-status)
|
|
|
|
|
|
_n_: ?n? _p_: ?p?
|
|
|
_RET_: ?RET? _M_: ?M?
|
|
|
_-_: lower volume _+_: ?+?
|
|
|
|
|
|
"
|
|
|
("n" emms-next "next")
|
|
|
("p" emms-previous "previous")
|
|
|
("RET" emms-pause "play/pause")
|
|
|
("s" emms-show "show title")
|
|
|
("-" emms-volume-lower "lower volume")
|
|
|
("+" emms-volume-raise "raise volume")
|
|
|
("M" emms "show playlist"))
|
|
|
|
|
|
t))
|
|
|
|
|
|
(use-package helm-emms
|
|
|
:commands (helm-emms)
|
|
|
:config (setq helm-emms-default-sources
|
|
|
'(helm-source-emms-streams
|
|
|
helm-source-emms-dired
|
|
|
helm-source-emms-files)))
|
|
|
|
|
|
|
|
|
;; * Shells and such
|
|
|
|
|
|
(use-package comint
|
|
|
:config (progn
|
|
|
(setq comint-scroll-to-bottom-on-input t)
|
|
|
(setq comint-scroll-to-bottom-on-output nil)
|
|
|
(setq comint-scroll-show-maximum-output t)
|
|
|
(setq comint-completion-addsuffix t)
|
|
|
(setq comint-buffer-maximum-size 100000)
|
|
|
(setq comint-input-ring-size 5000)))
|
|
|
|
|
|
(use-package term
|
|
|
:commands (term-send-string)
|
|
|
:config (progn
|
|
|
(add-hook 'term-exec-hook ; oremacs.com
|
|
|
(lambda ()
|
|
|
(let* ((buff (current-buffer))
|
|
|
(proc (get-buffer-process buff)))
|
|
|
(set-process-sentinel
|
|
|
proc
|
|
|
`(lambda (process event)
|
|
|
(if (string= event "finished\n")
|
|
|
(kill-buffer ,buff)))))))
|
|
|
|
|
|
;; does not work; C-c is shadowed by some minor modes like semantic,
|
|
|
;; projectile, and winner
|
|
|
(bind-key "C-c" 'term-send-raw term-raw-map)
|
|
|
|
|
|
;; unbind some keys to allow the global keymap to handle them
|
|
|
(unbind-key "M-:" term-raw-map)
|
|
|
(unbind-key "C-h" term-raw-map)
|
|
|
(unbind-key "M-x" term-raw-map)
|
|
|
(unbind-key "M-o" term-raw-map)
|
|
|
|
|
|
;; we need to set keys starting with C-x after `ansi-term' has been
|
|
|
;; called, as it resets the escape character to C-x.
|
|
|
(defadvice ansi-term (after ansi-term-set-keys activate)
|
|
|
(unbind-key "C-x C-j" term-raw-map)
|
|
|
(unbind-key "C-x g" term-raw-map))))
|
|
|
|
|
|
(use-package ansi-color
|
|
|
:commands (ansi-color-for-comint-mode-on)
|
|
|
:config (progn
|
|
|
;; http://endlessparentheses.com/ansi-colors-in-the-compilation-buffer-output.html
|
|
|
(defun endless/colorize-compilation ()
|
|
|
"Colorize from `compilation-filter-start' to `point'."
|
|
|
(let ((inhibit-read-only t))
|
|
|
(ansi-color-apply-on-region compilation-filter-start (point))))
|
|
|
|
|
|
(add-hook 'compilation-filter-hook #'endless/colorize-compilation)))
|
|
|
|
|
|
(use-package shell
|
|
|
:init (setq explicit-shell-file-name "/usr/bin/zsh")
|
|
|
:config (progn
|
|
|
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
|
|
|
(add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m)))
|
|
|
|
|
|
(use-package eshell
|
|
|
:commands (eshell)
|
|
|
:config (progn
|
|
|
|
|
|
(require 'em-prompt)
|
|
|
(require 'em-term)
|
|
|
(require 'em-cmpl)
|
|
|
|
|
|
(setq eshell-cmpl-cycle-completions nil
|
|
|
eshell-save-history-on-exit t
|
|
|
eshell-scroll-to-bottom-on-input t
|
|
|
eshell-prefer-lisp-functions nil)
|
|
|
|
|
|
(setenv "PAGER" "cat")
|
|
|
|
|
|
(defun eshell-clear-buffer ()
|
|
|
"Clear terminal."
|
|
|
(interactive)
|
|
|
(let ((inhibit-read-only t))
|
|
|
(erase-buffer)
|
|
|
(eshell-send-input)))
|
|
|
|
|
|
;; eshell is a bit strange and sets up its mode map as a local map;
|
|
|
;; because of this we need to put key definitions into a hook
|
|
|
(add-hook 'eshell-mode-hook
|
|
|
(lambda ()
|
|
|
(bind-key "C-a" #'eshell-bol eshell-mode-map)
|
|
|
(bind-key "C-l" #'eshell-clear-buffer eshell-mode-map)))
|
|
|
|
|
|
(add-to-list 'eshell-command-completions-alist
|
|
|
'("gunzip" "gz\\'"))
|
|
|
|
|
|
(add-to-list 'eshell-command-completions-alist
|
|
|
'("tar" "\\(\\.tar|\\.tgz\\|\\.tar\\.gz\\)\\'"))
|
|
|
|
|
|
(setq eshell-prompt-function
|
|
|
(lambda ()
|
|
|
(concat
|
|
|
"[" (user-login-name)
|
|
|
"@" (getenv "HOST")
|
|
|
":" (abbreviate-file-name (eshell/pwd))
|
|
|
"]\n→ "))
|
|
|
eshell-prompt-regexp
|
|
|
"^→ ")
|
|
|
|
|
|
(add-hook 'eshell-mode-hook
|
|
|
(lambda ()
|
|
|
(add-hook 'eshell-output-filter-functions 'eshell-truncate-buffer)))
|
|
|
|
|
|
;; Git Completion
|
|
|
;; https://tsdh.wordpress.com/2013/05/31/eshell-completion-for-git-bzr-and-hg/
|
|
|
|
|
|
(require 'pcomplete)
|
|
|
|
|
|
(defun pcmpl-git-commands ()
|
|
|
"Return the most common git commands by parsing the git output."
|
|
|
(with-temp-buffer
|
|
|
(call-process "git" nil (current-buffer) nil "help" "--all")
|
|
|
(goto-char 0)
|
|
|
(search-forward "available git commands in")
|
|
|
(let (commands)
|
|
|
(while (re-search-forward
|
|
|
"^[[:blank:]]+\\([[:word:]-.]+\\)[[:blank:]]*\\([[:word:]-.]+\\)?"
|
|
|
nil t)
|
|
|
(push (match-string 1) commands)
|
|
|
(when (match-string 2)
|
|
|
(push (match-string 2) commands)))
|
|
|
(sort commands #'string<))))
|
|
|
|
|
|
(defconst pcmpl-git-commands (pcmpl-git-commands)
|
|
|
"List of `git' commands.")
|
|
|
|
|
|
(defvar pcmpl-git-ref-list-cmd "git for-each-ref refs/ --format='%(refname)'"
|
|
|
"The `git' command to run to get a list of refs.")
|
|
|
|
|
|
(defun pcmpl-git-get-refs (type)
|
|
|
"Return a list of `git' refs filtered by TYPE."
|
|
|
(with-temp-buffer
|
|
|
(insert (shell-command-to-string pcmpl-git-ref-list-cmd))
|
|
|
(goto-char (point-min))
|
|
|
(let (refs)
|
|
|
(while (re-search-forward (concat "^refs/" type "/\\(.+\\)$") nil t)
|
|
|
(push (match-string 1) refs))
|
|
|
(nreverse refs))))
|
|
|
|
|
|
(defun pcmpl-git-remotes ()
|
|
|
"Return a list of remote repositories."
|
|
|
(split-string (shell-command-to-string "git remote")))
|
|
|
|
|
|
(defun pcomplete/git ()
|
|
|
"Completion for `git'."
|
|
|
;; Completion for the command argument.
|
|
|
(pcomplete-here* pcmpl-git-commands)
|
|
|
(cond
|
|
|
((pcomplete-match "help" 1)
|
|
|
(pcomplete-here* pcmpl-git-commands))
|
|
|
((pcomplete-match (regexp-opt '("pull" "push")) 1)
|
|
|
(pcomplete-here (pcmpl-git-remotes)))
|
|
|
;; provide branch completion for the command `checkout'.
|
|
|
((pcomplete-match (regexp-opt '("checkout" "co")) 1)
|
|
|
(pcomplete-here* (append (pcmpl-git-get-refs "heads")
|
|
|
(pcmpl-git-get-refs "tags"))))
|
|
|
(t
|
|
|
(while (pcomplete-here (pcomplete-entries))))))))
|
|
|
|
|
|
|
|
|
;; * Lisp
|
|
|
|
|
|
;; General Stuff first
|
|
|
|
|
|
(use-package lispy
|
|
|
;; note: this will load org-mode
|
|
|
:commands (lispy-mode conditionally-enable-lispy)
|
|
|
:diminish lispy-mode
|
|
|
:config (progn
|
|
|
(defun conditionally-enable-lispy ()
|
|
|
(when (or (eq this-command 'eval-expression)
|
|
|
(eq this-command 'pp-eval-expression))
|
|
|
(lispy-mode 1)))))
|
|
|
|
|
|
(use-package eldoc
|
|
|
:commands (eldoc-mode)
|
|
|
:diminish eldoc-mode)
|
|
|
|
|
|
;; Lisp Dialects
|
|
|
|
|
|
(use-package elisp-mode
|
|
|
:config (progn (add-hook 'emacs-lisp-mode-hook #'lispy-mode)
|
|
|
|
|
|
(defun db/add-use-package-to-imenu ()
|
|
|
(add-to-list 'imenu-generic-expression
|
|
|
'("Used Packages"
|
|
|
"\\(^\\s-*(use-package +\\)\\(\\_<.+\\_>\\)"
|
|
|
2)))
|
|
|
(add-hook 'emacs-lisp-mode-hook #'db/add-use-package-to-imenu)
|
|
|
|
|
|
(add-hook 'ielm-mode-hook #'eldoc-mode)
|
|
|
(add-hook 'emacs-lisp-mode-hook #'eldoc-mode)))
|
|
|
|
|
|
(use-package geiser
|
|
|
:commands (geiser-mode))
|
|
|
|
|
|
(use-package cider
|
|
|
:commands (cider-jack-in)
|
|
|
:config (progn
|
|
|
(setq nrepl-hide-special-buffers t
|
|
|
cider-auto-select-error-buffer t
|
|
|
cider-stacktrace-default-filters '(tooling dup)
|
|
|
cider-stacktrace-fill-column 80
|
|
|
cider-prompt-save-file-on-load nil
|
|
|
cider-repl-result-prefix ";; => "
|
|
|
cider-repl-use-clojure-font-lock t
|
|
|
cider-repl-wrap-history t
|
|
|
cider-repl-history-size 1000
|
|
|
;;cider-lein-parameters "trampoline repl :headless"
|
|
|
cider-lein-parameters "repl :headless"
|
|
|
cider-repl-history-file (expand-file-name ".cider-history" emacs-d)
|
|
|
cider-repl-display-help-banner nil)
|
|
|
|
|
|
(add-hook 'cider-repl-mode-hook #'subword-mode)
|
|
|
(add-hook 'cider-repl-mode-hook #'lispy-mode)
|
|
|
(add-hook 'cider-repl-mode-hook #'cider-repl-toggle-pretty-printing)
|
|
|
(add-hook 'cider-mode-hook #'eldoc-mode)
|
|
|
|
|
|
(setq cider-cljs-lein-repl "(cemerick.piggieback/cljs-repl (cljs.repl.rhino/repl-env))")))
|
|
|
|
|
|
(use-package clojure-mode
|
|
|
:mode (("\\.clj\\'" . clojure-mode))
|
|
|
:config (progn (define-clojure-indent
|
|
|
(forall 'defun)
|
|
|
(exists 'defun)
|
|
|
(dopar 'defun))
|
|
|
(add-hook 'clojure-mode-hook #'lispy-mode)
|
|
|
(add-hook 'clojure-mode-hook #'clj-refactor-mode)
|
|
|
(add-hook 'clojure-mode-hook #'yas-minor-mode)))
|
|
|
|
|
|
(use-package clj-refactor
|
|
|
:commands (clj-refactor-mode)
|
|
|
:config (progn
|
|
|
(cljr-add-keybindings-with-prefix "C-c C-m")
|
|
|
(setq cljr-eagerly-build-asts-on-startup nil
|
|
|
cljr-warn-on-eval nil)))
|
|
|
|
|
|
(use-package slime
|
|
|
:commands (slime slime-mode slime-connect)
|
|
|
:mode (("\\.cl\\'" . lisp-mode)
|
|
|
("\\.lisp\\'" . lisp-mode))
|
|
|
:init (progn
|
|
|
(setq inferior-lisp-program "sbcl --noinform --no-linedit")
|
|
|
(add-hook 'lisp-mode-hook '(lambda () (slime-mode +1)) t))
|
|
|
:config (progn
|
|
|
(setq slime-compile-file-options '(:fasl-directory "/tmp/slime-fasls/"))
|
|
|
(make-directory "/tmp/slime-fasls/" t)
|
|
|
|
|
|
(slime-setup '(slime-repl slime-fancy slime-autodoc))
|
|
|
|
|
|
(setq slime-net-coding-system 'utf-8-unix
|
|
|
slime-completion-at-point-functions 'slime-fuzzy-complete-symbol)
|
|
|
(add-hook 'slime-mode-hook 'slime-redirect-inferior-output)
|
|
|
|
|
|
(defun db/slime-reload ()
|
|
|
(interactive)
|
|
|
(mapc 'load-library
|
|
|
(reverse (cl-remove-if-not
|
|
|
(lambda (feature) (string-prefix-p "slime" feature))
|
|
|
(mapcar 'symbol-name features))))
|
|
|
(setq slime-protocol-version (slime-changelog-date))
|
|
|
(load-slime))
|
|
|
|
|
|
(setq slime-lisp-implementations
|
|
|
'((sbcl ("sbcl") :coding-system utf-8-unix)
|
|
|
(cmucl ("cmucl") :coding-system utf-8-unix)
|
|
|
(ccl ("ccl") :coding-system utf-8-unix)))
|
|
|
|
|
|
(setq slime-repl-history-remove-duplicates t
|
|
|
slime-repl-history-trim-whitespaces t)))
|
|
|
|
|
|
(use-package hy-mode
|
|
|
:commands (hy-mode org-babel-execute:hy)
|
|
|
:config (progn
|
|
|
(add-hook 'hy-mode-hook #'lispy-mode)
|
|
|
(add-hook 'hy-mode-hook #'inferior-lisp)
|
|
|
|
|
|
(defun org-babel-execute:hy (body params)
|
|
|
;; http://kitchingroup.cheme.cmu.edu/blog/2016/03/30/OMG-A-Lisp-that-runs-python/
|
|
|
(let* ((temporary-file-directory ".")
|
|
|
(tempfile (make-temp-file "hy-")))
|
|
|
(with-temp-file tempfile
|
|
|
(insert body))
|
|
|
(unwind-protect
|
|
|
(shell-command-to-string
|
|
|
(format "hy %s" tempfile))
|
|
|
(delete-file tempfile))))))
|
|
|
|
|
|
|
|
|
;; * TeX
|
|
|
|
|
|
(use-package reftex
|
|
|
:commands (turn-on-reftex)
|
|
|
:init (add-hook 'latex-mode-hook 'turn-on-reftex) ; with Emacs latex mode
|
|
|
:config (progn
|
|
|
(eval-after-load 'helm-mode
|
|
|
'(add-to-list 'helm-completing-read-handlers-alist '(reftex-citation . nil)))
|
|
|
(setq reftex-plug-into-AUCTeX t)
|
|
|
(setq reftex-default-bibliography
|
|
|
'("~/Documents/uni/research/references.bib"))))
|
|
|
|
|
|
(use-package tex
|
|
|
:ensure auctex
|
|
|
:mode ("\\.tex\\'" . TeX-mode)
|
|
|
:init (progn
|
|
|
(dolist (extension '(".out" ".synctex.gz" ".thm"))
|
|
|
(add-to-list 'completion-ignored-extensions extension)))
|
|
|
:config (progn
|
|
|
(require 'latex)
|
|
|
(require 'tex-buf)
|
|
|
(require 'reftex)
|
|
|
|
|
|
(TeX-engine-set 'default)
|
|
|
|
|
|
(setq-default TeX-auto-save t
|
|
|
TeX-save-query nil
|
|
|
TeX-parse-self t
|
|
|
TeX-master t
|
|
|
TeX-electric-sub-and-superscript t
|
|
|
TeX-electric-math '("$" . "$")
|
|
|
TeX-electric-escape nil
|
|
|
LaTeX-electric-left-right-brace t
|
|
|
LaTeX-fill-break-at-separators nil)
|
|
|
|
|
|
(add-hook 'LaTeX-mode-hook #'turn-on-flyspell)
|
|
|
(add-hook 'LaTeX-mode-hook #'turn-on-visual-line-mode)
|
|
|
(add-hook 'LaTeX-mode-hook #'LaTeX-math-mode)
|
|
|
(add-hook 'LaTeX-mode-hook #'outline-minor-mode)
|
|
|
(add-hook 'LaTeX-mode-hook #'turn-on-page-break-lines-mode)
|
|
|
(add-hook 'LaTeX-mode-hook #'turn-on-reftex)
|
|
|
|
|
|
(put 'TeX-narrow-to-group 'disabled nil)
|
|
|
(put 'LaTeX-narrow-to-environment 'disabled nil)
|
|
|
|
|
|
(setq TeX-fold-math-spec-list '(("≤" ("le"))
|
|
|
("≥" ("ge"))
|
|
|
("∉" ("notin"))))
|
|
|
|
|
|
(setq TeX-source-correlate-start-server nil)
|
|
|
|
|
|
(setq LaTeX-eqnarray-label "eqn:"
|
|
|
LaTeX-equation-label "eqn:"
|
|
|
LaTeX-figure-label "fig:"
|
|
|
LaTeX-table-label "tab:"
|
|
|
TeX-newline-function 'reindent-then-newline-and-indent
|
|
|
LaTeX-section-hook '(LaTeX-section-heading
|
|
|
LaTeX-section-title
|
|
|
LaTeX-section-section
|
|
|
LaTeX-section-label))
|
|
|
|
|
|
(add-hook 'LaTeX-mode-hook '(lambda ()
|
|
|
(TeX-PDF-mode 1)
|
|
|
(TeX-source-correlate-mode 1)
|
|
|
(TeX-fold-mode 1)))
|
|
|
|
|
|
;; Use pdf-tools
|
|
|
(eval-after-load 'pdf-tools
|
|
|
`(progn
|
|
|
(add-to-list 'TeX-view-program-selection '(output-pdf "PDF Tools"))
|
|
|
(add-to-list 'TeX-after-compilation-finished-functions
|
|
|
#'TeX-revert-document-buffer)))
|
|
|
|
|
|
|
|
|
;; Printer
|
|
|
(add-to-list 'TeX-printer-list '("Remote" "lp-remote %o" "ssh lat lpstat -o"))
|
|
|
(setq TeX-printer-default "Remote")
|
|
|
|
|
|
(TeX-add-style-hook
|
|
|
"mydefs"
|
|
|
(lambda ()
|
|
|
(TeX-run-style-hooks "etex"
|
|
|
"etoolbox"
|
|
|
"ifthen"
|
|
|
"amsmath"
|
|
|
"amssymb"
|
|
|
"latexsym"
|
|
|
"mathabx"
|
|
|
"stmaryrd"
|
|
|
"verbatim"
|
|
|
"graphicx"
|
|
|
"enumerate"
|
|
|
"array"
|
|
|
"booktabs"
|
|
|
"ulem"
|
|
|
"nicefrac"
|
|
|
"listings"
|
|
|
"microtype"
|
|
|
"tabularx"
|
|
|
"tikz"
|
|
|
"csquotes"
|
|
|
"ntheorem"
|
|
|
"xspace")
|
|
|
(LaTeX-add-environments
|
|
|
'("Exercise" LaTeX-env-label)
|
|
|
'("Theorem" LaTeX-env-label)
|
|
|
'("Proposition" LaTeX-env-label)
|
|
|
'("Lemma" LaTeX-env-label)
|
|
|
'("Corollary" LaTeX-env-label)
|
|
|
'("Remark" LaTeX-env-label)
|
|
|
'("Example" LaTeX-env-label)
|
|
|
'("Definition" LaTeX-env-label)
|
|
|
'("Proof" LaTeX-env-label))
|
|
|
|
|
|
;; https://tex.stackexchange.com/questions/217799/auctex-11-88-bug-on-latex-env-label-cannot-automatically-insert-label
|
|
|
(setf (cadr reftex-insert-label-flags)
|
|
|
(concat (cadr reftex-insert-label-flags) "TLPDRCE"))
|
|
|
|
|
|
(dolist (label-spec '(("Theorem" ?T "thm:" "~\\ref{%s}" t ("Theorem" "Thm.") nil)
|
|
|
("Lemma" ?L "lem:" "~\\ref{%s}" t ("Lemma" "Lem.") nil)
|
|
|
("Proposition" ?P "prop:" "~\\ref{%s}" t ("Proposition" "Prop.") nil)
|
|
|
("Satz" ?T "thm:" "~\\ref{%s}" t ("Satz") nil)
|
|
|
("Definition" ?D "def:" "~\\ref{%s}" t ("Definition" "Def.") nil)
|
|
|
("Remark" ?R "rem:" "~\\ref{%s}" t ("Remark" "Rem.") nil)
|
|
|
("Corollary" ?C "cor:" "~\\ref{%s}" t ("Corollary" "Cor.") nil)
|
|
|
("Example" ?E "expl:" "~\\ref{%s}" t ("Example") nil)))
|
|
|
(add-to-list 'reftex-label-alist label-spec)
|
|
|
(add-to-list 'LaTeX-label-alist (cons (nth 0 label-spec)
|
|
|
(nth 2 label-spec))))))
|
|
|
|
|
|
(TeX-add-style-hook
|
|
|
"cleveref"
|
|
|
(lambda ()
|
|
|
(add-to-list 'reftex-ref-style-alist
|
|
|
'("Cleveref" "cleveref"
|
|
|
(("\\cref" ?c) ("\\Cref" ?C)
|
|
|
("\\cpageref" ?d) ("\\Cpageref" ?D))))
|
|
|
(reftex-ref-style-activate "Cleveref")
|
|
|
(TeX-add-symbols
|
|
|
'("cref" TeX-arg-ref)
|
|
|
'("Cref" TeX-arg-ref)
|
|
|
'("cpageref" TeX-arg-ref)
|
|
|
'("Cpageref" TeX-arg-ref))))
|
|
|
|
|
|
(add-hook 'TeX-language-de-hook
|
|
|
(lambda () (ispell-change-dictionary "de_DE")))
|
|
|
|
|
|
(add-hook 'TeX-language-en-hook
|
|
|
(lambda () (ispell-change-dictionary "en_US")))
|
|
|
|
|
|
;; LaTeXMk
|
|
|
(when (require 'auctex-latexmk nil 'no-error)
|
|
|
(auctex-latexmk-setup)
|
|
|
(setq auctex-latexmk-inherit-TeX-PDF-mode t))))
|
|
|
|
|
|
(use-package ebib
|
|
|
:commands (ebib))
|
|
|
|
|
|
(use-package helm-bibtex
|
|
|
:commands (helm-bibtex)
|
|
|
:config (progn
|
|
|
(setq bibtex-completion-bibliography "~/Documents/uni/research/references.bib"
|
|
|
bibtex-completion-library-path "~/Documents/library/.bibtex-pdfs/"
|
|
|
bibtex-completion-notes-path "~/Documents/uni/research/references.org")))
|
|
|
|
|
|
|
|
|
;; * Various Mode Configurations
|
|
|
|
|
|
;; These are packages that are not essential, but still nice to have. They
|
|
|
;; provide optional functionality and may redefine builtin commands.
|
|
|
|
|
|
(use-package define-word
|
|
|
:commands (define-word-at-point define-word))
|
|
|
|
|
|
(use-package dictcc
|
|
|
:commands (dictcc))
|
|
|
|
|
|
(use-package edit-list
|
|
|
:commands edit-list)
|
|
|
|
|
|
(use-package electric
|
|
|
:commands (electric-quote-mode))
|
|
|
|
|
|
(use-package elec-pair
|
|
|
:commands (electric-pair-mode)
|
|
|
:config (progn
|
|
|
(add-to-list 'electric-pair-pairs '(?“ . ?”))
|
|
|
(add-to-list 'electric-pair-text-pairs '(?“ . ?”))
|
|
|
(add-to-list 'electric-pair-pairs '(?„ . ?“))
|
|
|
(add-to-list 'electric-pair-text-pairs '(?„ . ?“))))
|
|
|
|
|
|
(use-package expand-region
|
|
|
:commands (er/expand-region))
|
|
|
|
|
|
(use-package flycheck
|
|
|
:commands (global-flycheck-mode flycheck-mode))
|
|
|
|
|
|
(use-package flyspell
|
|
|
:commands (flyspell-mode turn-on-flyspell)
|
|
|
:init (add-hook 'text-mode-hook #'turn-on-flyspell)
|
|
|
:config (progn
|
|
|
(unbind-key "C-M-i" flyspell-mode-map)
|
|
|
(unbind-key "C-c $" flyspell-mode-map)))
|
|
|
|
|
|
(use-package haskell-mode
|
|
|
:mode (("\\.hs\\'" . haskell-mode)
|
|
|
("\\.lhs\\'" . haskell-mode))
|
|
|
:defines (haskell-program-name)
|
|
|
:config (progn
|
|
|
(setq haskell-program-name "ghci")
|
|
|
(add-hook 'haskell-mode-hook 'haskell-doc-mode)
|
|
|
(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
|
|
|
(add-hook 'haskell-mode-hook 'company-mode)
|
|
|
(add-hook 'haskell-mode-hook
|
|
|
(lambda ()
|
|
|
(set (make-local-variable 'company-backends)
|
|
|
(append '((company-capf company-dabbrev-code))
|
|
|
company-backends))))
|
|
|
(add-hook 'haskell-mode-hook 'flycheck-mode)
|
|
|
|
|
|
(require 'haskell-indentation)
|
|
|
(add-hook 'haskell-mode-hook
|
|
|
'haskell-indentation-mode)
|
|
|
|
|
|
(add-hook 'haskell-mode-hook
|
|
|
'interactive-haskell-mode)))
|
|
|
|
|
|
(use-package ivy-pages
|
|
|
:commands (ivy-pages))
|
|
|
|
|
|
(use-package highlight-indentation
|
|
|
:commands highlight-indentation-mode)
|
|
|
|
|
|
(use-package iedit
|
|
|
:commands (iedit-mode))
|
|
|
|
|
|
(use-package key-chord
|
|
|
:commands (key-chord-mode)
|
|
|
:config (progn
|
|
|
(key-chord-define-global "``" "“")
|
|
|
(key-chord-define-global "''" "”")
|
|
|
(key-chord-define-global ",," "„")))
|
|
|
|
|
|
(use-package markdown-mode
|
|
|
:mode (("\\.md\\'" . markdown-mode)))
|
|
|
|
|
|
(use-package mastodon
|
|
|
:config (progn
|
|
|
(setq mastodon-instance-url "https://mastodon.blue/")))
|
|
|
|
|
|
(use-package multiple-cursors
|
|
|
:commands (mc/edit-lines
|
|
|
mc/mark-next-like-this
|
|
|
mc/mark-previous-like-this
|
|
|
mc/mark-all-like-this))
|
|
|
|
|
|
(use-package nxml
|
|
|
:mode (("\\.html\\'" . nxml-mode)
|
|
|
("\\.xml\\'" . nxml-mode)))
|
|
|
|
|
|
(use-package page-break-lines
|
|
|
:commands (turn-on-page-break-lines-mode)
|
|
|
:diminish page-break-lines-mode)
|
|
|
|
|
|
(use-package pdf-tools
|
|
|
:pin "melpa-stable"
|
|
|
:config (pdf-tools-install))
|
|
|
|
|
|
(use-package perl-mode
|
|
|
:commands (perl-mode)
|
|
|
:mode (("\\.pl\\'" . perl-mode)
|
|
|
("\\.pm\\'" . perl-mode))
|
|
|
:config (progn
|
|
|
(add-hook 'perl-mode-hook 'flycheck-mode)
|
|
|
(add-hook 'perl-mode-hook 'prettify-symbols-mode)
|
|
|
(setq perl-indent-level 2)))
|
|
|
|
|
|
(use-package pp
|
|
|
:commands (db/eval-last-sexp-or-region
|
|
|
pp-eval-expression)
|
|
|
:config (progn
|
|
|
(defun db/eval-last-sexp-or-region (prefix)
|
|
|
;; http://pages.sachachua.com/.emacs.d/Sacha.html#orgheadline140
|
|
|
"Eval region from BEG to END if active, otherwise the last sexp."
|
|
|
(interactive "P")
|
|
|
(if (and (mark) (use-region-p))
|
|
|
(eval-region (min (point) (mark)) (max (point) (mark)))
|
|
|
(pp-eval-last-sexp prefix)))))
|
|
|
|
|
|
(use-package python
|
|
|
:config (progn
|
|
|
(setq python-indent-offset 4
|
|
|
python-shell-interpreter "/usr/bin/python")
|
|
|
(add-hook 'python-mode-hook #'highlight-indentation-mode)))
|
|
|
|
|
|
(use-package scala-mode
|
|
|
:mode (("\\.scala\\'" . scala-mode)))
|
|
|
|
|
|
(use-package semantic
|
|
|
:commands (semantic-mode)
|
|
|
:config (progn
|
|
|
(require 'semantic/ia)
|
|
|
(require 'semantic/bovine/el)
|
|
|
|
|
|
;; recognize `use-package' as include statement; for some reason,
|
|
|
;; this form needs to be wrapped in a backquote so that the lambda
|
|
|
;; form is evaluated before parser is installed; otherwise, the
|
|
|
;; lambda-form is not recognized as a function and the parsing does
|
|
|
;; not work
|
|
|
(eval-after-load 'semantic/bovine/el
|
|
|
`(semantic-elisp-setup-form-parser
|
|
|
,(lambda (form start end)
|
|
|
(semantic-tag-new-include (symbol-name (nth 1 form)) nil))
|
|
|
use-package))))
|
|
|
|
|
|
(use-package synonyms
|
|
|
:config (setq synonyms-file "~/.local/share/thesaurus/mthesaur.txt"
|
|
|
synonyms-cache-file "~/.emacs.d/mthesaur.txt.cache")
|
|
|
:commands (synonyms))
|
|
|
|
|
|
(use-package undo-tree
|
|
|
:commands (global-undo-tree-mode
|
|
|
undo
|
|
|
undo-tree-redo)
|
|
|
:config (setq undo-tree-visualizer-timestamps t
|
|
|
undo-tree-visualizer-diff t)
|
|
|
:diminish undo-tree-mode)
|
|
|
|
|
|
(use-package wgrep
|
|
|
:commands (wgrep-finish-edit
|
|
|
wgrep-change-to-wgrep-mode))
|
|
|
|
|
|
(use-package which-key
|
|
|
:commands (which-key-mode)
|
|
|
:diminish which-key-mode
|
|
|
:config (progn (which-key-setup-side-window-bottom)
|
|
|
(setq which-key-side-window-max-width 0.33
|
|
|
which-key-side-window-max-height 0.25)))
|
|
|
|
|
|
(use-package yasnippet
|
|
|
:commands (yas-minor-mode-on yas-minor-mode)
|
|
|
:diminish yas-minor-mode
|
|
|
:init (add-hook 'text-mode-hook #'yas-minor-mode-on)
|
|
|
:config (progn
|
|
|
(add-hook 'term-mode-hook (lambda () (yas-minor-mode -1)))
|
|
|
(yas-reload-all)))
|
|
|
|
|
|
|
|
|
;; * End
|
|
|
|
|
|
(provide 'init)
|
|
|
|
|
|
;;; init.el ends here
|