1007 lines
33 KiB
EmacsLisp
1007 lines
33 KiB
EmacsLisp
;; -*- lexical-binding: t; -*-
|
|
;; =============================================================================
|
|
;; ___ _ __ ___ __ _ ___ ___
|
|
;; / _ \ '_ ` _ \ / _` |/ __/ __|
|
|
;; | __/ | | | | | (_| | (__\__ \
|
|
;; (_)___|_| |_| |_|\__,_|\___|___/
|
|
;; =============================================================================
|
|
|
|
|
|
(setq user-full-name
|
|
(replace-regexp-in-string "\n$" "" (shell-command-to-string
|
|
"git config --get user.email")))
|
|
(setq user-mail-address
|
|
(replace-regexp-in-string "\n$" "" (shell-command-to-string
|
|
"git config --get user.name")))
|
|
|
|
(defun emacs24_4-p ()
|
|
(or (and (>= emacs-major-version 24)
|
|
(>= emacs-minor-version 4))
|
|
(>= emacs-major-version 25)))
|
|
|
|
;; =============================================================================
|
|
;; GUI Disables
|
|
;; =============================================================================
|
|
|
|
;; Turn off mouse interface early in startup to avoid momentary display
|
|
(when (fboundp 'menu-bar-mode) (menu-bar-mode -1))
|
|
(when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
|
|
(when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
|
|
|
|
;; These silence the byte compiler.
|
|
(defvar ido-cur-item nil)
|
|
(defvar ido-default-item nil)
|
|
(defvar ido-context-switch-command nil)
|
|
(defvar ido-cur-list nil)
|
|
(defvar predicate nil)
|
|
(defvar inherit-input-method nil)
|
|
|
|
;; =============================================================================
|
|
;; Load Path Configuration
|
|
;; =============================================================================
|
|
|
|
(setq custom-file "~/.emacs.d/custom.el")
|
|
(when (file-exists-p custom-file) (load custom-file))
|
|
|
|
;; =============================================================================
|
|
;; ELPA/package.el/MELPA
|
|
;; =============================================================================
|
|
|
|
(require 'package)
|
|
(add-to-list 'package-archives
|
|
'("marmalade" . "http://marmalade-repo.org/packages/") t)
|
|
(add-to-list 'package-archives '("elpa" . "http://tromey.com/elpa/") t)
|
|
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t)
|
|
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/") t)
|
|
|
|
(defun ensure-packages-installed (packages)
|
|
(unless package-archive-contents
|
|
(package-refresh-contents))
|
|
(mapcar
|
|
(lambda (package)
|
|
(if (package-installed-p package)
|
|
package
|
|
(progn (message (format "Installing package %s." package))
|
|
(package-install package))))
|
|
packages))
|
|
|
|
(package-initialize)
|
|
(ensure-packages-installed '(epl use-package))
|
|
(require 'use-package)
|
|
|
|
(use-package benchmark-init
|
|
:ensure t
|
|
;; Set do-benchmark in custom.el
|
|
:if (and (boundp 'do-benchmark) do-benchmark))
|
|
|
|
;; =============================================================================
|
|
;; Config Free Packages
|
|
;; =============================================================================
|
|
|
|
(defun use-packages (packages)
|
|
(mapcar
|
|
(lambda (package)
|
|
(use-package package :ensure t)) packages))
|
|
|
|
(defvar packages-eager
|
|
'(popup auto-complete yasnippet cl-lib exec-path-from-shell paradox slime
|
|
xclip dired+ ctags ctags-update aggressive-indent imenu+ neotree diminish
|
|
gist))
|
|
|
|
(use-packages packages-eager)
|
|
|
|
;; =============================================================================
|
|
;; Disables
|
|
;; =============================================================================
|
|
|
|
(setq visible-bell nil)
|
|
(setq sentence-end-double-space nil)
|
|
|
|
;; Disable the creation of backup files.
|
|
(setq backup-inhibited t)
|
|
(setq make-backup-files nil)
|
|
(setq auto-save-default nil)
|
|
|
|
;; Why is this necessary again?
|
|
(defconst emacs-tmp-dir
|
|
(format "%s/%s%s/" temporary-file-directory "emacs" (user-uid)))
|
|
(setq backup-directory-alist `((".*" . ,emacs-tmp-dir)))
|
|
(setq auto-save-file-name-transforms `((".*" ,emacs-tmp-dir t)))
|
|
(setq auto-save-list-file-prefix emacs-tmp-dir)
|
|
|
|
|
|
(put 'set-goal-column 'disabled nil)
|
|
(auto-fill-mode -1)
|
|
(setq indent-tabs-mode nil)
|
|
(setq flyspell-issue-welcome-flag nil)
|
|
|
|
;; No hsplits. EVER.
|
|
(defun split-horizontally-for-temp-buffers () (split-window-horizontally))
|
|
(add-hook 'temp-buffer-setup-hook 'split-horizontally-for-temp-buffers)
|
|
(setq split-height-threshold nil)
|
|
(setq split-width-threshold 160)
|
|
|
|
;; No popup frames.
|
|
(setq ns-pop-up-frames nil)
|
|
(setq pop-up-frames nil)
|
|
|
|
;; =============================================================================
|
|
;; functions
|
|
;; =============================================================================
|
|
|
|
(defun unfill-paragraph (&optional region)
|
|
"Takes a multi-line paragraph and makes it into a single line of text."
|
|
(interactive (progn
|
|
(barf-if-buffer-read-only)
|
|
(list t)))
|
|
(let ((fill-column (point-max)))
|
|
(fill-paragraph nil region)))
|
|
|
|
(defun fill-or-unfill-paragraph (&optional unfill region)
|
|
"Fill paragraph (or REGION).
|
|
With the prefix argument UNFILL, unfill it instead."
|
|
(interactive (progn
|
|
(barf-if-buffer-read-only)
|
|
(list (if current-prefix-arg 'unfill) t)))
|
|
(let ((fill-column (if unfill (point-max) fill-column)))
|
|
(fill-paragraph nil region)))
|
|
|
|
(defun sudo-edit (&optional arg)
|
|
"Edit currently visited file as root.
|
|
|
|
With a prefix ARG prompt for a file to visit.
|
|
Will also prompt for a file to visit if current
|
|
buffer is not visiting a file."
|
|
(interactive "P")
|
|
(if (or arg (not buffer-file-name))
|
|
(find-file (concat "/sudo:root@localhost:"
|
|
(ido-read-file-name "Find file (as root): ")))
|
|
(find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name))))
|
|
|
|
(defun frame-exists ()
|
|
(cl-find-if
|
|
(lambda (frame)
|
|
(assoc 'display (frame-parameters frame))) (frame-list)))
|
|
|
|
(defun make-frame-if-none-exists ()
|
|
(let* ((existing-frame (frame-exists)))
|
|
(if existing-frame
|
|
existing-frame
|
|
(make-frame-on-display (getenv "DISPLAY")))))
|
|
|
|
(defun make-frame-if-none-exists-and-focus ()
|
|
(make-frame-visible (select-frame (make-frame-if-none-exists))))
|
|
|
|
(defun os-copy (&optional b e)
|
|
(interactive "r")
|
|
(shell-command-on-region b e "source ~/.zshrc; cat | smart_copy"))
|
|
|
|
(defun os-paste ()
|
|
(interactive)
|
|
(insert (shell-command-to-string "source ~/.zshrc; ospaste")))
|
|
|
|
(defun all-copy (&optional b e)
|
|
(interactive "r")
|
|
(os-copy b e)
|
|
(tmux-copy b e)
|
|
(kill-ring-save b e))
|
|
|
|
(defun open-pdf ()
|
|
(interactive)
|
|
(let ( (pdf-file (replace-regexp-in-string
|
|
"\.tex$" ".pdf" buffer-file-name)))
|
|
(shell-command (concat "open " pdf-file))))
|
|
|
|
(defun tmux-copy (&optional b e)
|
|
(interactive "r")
|
|
(shell-command-on-region b e "cat | tmux loadb -"))
|
|
|
|
(defun eval-and-replace ()
|
|
(interactive)
|
|
(backward-kill-sexp)
|
|
(condition-case nil
|
|
(prin1 (eval (read (current-kill 0)))
|
|
(current-buffer))
|
|
(error (message "Invalid expression")
|
|
(insert (current-kill 0)))))
|
|
|
|
(defun flatten-imenu-index (index)
|
|
(cl-mapcan
|
|
(lambda (x)
|
|
(if (listp (cdr x))
|
|
(cl-mapcar (lambda (item)
|
|
`(,(concat (car x) "/" (car item)) . ,(cdr item)))
|
|
(flatten-imenu-index (cdr x)))
|
|
(list x))) index))
|
|
|
|
(defun flatten-imenu-index-function (function)
|
|
(lambda () (flatten-imenu-index (funcall function))))
|
|
|
|
(defun flatten-current-imenu-index-function ()
|
|
(setq imenu-create-index-function
|
|
(flatten-imenu-index-function imenu-create-index-function)))
|
|
|
|
(defun notification-center (title message)
|
|
(flet ((encfn (s) (encode-coding-string s (keyboard-coding-system))))
|
|
(shell-command
|
|
(format "osascript -e 'display notification \"%s\" with title \"%s\"'"
|
|
(encfn message) (encfn title)))))
|
|
|
|
(defun growl-notify (title message)
|
|
(shell-command (format "grownotify -t %s -m %s" title message)))
|
|
|
|
|
|
;; =============================================================================
|
|
;; General Emacs Options
|
|
;; =============================================================================
|
|
|
|
;; Set path from shell.
|
|
(exec-path-from-shell-initialize)
|
|
|
|
;; This makes it so that emacs --daemon puts its files in ~/.emacs.d/server
|
|
;; (among other things)
|
|
(setq server-use-tcp t)
|
|
|
|
;; Display line and column numbers in mode line.
|
|
(line-number-mode t)
|
|
(column-number-mode t)
|
|
(global-linum-mode t)
|
|
(setq visible-bell t)
|
|
(show-paren-mode 1)
|
|
|
|
;; Make buffer names unique.
|
|
(setq uniquify-buffer-name-style 'forward)
|
|
|
|
;; We want closures.
|
|
(setq lexical-binding t)
|
|
|
|
;; Don't disable downcase and upcase region.
|
|
(put 'upcase-region 'disabled nil)
|
|
(put 'downcase-region 'disabled nil)
|
|
|
|
;; Make forward word understand camel and snake case.
|
|
(setq c-subword-mode t)
|
|
|
|
(add-hook 'after-init-hook '(lambda () (setq debug-on-error t)))
|
|
|
|
;; Make mouse scrolling less jumpy.
|
|
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1)))
|
|
|
|
(eval-after-load 'subword-mode '(diminish 'subword-mode))
|
|
|
|
(use-package load-dir
|
|
:ensure t
|
|
:config
|
|
(progn (add-to-list 'load-dirs "~/.emacs.d/load.d")))
|
|
|
|
(use-package tramp
|
|
:commands tramp
|
|
:config
|
|
(setq tramp-default-method "ssh"))
|
|
|
|
;; text mode stuff:
|
|
(remove-hook 'text-mode-hook #'turn-on-auto-fill)
|
|
(add-hook 'text-mode-hook 'turn-on-visual-line-mode)
|
|
(setq sentence-end-double-space nil)
|
|
|
|
;; y and n instead of yes and no
|
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
|
|
|
(use-package guide-key
|
|
:ensure t
|
|
:config
|
|
(progn
|
|
(setq guide-key/guide-key-sequence '("C-c" "C-c p" "C-x C-k" "C-x r" "C-x c"))
|
|
(guide-key-mode 1)
|
|
(diminish 'guide-key-mode)
|
|
(setq guide-key/idle-delay 0.25)
|
|
(setq guide-key/recursive-key-sequence-flag t)
|
|
(setq guide-key/popup-window-position 'bottom)))
|
|
|
|
(use-package ace-jump-mode
|
|
:ensure t
|
|
:commands ace-jump-mode
|
|
:init
|
|
(progn
|
|
(use-package ace-window
|
|
:ensure t
|
|
:bind ("C-c w" . ace-select-window)))
|
|
:config
|
|
(progn
|
|
(setq ace-jump-mode-scope 'window))
|
|
:bind (("C-;" . ace-jump-mode)
|
|
("C-c j" . ace-jump-mode)))
|
|
|
|
(use-package flycheck
|
|
:ensure t
|
|
:commands (flycheck-mode)
|
|
:init (add-hook 'after-init-hook #'flycheck-mode)
|
|
:config
|
|
(progn
|
|
(setq flycheck-checkers (delq 'emacs-lisp-checkdoc flycheck-checkers))
|
|
(global-flycheck-mode)
|
|
(diminish 'flycheck-mode)))
|
|
|
|
(use-package haskell-mode
|
|
:ensure t
|
|
:commands haskell-mode
|
|
:config
|
|
(progn
|
|
(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)))
|
|
|
|
(use-package rainbow-delimiters
|
|
:ensure t
|
|
:commands rainbow-delimiters-mode
|
|
:init
|
|
(progn
|
|
(add-hook 'prog-mode-hook (lambda () (rainbow-delimiters-mode t)))))
|
|
|
|
(use-package magit
|
|
:ensure t
|
|
:commands magit-status
|
|
:bind (("C-x g" . magit-status))
|
|
:config
|
|
(progn
|
|
(diminish 'magit-auto-revert-mode)
|
|
(use-package magit-filenotify
|
|
;; Seems like OSX does not properly this.
|
|
:disabled t
|
|
:ensure t
|
|
:if (emacs24_4-p)
|
|
:config
|
|
:init (add-hook 'magit-status-mode-hook 'magit-filenotify-mode))))
|
|
|
|
(use-package auto-complete
|
|
:ensure t
|
|
:commands auto-complete-mode
|
|
:config
|
|
(diminish 'auto-complete-mode)
|
|
:init
|
|
(add-hook 'prog-mode-hook (lambda () (auto-complete-mode t))))
|
|
|
|
(use-package expand-region
|
|
:ensure t
|
|
:commands er/expand-region
|
|
:config (setq expand-region-contract-fast-key "j")
|
|
:bind (("C-c k" . er/expand-region)))
|
|
|
|
(use-package multiple-cursors
|
|
:config
|
|
(progn
|
|
(use-package phi-search-mc
|
|
:ensure t
|
|
:config
|
|
(phi-search-mc/setup-keys))
|
|
(use-package mc-extras
|
|
:ensure t
|
|
:config
|
|
(define-key mc/keymap (kbd "C-. =") 'mc/compare-chars)))
|
|
:bind
|
|
(("C-c m a" . mc/mark-all-like-this)
|
|
("C-c m m" . mc/mark-all-like-this-dwim)
|
|
("C-c m l" . mc/edit-lines)
|
|
("C-c m n" . mc/mark-next-like-this)
|
|
("C-c m p" . mc/mark-previous-like-this)
|
|
("C-c m s" . mc/mark-sgml-tag-pair)
|
|
("C-c m d" . mc/mark-all-like-this-in-defun)))
|
|
|
|
(use-package undo-tree
|
|
:ensure t
|
|
:bind ("C-c u" . undo-tree-visualize)
|
|
:config
|
|
(diminish 'undo-tree-mode)
|
|
:init
|
|
(progn
|
|
;;(setq undo-tree-visualizer-diff t) ;; This causes performance problems
|
|
(global-undo-tree-mode)
|
|
(setq undo-tree-visualizer-timestamps t)))
|
|
|
|
(use-package smooth-scrolling
|
|
:ensure t
|
|
:init (require 'smooth-scrolling))
|
|
|
|
(use-package smooth-scroll
|
|
:ensure t
|
|
:init
|
|
(progn
|
|
(smooth-scroll-mode)
|
|
(setq smooth-scroll/vscroll-step-size 8))
|
|
:config
|
|
(diminish 'smooth-scroll-mode))
|
|
|
|
(use-package string-inflection
|
|
:ensure t
|
|
:commands string-inflection-toggle
|
|
:bind ("C-c l" . string-inflection-toggle))
|
|
|
|
;; =============================================================================
|
|
;; Non-Programming Stuff
|
|
;; =============================================================================
|
|
|
|
(use-package org
|
|
:ensure t
|
|
:commands (org-mode org)
|
|
:mode ("\\.org\\'" . org-mode)
|
|
:init
|
|
(progn
|
|
(setq org-directory "~/Dropbox/org")
|
|
(setq org-mobile-inbox-for-pull "~/Dropbox/org/flagged.org")
|
|
(setq org-mobile-directory "~/Dropbox/Apps/MobileOrg")
|
|
(defun guide-key/my-hook-function-for-org-mode ()
|
|
(guide-key/add-local-guide-key-sequence "C-c")
|
|
(guide-key/add-local-guide-key-sequence "C-c C-x")
|
|
(guide-key/add-local-highlight-command-regexp "org-"))
|
|
(add-hook 'org-mode-hook 'guide-key/my-hook-function-for-org-mode)
|
|
(add-hook 'org-mode-hook (lambda () (linum-mode 0)))
|
|
(define-key mode-specific-map [?a] 'org-agenda)
|
|
(local-set-key (kbd "C-j") 'ace-jump-mode)))
|
|
|
|
(use-package epg
|
|
:ensure t
|
|
:config
|
|
(epa-file-enable))
|
|
|
|
(use-package erc
|
|
:ensure t
|
|
:commands erc
|
|
:config
|
|
(progn
|
|
(setq sauron-nick-insensitivity 1)
|
|
(use-package erc-colorize :ensure t) (erc-colorize-mode 1)
|
|
(add-hook 'sauron-event-added-functions
|
|
(lambda (origin priority message &optional properties)
|
|
(message "triggered...XXX")
|
|
(notification-center "test" message)))))
|
|
|
|
(use-package sauron
|
|
:ensure t
|
|
:commands (sauron-start sauron-start-hidden)
|
|
:config (progn (setq sauron-separate-frame nil))
|
|
:idle (sauron-start-hidden)
|
|
:idle-priority 3)
|
|
|
|
(use-package flyspell
|
|
:ensure t
|
|
:config
|
|
(progn
|
|
(bind-key "M-s" 'flyspell-correct-word-before-point flyspell-mode-map)
|
|
(unbind-key "C-;" flyspell-mode-map)
|
|
(defun flyspell-emacs-popup-textual (event poss word)
|
|
"A textual flyspell popup menu."
|
|
(let* ((corrects (if flyspell-sort-corrections
|
|
(sort (car (cdr (cdr poss))) 'string<)
|
|
(car (cdr (cdr poss)))))
|
|
(cor-menu (if (consp corrects)
|
|
(mapcar (lambda (correct)
|
|
(list correct correct))
|
|
corrects)
|
|
'()))
|
|
(affix (car (cdr (cdr (cdr poss)))))
|
|
show-affix-info
|
|
(base-menu (let ((save (if (and (consp affix) show-affix-info)
|
|
(list
|
|
(list (concat "Save affix: " (car affix))
|
|
'save)
|
|
'("Accept (session)" session)
|
|
'("Accept (buffer)" buffer))
|
|
'(("Save word" save)
|
|
("Accept (session)" session)
|
|
("Accept (buffer)" buffer)))))
|
|
(if (consp cor-menu)
|
|
(append cor-menu (cons "" save))
|
|
save)))
|
|
(menu (mapcar
|
|
(lambda (arg) (if (consp arg) (car arg) arg))
|
|
base-menu)))
|
|
(cadr (assoc (popup-menu* menu :scroll-bar t) base-menu))))
|
|
(fset 'flyspell-emacs-popup 'flyspell-emacs-popup-textual)))
|
|
|
|
;; =============================================================================
|
|
;; Programming Mode Hooks
|
|
;; =============================================================================
|
|
|
|
(add-hook 'prog-mode-hook (lambda () (auto-fill-mode -1)))
|
|
(add-hook 'prog-mode-hook (lambda () (subword-mode t)))
|
|
(add-hook 'prog-mode-hook 'flyspell-prog-mode)
|
|
|
|
;; (add-hook 'prog-mode-hook (lambda () (highlight-lines-matching-regexp
|
|
;; ".\\{81\\}" 'hi-blue)))
|
|
|
|
;; =============================================================================
|
|
;; File Navigation: helm/projectile/ido
|
|
;; =============================================================================
|
|
|
|
(use-package helm
|
|
:ensure t
|
|
:commands helm-mode
|
|
:bind (("M-y" . helm-show-kill-ring)
|
|
("M-x" . helm-M-x)
|
|
("C-h a" . helm-apropos))
|
|
:init
|
|
(progn
|
|
(use-package helm-ag :ensure t :defer t))
|
|
:config
|
|
(progn
|
|
(helm-mode 1)
|
|
(diminish 'helm-mode)))
|
|
|
|
(use-package projectile
|
|
:ensure t
|
|
:commands projectile-global-mode
|
|
:idle (projectile-global-mode)
|
|
:idle-priority 1
|
|
:config
|
|
(progn
|
|
(message "Setting up projectile.")
|
|
(projectile-global-mode)
|
|
(setq projectile-enable-caching t)
|
|
(setq projectile-completion-system 'helm)
|
|
(helm-projectile-on)
|
|
(diminish 'projectile-mode))
|
|
:bind (("C-x f" . projectile-find-file-in-known-projects))
|
|
:init
|
|
(progn
|
|
(use-package persp-projectile
|
|
:ensure t
|
|
:commands persp-projectile)
|
|
(use-package helm-projectile
|
|
:ensure t
|
|
:commands (helm-projectile-on)
|
|
:defer t)))
|
|
|
|
(use-package smex
|
|
:ensure t
|
|
:commands smex
|
|
;; This is here because smex feels like part of ido
|
|
:bind ("M-x" . smex))
|
|
|
|
(use-package ido
|
|
:ensure t
|
|
:commands ido-mode
|
|
:config
|
|
(progn
|
|
(ido-everywhere 1)
|
|
(setq ido-enable-flex-matching t)
|
|
(use-package flx :ensure t)
|
|
(use-package flx-ido
|
|
:commands flx-ido-mode
|
|
:ensure t
|
|
:init (flx-ido-mode 1)
|
|
:config
|
|
(progn
|
|
;; disable ido faces to see flx highlights.
|
|
;; This makes flx-ido much faster.
|
|
(setq gc-cons-threshold 20000000)
|
|
(setq ido-use-faces nil)))
|
|
(use-package ido-ubiquitous
|
|
:ensure t
|
|
:commands (ido-ubiquitous-mode))
|
|
(use-package ido-vertical-mode
|
|
:ensure t
|
|
:config (ido-vertical-mode 1))
|
|
(use-package flx-ido :ensure t)))
|
|
|
|
(if (and (boundp 'use-ido) use-ido) (ido-mode))
|
|
|
|
;; =============================================================================
|
|
;; elisp
|
|
;; =============================================================================
|
|
|
|
(setq edebug-trace t)
|
|
|
|
(use-package elisp-slime-nav
|
|
:ensure t
|
|
:commands elisp-slime-nav-mode
|
|
:config
|
|
(diminish 'elisp-slime-nav-mode)
|
|
:init
|
|
(add-hook 'emacs-lisp-mode-hook (lambda () (elisp-slime-nav-mode t))))
|
|
|
|
|
|
(defun imenu-elisp-sections ()
|
|
(setq imenu-prev-index-position-function nil)
|
|
(setq imenu-space-replacement nil)
|
|
(add-to-list 'imenu-generic-expression
|
|
`("Package"
|
|
,"(use-package \\(.+\\)$" 1))
|
|
(add-to-list 'imenu-generic-expression
|
|
`("Section"
|
|
,(concat ";\\{1,4\\} =\\{10,80\\}\n;\\{1,4\\} \\{10,80\\}"
|
|
"\\(.+\\)$") 1) t))
|
|
|
|
(put 'use-package 'lisp-indent-function 1) ;; reduce indentation for use-package
|
|
(add-hook 'emacs-lisp-mode-hook 'imenu-elisp-sections)
|
|
(add-hook 'emacs-lisp-mode-hook 'flatten-current-imenu-index-function)
|
|
(add-hook 'emacs-lisp-mode-hook (lambda () (setq indent-tabs-mode nil)))
|
|
(define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun)
|
|
(define-key lisp-mode-shared-map (kbd "C-c C-f") 'find-function)
|
|
(define-key lisp-mode-shared-map (kbd "C-c C-v") 'find-variable)
|
|
(define-key lisp-mode-shared-map (kbd "C-c C-r") 'eval-and-replace)
|
|
|
|
;; =============================================================================
|
|
;; Python
|
|
;; =============================================================================
|
|
|
|
(defvar use-python-tabs nil)
|
|
|
|
(defun python-tabs ()
|
|
(setq tab-width 4 indent-tabs-mode t python-indent-offset 4))
|
|
|
|
(defun add-virtual-envs-to-jedi-server ()
|
|
(let ((virtual-envs (get-virtual-envs)))
|
|
(when virtual-envs (set (make-local-variable 'jedi:server-args)
|
|
(make-virtualenv-args virtual-envs)))))
|
|
|
|
(defun make-virtualenv-args (virtual-envs)
|
|
(apply #'append (mapcar (lambda (env) `("-v" ,env)) virtual-envs)))
|
|
|
|
(defun get-virtual-envs ()
|
|
(if (projectile-project-p)
|
|
(condition-case ex
|
|
(let ((project-root (projectile-project-root)))
|
|
(cl-remove-if-not 'file-exists-p
|
|
(mapcar (lambda (env-suffix)
|
|
(concat project-root env-suffix))
|
|
'(".tox/py27/" "env" ".tox/venv/"))))
|
|
('error
|
|
(message (format "Caught exception: [%s]" ex))
|
|
(setq retval (cons 'exception (list ex))))
|
|
nil)))
|
|
|
|
(defun message-virtual-envs ()
|
|
(interactive)
|
|
(message "%s" (get-virtual-envs)))
|
|
|
|
(use-package python
|
|
:commands python-mode
|
|
:mode ("\\.py\\'" . python-mode)
|
|
:config
|
|
(progn
|
|
;; macros
|
|
(fset 'ipdb "import ipdb; ipdb.set_trace()")
|
|
(fset 'main "if __name__ == '__main__':")
|
|
(fset 'sphinx-class ":class:`~")
|
|
:init
|
|
(progn
|
|
(use-package jedi
|
|
:commands jedi:goto-definition
|
|
:config
|
|
(progn
|
|
(setq jedi:complete-on-dot t)
|
|
(setq jedi:install-imenu t)
|
|
(setq jedi:imenu-create-index-function 'jedi:create-flat-imenu-index))
|
|
:ensure t
|
|
:bind ("C-c g" . jedi:goto-definition))
|
|
(use-package pytest
|
|
:ensure t
|
|
:bind ("C-c t" . pytest-one))
|
|
(use-package pymacs :ensure t)
|
|
(use-package sphinx-doc :ensure t)
|
|
(add-hook 'python-mode-hook (lambda () (setq show-trailing-whitespace t)))
|
|
(add-hook 'python-mode-hook (lambda () (if use-python-tabs (python-tabs))))
|
|
(add-hook 'python-mode-hook (lambda () (subword-mode t)))
|
|
(add-hook 'python-mode-hook #'jedi:setup)
|
|
(add-hook 'python-mode-hook #'add-virtual-envs-to-jedi-server))))
|
|
|
|
;; =============================================================================
|
|
;; Scala
|
|
;; =============================================================================
|
|
|
|
(use-package scala-mode2
|
|
:init
|
|
(progn (add-hook 'scala-mode-hook
|
|
(lambda ()
|
|
(require 'whitespace)
|
|
(make-local-variable 'before-save-hook)
|
|
(add-hook 'before-save-hook 'whitespace-cleanup)
|
|
(whitespace-mode))))
|
|
:config
|
|
(progn
|
|
(use-package ensime
|
|
:config
|
|
(progn
|
|
(add-hook 'scala-mode-hook 'ensime-scala-mode-hook)
|
|
(defun guide-key/scala-mode-hook ()
|
|
(guide-key/add-local-guide-key-sequence "C-c C-v"))
|
|
(add-hook 'scala-mode-hook 'guide-key/scala-mode-hook)
|
|
:ensure t))
|
|
(setq scala-indent:align-parameters t))
|
|
:mode (("\\.scala\\'" . scala-mode)
|
|
("\\.sc\\'" . scala-mode))
|
|
:ensure t)
|
|
|
|
;; =============================================================================
|
|
;; JavaScript
|
|
;; =============================================================================
|
|
|
|
(use-package js2-mode
|
|
:ensure t
|
|
:commands (js-mode)
|
|
:bind
|
|
(("C-c b" . web-beautify-js))
|
|
:init
|
|
(progn
|
|
(use-package skewer-mode
|
|
:ensure t
|
|
:commands skewer-mode)
|
|
(add-hook 'js-mode-hook 'js2-minor-mode)
|
|
(add-hook 'js2-mode-hook (lambda () (tern-mode t)))
|
|
(add-hook 'js2-mode-hook 'skewer-mode)
|
|
(add-hook 'js2-mode-hook (lambda () (setq js-indent-level 1)))
|
|
(use-package tern
|
|
:commands tern-mode
|
|
:ensure t
|
|
:config
|
|
(progn (tern-ac-setup))
|
|
:init
|
|
(progn
|
|
(use-package tern-auto-complete :ensure t
|
|
:commands tern-ac-setup)))))
|
|
|
|
(use-package json-mode
|
|
:ensure t
|
|
:mode "\\.json\\'"
|
|
:init
|
|
(add-hook 'json-mode-hook
|
|
(lambda ()
|
|
(setq js-indent-level 2))))
|
|
|
|
(add-hook 'css-mode-hook #'skewer-css-mode)
|
|
(add-hook 'html-mode-hook #'skewer-html-mode)
|
|
|
|
(eval-after-load 'css-mode
|
|
'(define-key css-mode-map (kbd "C-c b") 'web-beautify-css))
|
|
|
|
;; =============================================================================
|
|
;; Ruby
|
|
;; =============================================================================
|
|
|
|
(use-package robe
|
|
:ensure t
|
|
:commands robe-mode
|
|
:init
|
|
(progn (add-hook 'ruby-mode-hook 'robe-mode)
|
|
(add-hook 'robe-mode-hook 'ac-robe-setup)
|
|
(add-hook 'ruby-mode-hook 'auto-complete-mode)))
|
|
|
|
;; =============================================================================
|
|
;; C/C++
|
|
;; =============================================================================
|
|
|
|
(use-package helm-gtags
|
|
:ensure t
|
|
:config (custom-set-variables
|
|
'(helm-gtags-path-style 'relative)
|
|
'(helm-gtags-ignore-case t)
|
|
'(helm-gtags-auto-update t))
|
|
:bind
|
|
(("M-t" . helm-gtags-find-tag)
|
|
("M-r" . helm-gtags-find-rtag)
|
|
("M-s" . helm-gtags-find-symbol)
|
|
("M-g M-p" . helm-gtags-parse-file)
|
|
("C-c <" . helm-gtags-previous-history)
|
|
("C-c >" . helm-gtags-next-history)
|
|
("M-," . helm-gtags-pop-stack))
|
|
:init
|
|
(progn
|
|
;;; Enable helm-gtags-mode
|
|
(add-hook 'c-mode-hook 'helm-gtags-mode)
|
|
(add-hook 'c++-mode-hook 'helm-gtags-mode)
|
|
(add-hook 'asm-mode-hook 'helm-gtags-mode)))
|
|
|
|
;; =============================================================================
|
|
;; TeX
|
|
;; =============================================================================
|
|
|
|
(use-package tex-site
|
|
:ensure auctex
|
|
:commands TeX-mode
|
|
:config
|
|
(progn
|
|
(setq TeX-auto-save t)
|
|
(setq TeX-parse-self t)
|
|
(setq TeX-save-query nil)
|
|
(setq-default TeX-master nil)))
|
|
|
|
;; =============================================================================
|
|
;; other modes
|
|
;; =============================================================================
|
|
|
|
(use-package rust-mode :ensure t
|
|
:mode (("\\.rs\\'" . rust-mode)))
|
|
|
|
(use-package yaml-mode :ensure t
|
|
:mode (("\\.yaml\\'" . yaml-mode)
|
|
("\\.yml\\'" . yaml-mode)))
|
|
|
|
(use-package sgml-mode
|
|
:ensure t
|
|
:commands sgml-mode
|
|
:bind ("C-c b" . web-beautify-html))
|
|
|
|
(use-package gitconfig-mode :ensure t :mode "\\.gitconfig\\'")
|
|
|
|
(use-package evil :ensure t :commands (evil-mode))
|
|
|
|
;; =============================================================================
|
|
;; Custom Key Bindings
|
|
;; =============================================================================
|
|
|
|
;; Miscellaneous
|
|
(global-unset-key (kbd "C-o")) ;; Avoid collision with tmux binding.
|
|
(bind-key "M-q" 'fill-or-unfill-paragraph)
|
|
(bind-key "C--" 'undo)
|
|
(bind-key "C-c C-s" 'sudo-edit)
|
|
(bind-key "C-c SPC"
|
|
(lambda () (interactive)
|
|
(if current-prefix-arg (helm-global-mark-ring) (helm-mark-ring))))
|
|
(bind-key "C-c e" 'os-copy)
|
|
(bind-key "C-x p" 'pop-to-mark-command)
|
|
(setq set-mark-command-repeat-pop t)
|
|
(bind-key "C-x C-b" 'buffer-menu)
|
|
(bind-key "C-x C-c" 'kill-emacs)
|
|
(bind-key "C-x C-i" 'imenu)
|
|
(bind-key "C-x C-r" (lambda () (interactive) (revert-buffer t t)))
|
|
(bind-key "C-x O" (lambda () (interactive) (other-window -1)))
|
|
(bind-key "C-x w" 'whitespace-mode)
|
|
(bind-key "M-g" 'goto-line)
|
|
(bind-key "M-n" 'forward-paragraph)
|
|
(bind-key "M-p" 'backward-paragraph)
|
|
(bind-key "M-z" 'zap-to-char)
|
|
|
|
(fset 'global-set-key-to-use-package
|
|
(lambda (&optional arg) "Keyboard macro." (interactive "p")
|
|
(kmacro-exec-ring-item
|
|
(quote ([1 67108896 19 100 6 23 40 19 41 return
|
|
backspace 32 46 6 4] 0 "%d")) arg)))
|
|
|
|
;; =============================================================================
|
|
;; toys
|
|
;; =============================================================================
|
|
|
|
(use-package hackernews :ensure t :commands hackernews)
|
|
|
|
;; =============================================================================
|
|
;; Appearance
|
|
;; =============================================================================
|
|
|
|
(defvar packages-appearance
|
|
'(monokai-theme solarized-theme zenburn-theme base16-theme molokai-theme
|
|
tango-2-theme gotham-theme sublime-themes ansi-color rainbow-delimiters))
|
|
|
|
(ensure-packages-installed packages-appearance)
|
|
|
|
(use-package smart-mode-line
|
|
:ensure t
|
|
:disabled use-powerline)
|
|
|
|
(defun powerline-simple-theme ()
|
|
(interactive)
|
|
(setq mode-line-format
|
|
'("%e"
|
|
(:eval
|
|
(let* ((lhs (list (powerline-raw
|
|
(format " %s (%%l/%d) %%c " (downcase mode-name)
|
|
(line-number-at-pos (point-max))) nil 'l)))
|
|
(rhs (list (powerline-raw
|
|
(cond
|
|
((not (buffer-file-name)) "_ ")
|
|
((buffer-modified-p) "! ")
|
|
(t " ")) nil 'r)))
|
|
(center (list (powerline-raw "%b" nil))))
|
|
(concat (powerline-render lhs)
|
|
(powerline-fill-center nil (/ (powerline-width center) 2.0))
|
|
(powerline-render center)
|
|
(powerline-fill nil (powerline-width rhs))
|
|
(powerline-render rhs)))))))
|
|
|
|
(use-package powerline
|
|
:ensure t
|
|
:config
|
|
:disabled (not use-powerline)
|
|
(powerline-simple-theme))
|
|
|
|
;; No splash screen please... jeez
|
|
(setq inhibit-startup-screen t)
|
|
(blink-cursor-mode -1)
|
|
|
|
;; make whitespace-mode use just basic coloring
|
|
(setq whitespace-style (quote (spaces tabs newline ;;space-mark
|
|
tab-mark newline-mark)))
|
|
(setq whitespace-display-mappings
|
|
'((space-mark 32 [183] [46])
|
|
(tab-mark 9 [9655 9] [92 9])))
|
|
|
|
(defun colorize-compilation-buffer ()
|
|
(read-only-mode)
|
|
(ansi-color-apply-on-region (point-min) (point-max))
|
|
(read-only-mode))
|
|
(add-hook 'compilation-filter-hook 'colorize-compilation-buffer)
|
|
|
|
(defun modeline-setup ()
|
|
(unless (and (boundp 'use-powerline) use-powerline)
|
|
(progn
|
|
(sml/setup)
|
|
(sml/apply-theme 'automatic))))
|
|
|
|
;; =============================================================================
|
|
;; Themes
|
|
;; =============================================================================
|
|
|
|
(unless (boundp 'dark-themes)
|
|
(defvar dark-themes '(solarized-dark)))
|
|
(unless (boundp 'light-themes)
|
|
(defvar light-themes '(solarized-light)))
|
|
(unless (boundp 'terminal-themes)
|
|
(defvar terminal-themes '(solarized-light monokai)))
|
|
(unless (boundp 'fonts)
|
|
(defvar fonts '(monaco-9)))
|
|
|
|
(defun random-choice (choices)
|
|
(nth (random (length choices)) choices))
|
|
|
|
(defun get-appropriate-theme ()
|
|
(if t ;; (display-graphic-p) why doesn't this work at frame startup?
|
|
(let ((hour
|
|
(string-to-number (format-time-string "%H"))))
|
|
(if (or (< hour 8) (> hour 16))
|
|
(random-choice dark-themes) (random-choice light-themes)))
|
|
(random-choice terminal-themes)))
|
|
|
|
|
|
(setq current-theme nil)
|
|
|
|
(defun set-theme ()
|
|
(interactive)
|
|
(let ((appropriate-theme (get-appropriate-theme)))
|
|
(if (eq appropriate-theme current-theme)
|
|
nil
|
|
(progn
|
|
(disable-all-themes)
|
|
(load-theme appropriate-theme t)
|
|
(setq current-theme appropriate-theme)))))
|
|
|
|
(defun disable-all-themes ()
|
|
(interactive)
|
|
(mapcar 'disable-theme custom-enabled-themes))
|
|
|
|
(defun disable-and-load-theme (theme &optional no-confirm no-enable)
|
|
(interactive
|
|
(list
|
|
(intern (completing-read "Load custom theme: "
|
|
(mapcar 'symbol-name
|
|
(custom-available-themes))))
|
|
nil nil))
|
|
(disable-all-themes)
|
|
(load-theme theme no-confirm no-enable))
|
|
|
|
(defun set-my-font-for-frame (frame)
|
|
(condition-case exp
|
|
(set-frame-font (random-choice fonts) nil t)
|
|
('error (package-refresh-contents)
|
|
(set-frame-font "Monaco for Powerline-11" nil t) nil)))
|
|
|
|
(defun remove-fringe-and-hl-line-mode (&rest stuff)
|
|
(modeline-setup)
|
|
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
|
|
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
|
|
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
|
|
(set-fringe-mode 0)
|
|
(setq linum-format 'dynamic)
|
|
(setq left-margin-width 0)
|
|
(set-my-font-for-frame nil)
|
|
(setq hl-line-mode nil))
|
|
|
|
(if (emacs24_4-p)
|
|
(advice-add 'load-theme :after #'remove-fringe-and-hl-line-mode)
|
|
(defadvice load-theme (after name activate)
|
|
(remove-fringe-and-hl-line-mode)))
|
|
|
|
|
|
;; enable to set theme based on time of day.
|
|
(run-at-time "00:00" 3600 'set-theme)
|
|
|
|
;; This is needed because you can't set the font at daemon start-up.
|
|
(add-hook 'after-make-frame-functions 'set-my-font-for-frame)
|
|
(add-hook 'after-make-frame-functions (lambda (frame) (set-theme)))
|