dotfiles/init.el

1526 lines
51 KiB
EmacsLisp
Raw Normal View History

;; -*- lexical-binding: t; -*-
2013-03-16 17:34:21 -06:00
;; =============================================================================
2013-03-15 11:35:58 -06:00
;; ___ _ __ ___ __ _ ___ ___
;; / _ \ '_ ` _ \ / _` |/ __/ __|
;; | __/ | | | | | (_| | (__\__ \
;; (_)___|_| |_| |_|\__,_|\___|___/
2013-03-16 17:34:21 -06:00
;; =============================================================================
2013-03-15 11:35:58 -06:00
2014-11-21 09:41:01 -07:00
2014-05-10 15:28:27 -06:00
(setq user-full-name
(replace-regexp-in-string "\n$" "" (shell-command-to-string
"git config --get user.name")))
2014-05-10 15:28:27 -06:00
(setq user-mail-address
(replace-regexp-in-string "\n$" "" (shell-command-to-string
"git config --get user.email")))
2013-03-15 11:35:58 -06:00
(defun emacs24_4-p ()
(or (and (>= emacs-major-version 24)
(>= emacs-minor-version 4))
(>= emacs-major-version 25)))
;; =============================================================================
;; GUI Disables
;; =============================================================================
2014-12-06 22:46:36 -07:00
;; 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))
2014-11-21 09:41:01 -07:00
;; 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)
;; =============================================================================
;; ELPA/package.el/MELPA
;; =============================================================================
(require 'package)
2014-11-12 00:36:24 -07:00
(add-to-list 'package-archives
'("marmalade" . "http://marmalade-repo.org/packages/") t)
2014-11-11 17:31:59 -07:00
(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)
2014-10-29 09:45:30 -06:00
(defun ensure-packages-installed (packages)
2014-11-12 00:36:24 -07:00
(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)
2014-11-21 21:33:31 -07:00
(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 paradox slime
xclip dired+ ctags ctags-update aggressive-indent imenu+ neotree diminish
2014-11-22 05:10:02 -07:00
gist))
(use-packages packages-eager)
;; =============================================================================
2014-10-29 09:45:30 -06:00
;; Disables
;; =============================================================================
2014-10-24 06:04:21 -06:00
2014-11-21 03:32:19 -07:00
(setq visible-bell nil)
(setq sentence-end-double-space nil)
2014-10-29 09:45:30 -06:00
;; Disable the creation of backup files.
(setq backup-inhibited t)
(setq make-backup-files nil)
(setq auto-save-default nil)
2014-10-24 06:04:21 -06:00
2014-11-12 00:36:24 -07:00
(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)
2014-11-08 16:27:28 -07:00
2014-10-29 09:45:30 -06:00
(put 'set-goal-column 'disabled nil)
(auto-fill-mode -1)
2014-11-13 22:53:57 -07:00
(setq indent-tabs-mode nil)
2014-11-19 16:24:14 -07:00
(setq flyspell-issue-welcome-flag nil)
2014-11-12 00:36:24 -07:00
;; 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)
2014-11-13 22:04:25 -07:00
(setq split-width-threshold 160)
2014-11-12 00:36:24 -07:00
;; No popup frames.
(setq ns-pop-up-frames nil)
(setq pop-up-frames nil)
(setq confirm-nonexistent-file-or-buffer nil)
;; No prompt for killing a buffer with processes attached.
(setq kill-buffer-query-functions
(remq 'process-kill-buffer-query-function
kill-buffer-query-functions))
(setq inhibit-startup-message t
inhibit-startup-echo-area-message t)
2014-12-06 03:18:28 -07:00
(when (fboundp 'tooltip-mode) (tooltip-mode -1))
(setq tooltip-use-echo-area t)
(setq use-dialog-box nil)
(defadvice yes-or-no-p (around prevent-dialog activate)
"Prevent yes-or-no-p from activating a dialog"
(let ((use-dialog-box nil))
ad-do-it))
(defadvice y-or-n-p (around prevent-dialog-yorn activate)
"Prevent y-or-n-p from activating a dialog"
(let ((use-dialog-box nil))
ad-do-it))
;; =============================================================================
;; functions
;; =============================================================================
(defmacro defvar-setq (name value)
(if (boundp name)
`(setq ,name ,value)
`(defvar ,name ,value)))
2014-11-29 12:08:48 -07:00
(defun undo-redo (&optional arg)
(interactive "P")
(if arg (undo-tree-redo) (undo-tree-undo)))
(defun up-list-region ()
(interactive)
(up-list) (set-mark-command nil) (backward-sexp))
(defun up-list-back ()
(interactive)
(up-list) (backward-sexp))
2014-11-21 09:41:01 -07:00
(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)
2014-11-29 12:08:48 -07:00
"Fill paragraph (or REGION). With the prefix argument UNFILL,
unfill it instead."
2014-11-21 09:41:01 -07:00
(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 ()
2014-11-21 07:28:04 -07:00
(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)
2014-11-21 07:25:11 -07:00
(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)
2014-11-21 07:25:11 -07:00
(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 ()
2014-11-21 07:25:11 -07:00
(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)))
(defun notify-send (title message)
(shell-command (format "notify-send -u critical %s %s" title message)))
(defvar notify-function
(cond ((eq system-type 'darwin) 'notification-center)
((eq system-type 'gnu/linux) 'notify-send)))
2014-12-02 08:05:35 -07:00
(defun project-root-of-file (filename)
"Retrieves the root directory of a project if available.
The current directory is assumed to be the project's root otherwise."
(file-truename
(let ((dir (file-truename filename)))
(or (--reduce-from
(or acc
(let* ((cache-key (format "%s-%s" it dir))
2014-12-08 05:34:31 -07:00
(cache-value (gethash cache-key
projectile-project-root-cache)))
2014-12-02 08:05:35 -07:00
(if cache-value
(if (eq cache-value 'no-project-root)
nil
cache-value)
(let ((value (funcall it dir)))
2014-12-08 05:34:31 -07:00
(puthash cache-key (or value 'no-project-root)
projectile-project-root-cache)
2014-12-02 08:05:35 -07:00
value))))
nil
projectile-project-root-files-functions)
(if projectile-require-project-root
(error "You're not in a project")
default-directory)))))
;; =============================================================================
;; Load Path Configuration
;; =============================================================================
(defvar machine-custom "~/.emacs.d/this-machine.el")
(setq custom-file "~/.emacs.d/custom.el")
(when (file-exists-p custom-file) (load custom-file))
(when (file-exists-p machine-custom) (load machine-custom))
2014-10-29 09:45:30 -06:00
;; =============================================================================
;; General Emacs Options
;; =============================================================================
2014-10-17 20:11:48 -06:00
2014-10-29 09:45:30 -06:00
;; This makes it so that emacs --daemon puts its files in ~/.emacs.d/server
(setq server-use-tcp t)
2013-03-15 11:35:58 -06:00
;; Display line and column numbers in mode line.
(line-number-mode t)
(column-number-mode t)
(global-linum-mode t)
(setq visible-bell t)
2014-11-22 05:10:02 -07:00
(show-paren-mode 1)
;; Make buffer names unique.
2014-11-12 00:36:24 -07:00
(setq uniquify-buffer-name-style 'forward)
2013-03-15 11:35:58 -06:00
;; We want closures.nil
(setq lexical-binding t)
2013-03-16 17:34:21 -06:00
;; Don't disable downcase and upcase region.
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
2014-11-19 16:24:14 -07:00
;; Make forward word understand camel and snake case.
2013-03-16 17:34:21 -06:00
(setq c-subword-mode t)
;; Preserve pastes. Why wouldn't this be enabled by default.
(setq save-interprogram-paste-before-kill t)
2014-11-24 18:01:54 -07:00
(setq-default cursor-type 'box)
(setq-default cursor-in-non-selected-windows 'bar)
2014-10-29 09:45:30 -06:00
(add-hook 'after-init-hook '(lambda () (setq debug-on-error t)))
2014-11-12 00:36:24 -07:00
;; Make mouse scrolling less jumpy.
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1)))
2014-12-08 02:02:57 -07:00
(eval-after-load 'subword '(diminish 'subword-mode))
(eval-after-load 'simple '(diminish 'visual-line-mode))
2014-12-08 02:02:57 -07:00
2014-12-08 05:34:31 -07:00
(display-time-mode 1)
(setq reb-re-syntax 'string)
(setq ediff-split-window-function 'split-window-horizontally)
2014-12-08 05:34:31 -07:00
;; =============================================================================
;; use-package
;; =============================================================================
;; Set path from shell.
(use-package exec-path-from-shell
:ensure t
:config (exec-path-from-shell-initialize))
2014-12-11 17:14:58 -07:00
(use-package yasnippet
:ensure t
:config
(progn
(yas-global-mode)
(diminish 'yas-minor-mode)
(setq yas-prompt-functions
(cons 'yas-ido-prompt
(cl-delete 'yas-ido-prompt yas-prompt-functions)))))
2014-12-11 17:14:58 -07:00
(use-package tramp
:commands tramp
:config
(setq tramp-default-method "ssh"))
2014-11-13 16:21:24 -07:00
2014-11-21 09:41:01 -07:00
;; 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)
2014-11-24 18:01:54 -07:00
(use-package discover-my-major :ensure t)
2014-11-21 03:32:19 -07:00
(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-h" "C-x c" "C-x x"))
2014-11-21 03:32:19 -07:00
(guide-key-mode 1)
(diminish 'guide-key-mode)
2014-11-21 03:32:19 -07:00
(setq guide-key/idle-delay 0.25)
(setq guide-key/recursive-key-sequence-flag t)
(setq guide-key/popup-window-position 'bottom)))
(use-package jump-char
:bind (("C-;" . jump-char-forward))
:ensure t)
2014-11-12 00:36:24 -07:00
(use-package ace-jump-mode
:ensure t
:commands (ace-jump-mode imalison:ace-jump-mode)
:bind (("C-j" . imalison:ace-jump-mode))
2014-11-19 16:24:14 -07:00
:init
(progn
(use-package ace-window
:ensure t
2014-12-04 23:37:56 -07:00
:config (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
2014-11-19 16:24:14 -07:00
:bind ("C-c w" . ace-select-window)))
2014-11-12 00:36:24 -07:00
:config
2014-11-19 16:24:14 -07:00
(progn
(setq ace-jump-mode-scope 'window)
(defun imalison:ace-jump-mode (&optional prefix)
(interactive "P")
(let ((ace-jump-mode-scope (if prefix 'global 'window)))
(ace-jump-mode 0)))))
2014-11-12 00:36:24 -07:00
2014-12-03 13:55:23 -07:00
(use-package ace-isearch
:ensure t
2014-12-12 05:34:07 -07:00
:disabled t ;; I just don't really use this much
2014-12-03 13:55:23 -07:00
:config
(progn
(global-ace-isearch-mode +1)
(setq ace-isearch-use-function-from-isearch nil)
2014-12-12 05:34:07 -07:00
(setq ace-isearch-input-idle-delay 1)))
2014-12-03 13:55:23 -07:00
(use-package flycheck
:ensure t
:config
(progn
(setq flycheck-checkers (delq 'emacs-lisp-checkdoc flycheck-checkers))
(diminish 'flycheck-mode)))
2014-11-21 07:25:11 -07:00
2014-11-12 00:36:24 -07:00
(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)))))
2014-10-29 03:24:33 -06:00
2014-12-12 05:34:07 -07:00
(use-package diff-hl :ensure t)
2014-11-13 16:21:24 -07:00
(use-package magit
:ensure t
:commands magit-status
2014-11-14 17:48:45 -07:00
:bind (("C-x g" . magit-status))
:config
2014-11-21 09:41:01 -07:00
(progn
(diminish 'magit-auto-revert-mode)
2014-11-22 05:10:02 -07:00
(use-package magit-filenotify
;; Seems like OSX does not support filenotify.
:disabled t
2014-11-21 09:41:01 -07:00
:ensure t
:if (emacs24_4-p)
:config
:init (add-hook 'magit-status-mode-hook 'magit-filenotify-mode))))
2014-11-13 16:21:24 -07:00
2014-11-14 07:53:57 -07:00
(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))))
2014-11-30 19:47:56 -07:00
(use-package company
:ensure t
:commands company-mode
2014-12-12 05:34:07 -07:00
:bind (("C-\\" . company-complete))
:config
(progn
(setq company-idle-delay .25)
(global-company-mode)
(add-to-list 'company-backends 'mu4e-contacts-company)
(diminish 'company-mode))
2014-11-30 19:47:56 -07:00
:init
(add-hook 'prog-mode-hook (lambda () (company-mode t))))
2014-11-14 08:04:55 -07:00
(use-package expand-region
:ensure t
:commands er/expand-region
2014-11-19 18:36:45 -07:00
:config (setq expand-region-contract-fast-key "j")
:bind (("C-c k" . er/expand-region)))
2014-11-14 08:04:55 -07:00
2014-11-21 11:43:09 -07:00
(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)))
2014-11-21 11:43:09 -07:00
: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)))
2014-11-19 16:24:14 -07:00
(use-package undo-tree
:ensure t
2014-11-29 12:08:48 -07:00
:bind (("C--" . undo-redo)
("C-c u" . undo-tree-visualize)
("C-c r" . undo-tree-redo))
2014-11-20 00:12:13 -07:00
:config
(diminish 'undo-tree-mode)
2014-11-19 16:24:14 -07:00
:init
(progn
;;(setq undo-tree-visualizer-diff t) ;; This causes performance problems
2014-11-19 16:24:14 -07:00
(global-undo-tree-mode)
(setq undo-tree-visualizer-timestamps t)))
2014-11-19 16:24:14 -07:00
(use-package smooth-scrolling
:ensure t
:init (require 'smooth-scrolling))
(use-package smooth-scroll
:ensure t
:init
(progn
(smooth-scroll-mode)
2014-11-20 00:12:13 -07:00
(setq smooth-scroll/vscroll-step-size 8))
:config
(diminish 'smooth-scroll-mode))
2014-11-19 16:24:14 -07:00
2014-11-20 03:26:12 -07:00
(use-package string-inflection
:ensure t
:commands string-inflection-toggle
:bind ("C-c l" . string-inflection-toggle))
2014-12-08 05:34:31 -07:00
(use-package load-dir
:ensure t
:config
(progn
(add-to-list 'load-dirs "~/.emacs.d/load.d")
(defvar site-lisp "/usr/share/emacs24/site-lisp/")
(when (file-exists-p site-lisp) (add-to-list 'load-dirs site-lisp))))
2014-12-08 17:32:57 -07:00
(use-package recentf
;; binding is in helm.
:config
(progn
(recentf-mode 1)
(setq recentf-max-menu-items 500)))
2014-11-21 11:43:09 -07:00
;; =============================================================================
;; Non-Programming Stuff
;; =============================================================================
2014-12-04 23:37:56 -07:00
(use-package helm-spotify
:ensure t
:commands helm-spotify)
(use-package edit-server
:ensure t
:commands edit-server-start
2014-12-20 02:20:54 -07:00
:idle (edit-server-start)
:config
(progn
(setq edit-server-new-frame nil)))
2014-12-04 23:37:56 -07:00
(use-package jabber
:ensure t
2014-11-25 09:24:44 -07:00
:commands jabber-connect
:config
(progn
2014-12-18 11:46:27 -07:00
(setq jabber-alert-presence-hooks nil)
2014-11-25 09:24:44 -07:00
(defun jabber-message-content-message (from buffer text)
(when (or jabber-message-alert-same-buffer
(not (memq (selected-window) (get-buffer-window-list buffer))))
(if (jabber-muc-sender-p from)
(format "%s: %s" (jabber-jid-resource from) text)
(format "%s: %s" (jabber-jid-displayname from) text))))
(setq jabber-alert-message-function 'jabber-message-content-message)))
2014-12-20 02:21:21 -07:00
(use-package htmlize :ensure t)
2014-11-20 18:39:42 -07:00
(use-package org
:ensure t
:commands (org-mode org org-mobile-push org-mobile-pull org-agenda)
:mode ("\\.org\\'" . org-mode)
:bind (("C-c a" . org-agenda)
2014-12-01 00:55:21 -07:00
("C-c c" . org-capture)
("C-c n t" . org-insert-todo-heading)
2014-12-02 08:05:35 -07:00
("C-c n s" . org-insert-todo-subheading)
("C-c n h" . org-insert-habit)
("C-c n m" . org-make-habit)
2014-12-17 18:18:58 -07:00
("C-c n l" . org-store-link)
("C-c n i" . org-insert-link)
("C-c C-t" . org-todo)
("C-c C-S-t" . org-todo-force-notes))
2014-11-24 18:01:54 -07:00
:config
(progn
;; org-mode add-ons
2014-12-08 23:48:19 -07:00
(use-package org-present :ensure t)
(use-package org-projectile
:ensure t
:demand t
:bind (("C-c n p" . imalison:org-projectile:project-todo))
:config
(progn
(defun imalison:org-projectile:project-todo (&optional arg)
(interactive "P")
(org-projectile:project-todo-completing-read
(if arg "* TODO %? %A\n" nil)))))
;; variable configuration
(add-to-list 'org-modules 'org-habit)
(setq org-src-fontify-natively t)
2014-12-04 23:37:56 -07:00
(setq org-habit-graph-column 50)
(setq org-habit-show-habits-only-for-today t)
(setq org-lowest-priority 69) ;; The character E
(setq org-completion-use-ido t)
(setq org-enforce-todo-dependencies t)
;; Agenda setup.
2014-12-02 08:05:35 -07:00
(unless (boundp 'org-gtd-file)
(defvar org-gtd-file "~/org/gtd.org"))
(unless (boundp 'org-habits-file)
(defvar org-habits-file "~/org/habits.org"))
2014-12-14 02:49:14 -07:00
(unless (boundp 'org-calendar-file)
(defvar org-calendar-file "~/org/calendar.org"))
(unless (boundp 'org-capture-templates)
(defvar org-capture-templates nil))
2014-12-08 16:13:53 -07:00
(setq org-agenda-files
(--filter (file-exists-p it)
2014-12-14 02:49:14 -07:00
(list org-gtd-file org-habits-file org-projectile:projects-file
org-calendar-file)))
(add-to-list 'org-capture-templates
`("c" "Calendar entry" entry
(file+headline ,org-calendar-file "Personal")))
2014-12-02 08:05:35 -07:00
(add-to-list 'org-capture-templates
`("h" "Habit" entry (file+headline ,org-habits-file "Habits")
"* TODO
SCHEDULED: %t
:PROPERTIES:
:STYLE: habit
:END:"))
2014-12-08 02:02:57 -07:00
(defun org-todo-force-notes ()
(interactive)
(let ((org-todo-log-states
(mapcar (lambda (state)
(list state 'note 'time))
(apply 'append org-todo-sets))))
(cond ((eq major-mode 'org-mode) (org-todo))
((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
(defun org-make-habit ()
(interactive)
(org-set-property "STYLE" "habit"))
2014-12-08 14:00:48 -07:00
(add-to-list 'org-capture-templates
`("g" "GTD Todo" entry (file+headline ,org-gtd-file "Tasks")
"* TODO %?\n"))
2014-12-08 02:02:57 -07:00
(defun org-insert-habit ()
(interactive)
(org-insert-todo-heading nil)
(org-make-habit))
2014-12-02 15:14:34 -07:00
2014-12-13 22:29:48 -07:00
(defun org-todo-at-date (date)
(interactive (list (org-time-string-to-time (org-read-date))))
2014-12-13 23:00:14 -07:00
(flet ((org-current-effective-time (&rest r) date)
(org-today (&rest r) (time-to-days date)))
2014-12-13 22:29:48 -07:00
(org-todo)))
(add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p"))
(add-to-list 'org-capture-templates (org-projectile:project-todo-entry "l" "* TODO %? %a\n"))
2014-12-08 02:02:57 -07:00
(let ((this-week-high-priority
2014-12-02 15:14:34 -07:00
'(tags-todo "+PRIORITY=\"A\"+DEADLINE<\"<+1w>\"DEADLINE>\"<+0d>\""
((org-agenda-overriding-header
"Upcoming high priority tasks:"))))
2014-12-02 15:14:34 -07:00
(due-today '(tags-todo
"+DEADLINE=<\"<+0d>\""
((org-agenda-overriding-header
2014-12-02 15:14:34 -07:00
"Due today:"))))
(missing-deadline
'(tags-todo "-DEADLINE={.}/!"
((org-agenda-overriding-header
"These don't have deadlines:"))))
(missing-priority
'(tags-todo "-PRIORITY={.}/!"
((org-agenda-overriding-header
2014-11-25 03:45:20 -07:00
"These don't have priorities:")))))
(setq org-agenda-custom-commands
`(("M" "Main agenda view"
2014-12-02 15:14:34 -07:00
(,due-today
,this-week-high-priority
(agenda ""
((org-agenda-overriding-header "Agenda:")
(org-agenda-ndays 5)
(org-deadline-warning-days 0)))
,missing-deadline
,missing-priority)
nil nil)
,(cons "A" (cons "High priority upcoming" this-week-high-priority))
2014-12-02 15:14:34 -07:00
,(cons "od" (cons "Overdue tasks and due today" due-today)))))
2014-11-24 18:01:54 -07:00
;; Record changes to todo states
(setq org-log-into-drawer t)
(setq org-todo-keywords
2014-12-05 02:00:03 -07:00
'((sequence "TODO(t!)" "STARTED(s!)" "WAIT(w!)" "|"
"DONE(d!)" "CANCELED(c!)")))
2014-11-24 18:01:54 -07:00
;; Stop starting agenda from deleting frame setup!
(setq org-agenda-window-setup 'other-window)
(define-key mode-specific-map [?a] 'org-agenda)
2014-11-24 18:01:54 -07:00
(unbind-key "C-j" org-mode-map))
2014-11-20 18:39:42 -07:00
:init
2014-11-21 07:25:11 -07:00
(progn
;; Automatically sync with mobile
(defvar my-org-mobile-sync-timer nil)
2014-12-02 15:14:34 -07:00
(defvar my-org-mobile-sync-secs 120)
(defun my-org-mobile-sync-pull-and-push ()
(org-mobile-pull)
(org-mobile-push)
(when (fboundp 'sauron-add-event)
(sauron-add-event 'me 1 "Called org-mobile-pull and org-mobile-push")))
(defun my-org-mobile-sync-start ()
"Start automated `org-mobile-push'"
(interactive)
(setq my-org-mobile-sync-timer
(run-with-idle-timer my-org-mobile-sync-secs t
'my-org-mobile-sync-pull-and-push)))
(defun my-org-mobile-sync-stop ()
"Stop automated `org-mobile-push'"
(interactive)
(cancel-timer my-org-mobile-sync-timer))
2014-11-23 04:10:43 -07:00
(if (and (boundp 'file-notify--library) file-notify--library)
(use-package org-mobile-sync :ensure t :config (org-mobile-sync-mode 1))
(my-org-mobile-sync-start))
(setq org-directory "~/Dropbox/org")
(setq org-mobile-inbox-for-pull "~/Dropbox/org/flagged.org")
(setq org-mobile-directory "~/Dropbox/Apps/MobileOrg")
2014-11-21 07:25:11 -07:00
(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)
(defun disable-linum-mode () (linum-mode 0))
(add-hook 'org-mode-hook 'disable-linum-mode)
(add-hook 'org-agenda-mode-hook 'disable-linum-mode)))
2014-11-20 18:39:42 -07:00
2014-11-20 19:40:51 -07:00
(use-package epg
:ensure t
:config
(epa-file-enable))
2014-11-30 19:47:56 -07:00
(use-package twittering-mode
:ensure t
:commands twittering-mode)
2014-11-25 09:24:44 -07:00
2014-11-21 11:43:09 -07:00
(use-package erc
:ensure t
:commands erc
:config
(progn
(add-to-list 'erc-modules 'notifications)
2014-11-25 09:24:44 -07:00
(use-package erc-colorize :ensure t) (erc-colorize-mode 1)))
2014-12-09 02:47:39 -07:00
(use-package s :ensure t)
(add-to-list 'load-path (s-trim (shell-command-to-string "mu4e_directory")))
(use-package mu4e
2014-12-20 02:22:26 -07:00
:commands (mu4e mu4e-view-message-with-msgid mu4e-update-index)
2014-12-17 18:18:58 -07:00
:bind ("C-c 0" . mu4e~headers-jump-to-maildir)
2014-12-09 02:47:39 -07:00
:config
(progn
;; enable inline images
(setq mu4e-view-show-images t)
;; show images
(setq mu4e-show-images t)
;; Try to display html as text
(setq mu4e-view-prefer-html nil)
(setq mu4e-html2text-command "html2text -width 80 -nobs -utf8")
;; use imagemagick, if available
(when (fboundp 'imagemagick-register-types)
(imagemagick-register-types))
(setq mail-user-agent 'mu4e-user-agent)
(require 'org-mu4e)
2014-12-09 02:47:39 -07:00
(setq mu4e-compose-complete-only-after nil)
(setq mu4e-maildir "~/Mail")
(setq mu4e-drafts-folder "/[Gmail].Drafts")
(setq mu4e-sent-folder "/[Gmail].Sent Mail")
(setq mu4e-trash-folder "/[Gmail].Trash")
2014-12-17 18:18:58 -07:00
(setq mu4e-sent-messages-behavior 'delete)
(setq mu4e-update-interval (* 60 20))
(setq message-kill-buffer-on-exit t)
2014-12-09 02:47:39 -07:00
;; don't save message to Sent Messages, Gmail/IMAP takes care of this
(setq mu4e-sent-messages-behavior 'delete)
;; allow for updating mail using 'U' in the main view:
(setq mu4e-get-mail-command "offlineimap")
2014-12-09 02:47:39 -07:00
(add-hook 'mu4e-compose-mode-hook
(defun my-do-compose-stuff () (flyspell-mode)))
2014-12-20 02:22:26 -07:00
(defun mu4e-view (msg headersbuf)
"Display the message MSG in a new buffer, and keep in sync with HDRSBUF.
'In sync' here means that moving to the next/previous message in
the the message view affects HDRSBUF, as does marking etc.
As a side-effect, a message that is being viewed loses its 'unread'
marking if it still had that."
(let* ((embedded ;; is it as an embedded msg (ie. message/rfc822 att)?
(when (gethash (mu4e-message-field msg :path)
mu4e~path-parent-docid-map) t))
(buf
(if embedded
(mu4e~view-embedded-winbuf)
(get-buffer-create mu4e~view-buffer-name))))
;; note: mu4e~view-mark-as-read will pseudo-recursively call mu4e-view again
;; by triggering mu4e~view again as it marks the message as read
(with-current-buffer buf
(switch-to-buffer buf)
(setq mu4e~view-msg msg)
(when t ;;(or embedded (not (mu4e~view-mark-as-read msg)))
(let ((inhibit-read-only t))
(erase-buffer)
(mu4e~delete-all-overlays)
(insert (mu4e-view-message-text msg))
(goto-char (point-min))
(mu4e~fontify-cited)
(mu4e~fontify-signature)
(mu4e~view-make-urls-clickable)
(mu4e~view-show-images-maybe msg)
(setq
mu4e~view-buffer buf
mu4e~view-headers-buffer headersbuf)
(when embedded (local-set-key "q" 'kill-buffer-and-window))
(mu4e-view-mode))))))
2014-12-09 02:47:39 -07:00
(require 'smtpmail)
2014-12-09 02:47:39 -07:00
;; alternatively, for emacs-24 you can use:
(setq message-send-mail-function 'smtpmail-send-it
smtpmail-stream-type 'starttls
smtpmail-default-smtp-server "smtp.gmail.com"
smtpmail-smtp-server "smtp.gmail.com"
smtpmail-smtp-service 587)))
2014-12-09 02:47:39 -07:00
2014-12-19 16:23:42 -07:00
(use-package gmail-message-mode :ensure t)
(use-package alert
:ensure t
:config
(progn
(defun alert-notifier-notify (info)
(if alert-notifier-command
(let ((args
(list "-title" (alert-encode-string (plist-get info :title))
2014-12-19 05:08:29 -07:00
"-activate" "org.gnu.Emacs"
"-message" (alert-encode-string (plist-get info :message))
2014-12-19 05:08:29 -07:00
"-execute" (format "\"%s\"" (switch-to-buffer-command (plist-get info :buffer))))))
(apply #'call-process alert-notifier-command nil nil nil args))
(alert-message-notify info)))
(defun switch-to-buffer-command (buffer-name)
(emacsclient-command (format "(switch-to-buffer \\\"%s\\\")" buffer-name)))
(defun emacsclient-command (command)
2014-12-19 05:08:29 -07:00
(format "emacsclient --server-file='%s' -e '%s'" server-name command))
(setq alert-default-style 'notifier)))
(use-package sauron
:ensure t
:commands (sauron-start sauron-start-hidden)
2014-11-25 09:24:44 -07:00
:config
(progn
(setq sauron-min-priority 3)
2014-12-19 16:23:42 -07:00
(setq sauron-dbus-cookie t)
2014-11-25 09:24:44 -07:00
(setq sauron-separate-frame nil)
(setq sauron-nick-insensitivity 1)
(defun sauron:jabber-notify (origin priority message &optional properties)
(funcall notify-function "gtalk" message))
(defun sauron:erc-notify (origin priority message &optional properties)
(let ((event (plist-get properties :event)))
(funcall notify-function "IRC" message)))
2014-11-25 09:24:44 -07:00
(defun sauron:mu4e-notify (origin priority message &optional properties)
nil)
(defun sauron:dbus-notify (origin priority message &optional properties)
(funcall notify-function "GMail" message))
2014-11-25 09:24:44 -07:00
(defun sauron:dispatch-notify (origin priority message &optional properties)
(let ((handler (cond ((string= origin "erc") 'sauron:erc-notify)
((string= origin "jabber") 'sauron:jabber-notify)
((string= origin "mu4e") 'sauron:mu4e-notify)
((string= origin "dbus") 'sauron:dbus-notify)
2014-11-25 09:24:44 -07:00
(t (lambda (&rest r) nil)))))
(funcall handler origin priority message properties)))
;; Prefering alert.el for now ;; (add-hook 'sauron-event-added-functions 'sauron:dispatch-notify)
(add-hook 'sauron-event-added-functions 'sauron-alert-el-adapter))
:idle (sauron-start-hidden)
:idle-priority 3)
2014-12-14 00:44:27 -07:00
(use-package screenshot :ensure t)
(use-package flyspell
:ensure t
:config
(progn
2014-12-02 08:05:35 -07:00
(diminish 'flyspell-mode)
(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
2014-11-24 18:01:54 -07:00
(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)))
2014-11-21 09:41:01 -07:00
2014-10-29 09:45:30 -06:00
;; =============================================================================
2014-11-12 00:36:24 -07:00
;; Programming Mode Hooks
2014-10-29 09:45:30 -06:00
;; =============================================================================
2014-10-31 05:19:11 -06:00
(add-hook 'prog-mode-hook (lambda () (auto-fill-mode -1)))
2014-12-06 22:46:36 -07:00
(add-hook 'prog-mode-hook (lambda () (subword-mode t) (diminish 'subword-mode)))
(add-hook 'prog-mode-hook 'flyspell-prog-mode)
2014-10-27 00:31:26 -06:00
;; (add-hook 'prog-mode-hook (lambda () (highlight-lines-matching-regexp
;; ".\\{81\\}" 'hi-blue)))
2014-10-29 09:45:30 -06:00
;; =============================================================================
2014-11-21 03:32:19 -07:00
;; File Navigation: helm/projectile/ido
2014-10-29 09:45:30 -06:00
;; =============================================================================
2014-10-21 17:38:07 -06:00
2014-12-05 16:37:10 -07:00
(use-package helm-config
:ensure helm
2014-11-21 21:33:31 -07:00
:bind (("M-y" . helm-show-kill-ring)
("M-x" . helm-M-x)
2014-11-23 04:28:57 -07:00
("C-x C-i" . helm-imenu)
("C-h a" . helm-apropos)
2014-12-08 17:32:57 -07:00
("C-c C-h" . helm-org-agenda-files-headings)
("C-c ;" . helm-recentf))
2014-11-21 09:41:01 -07:00
:init
(progn
2014-12-05 16:37:10 -07:00
(require 'helm)
(helm-mode 1)
(use-package helm-ag :ensure t))
2014-11-12 00:36:24 -07:00
:config
(progn
2014-12-12 21:52:19 -07:00
(cl-defun helm-org-headings-in-buffer ()
(interactive)
(helm :sources (helm-source-org-headings-for-files
(list (projectile-completing-read
"File to look at headings from: "
(projectile-all-project-files))))
:candidate-number-limit 99999
:buffer "*helm org inbuffer*"))
;; helm zsh source history
(defvar helm-c-source-zsh-history
'((name . "Zsh History")
(candidates . helm-c-zsh-history-set-candidates)
(action . (("Execute Command" . helm-c-zsh-history-action)))
(volatile)
(requires-pattern . 3)
(delayed)))
(defun helm-c-zsh-history-set-candidates (&optional request-prefix)
(let ((pattern (replace-regexp-in-string
" " ".*"
(or (and request-prefix
(concat request-prefix
" " helm-pattern))
helm-pattern))))
(with-current-buffer (find-file-noselect "~/.zsh_history" t t)
(auto-revert-mode -1)
(goto-char (point-max))
(loop for pos = (re-search-backward pattern nil t)
while pos
collect (replace-regexp-in-string
"\\`:.+?;" ""
(buffer-substring (line-beginning-position)
(line-end-position)))))))
(defun helm-c-zsh-history-action (candidate)
(async-shell-command candidate))
(defun helm-command-from-zsh ()
(interactive)
(require 'helm)
(helm-other-buffer 'helm-c-source-zsh-history "*helm zsh history*"))
(use-package helm-descbinds
:demand t
:config (helm-descbinds-mode 1)
:ensure t)
2014-11-14 07:53:57 -07:00
(helm-mode 1)
(diminish 'helm-mode)))
2014-11-12 00:36:24 -07:00
2014-12-14 00:44:27 -07:00
(use-package helm-swoop
:ensure t
:bind ("C-S-s" . helm-swoop)
:commands helm-swoop)
2014-11-23 04:28:57 -07:00
(use-package perspective
:ensure t
;; :config (persp-mode) ;; This was causing problems where buffers
;; weren't showing up in the buffers list
)
2014-11-12 00:36:24 -07:00
(use-package projectile
:ensure t
:demand t
2014-11-12 00:36:24 -07:00
:config
(progn
(defun do-ag (&optional arg)
(interactive "P")
(if arg (helm-do-ag) (helm-projectile-ag)))
2014-11-12 00:36:24 -07:00
(projectile-global-mode)
2014-11-21 21:33:31 -07:00
(setq projectile-enable-caching t)
2014-11-20 00:12:13 -07:00
(setq projectile-completion-system 'helm)
2014-11-14 07:53:57 -07:00
(helm-projectile-on)
2014-12-13 22:29:48 -07:00
(diminish 'projectile-mode)
(unbind-key "C-c p s a" projectile-command-map)
(unbind-key "C-c p s g" projectile-command-map)
(unbind-key "C-c p s s" projectile-command-map)
(unbind-key "C-c p s" projectile-command-map)
(bind-key* "C-c p s" 'do-ag))
2014-11-21 09:41:01 -07:00
:bind (("C-x f" . projectile-find-file-in-known-projects))
2014-11-12 00:36:24 -07:00
:init
(progn
2014-11-21 03:32:19 -07:00
(use-package persp-projectile
:ensure t
2014-12-08 02:02:57 -07:00
:commands projectile-persp-switch-project)
2014-11-12 00:36:24 -07:00
(use-package helm-projectile
:ensure t
2014-11-21 09:41:01 -07:00
:commands (helm-projectile-on)
:defer t)))
2014-11-12 00:36:24 -07:00
2014-11-21 11:43:09 -07:00
(use-package smex
:ensure t
2014-12-05 16:37:10 -07:00
;; Using helm-M-x instead
2014-12-04 23:37:56 -07:00
:disabled t
2014-11-21 21:33:31 -07:00
:commands smex
;; This is here because smex feels like part of ido
2014-11-21 11:43:09 -07:00
:bind ("M-x" . smex))
(use-package ido
:ensure t
2014-11-21 21:33:31 -07:00
:commands ido-mode
:config
(progn
2014-12-12 05:34:07 -07:00
(setq ido-create-new-buffer 'always)
2014-11-21 21:33:31 -07:00
(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
2014-12-12 01:51:23 -07:00
:disabled t
2014-11-21 21:33:31 -07:00
:commands (ido-ubiquitous-mode))
(use-package ido-vertical-mode
:ensure t
:config (ido-vertical-mode 1))
2014-12-12 05:34:07 -07:00
(use-package flx-ido :ensure t)))
2014-11-21 21:33:31 -07:00
(if (and (boundp 'use-ido) use-ido) (ido-mode))
;; =============================================================================
;; elisp
;; =============================================================================
2014-11-21 09:41:01 -07:00
(setq edebug-trace t)
2014-12-12 05:34:07 -07:00
(use-package macrostep :ensure t)
2014-12-09 02:47:39 -07:00
(use-package paredit
:ensure t)
2014-11-14 18:18:09 -07:00
(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
2014-11-21 07:25:11 -07:00
`("Package"
,"(use-package \\(.+\\)$" 1))
(add-to-list 'imenu-generic-expression
`("Section"
,(concat ";\\{1,4\\} =\\{10,80\\}\n;\\{1,4\\} \\{10,80\\}"
"\\(.+\\)$") 1) t))
2014-11-21 09:41:01 -07:00
(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)))
(bind-key "C-c C-f" 'find-function)
(bind-key "C-c C-v" 'find-variable)
(define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun)
(define-key lisp-mode-shared-map (kbd "C-c C-r") 'eval-and-replace)
2014-12-08 02:02:57 -07:00
(define-key lisp-mode-shared-map (kbd "C-c o r") 'up-list-region)
(define-key lisp-mode-shared-map (kbd "C-c o o") 'up-list-back)
2013-03-16 17:34:21 -06:00
;; =============================================================================
;; Python
;; =============================================================================
2014-11-13 22:53:57 -07:00
(defvar use-python-tabs nil)
2014-11-18 04:09:17 -07:00
(defun python-tabs ()
(setq tab-width 4 indent-tabs-mode t python-indent-offset 4))
2014-11-13 22:53:57 -07:00
(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 ()
2014-11-18 20:31:52 -07:00
(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)))
2014-11-13 22:53:57 -07:00
(defun message-virtual-envs ()
(interactive)
(message "%s" (get-virtual-envs)))
2014-11-13 22:53:57 -07:00
2014-11-12 00:36:24 -07:00
(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 ("M-." . jedi:goto-definition))
(use-package pytest
:ensure t
:bind ("C-c t" . pytest-one))
2014-11-12 00:36:24 -07:00
(use-package pymacs :ensure t)
(use-package sphinx-doc :ensure t)
(defun imalison:python-mode ()
(setq show-trailing-whitespace t)
(if use-python-tabs (python-tabs))
(subword-mode t)
(jedi:setup)
(add-virtual-envs-to-jedi-server)
(remove-hook 'completion-at-point-functions
'python-completion-complete-at-point 'local))
(add-hook 'python-mode-hook #'imalison:python-mode))))
;; =============================================================================
;; Scala
;; =============================================================================
2014-11-12 00:36:24 -07:00
(use-package scala-mode2
:init
(progn (add-hook 'scala-mode-hook
2014-11-13 22:53:57 -07:00
(lambda ()
(require 'whitespace)
(make-local-variable 'before-save-hook)
(add-hook 'before-save-hook 'whitespace-cleanup)
(whitespace-mode))))
2014-11-12 00:36:24 -07:00
:config
(progn
(use-package ensime
:ensure t
2014-11-21 03:32:19 -07:00
: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)))
2014-11-12 00:36:24 -07:00
(setq scala-indent:align-parameters t))
:mode (("\\.scala\\'" . scala-mode)
("\\.sc\\'" . scala-mode))
:ensure t)
2014-10-29 04:52:35 -06:00
;; =============================================================================
;; JavaScript
;; =============================================================================
2014-11-12 00:36:24 -07:00
(use-package js2-mode
:ensure t
2014-11-21 10:14:58 -07:00
:commands (js-mode)
:mode "\\.js\\'"
2014-11-12 00:36:24 -07:00
:bind
2014-11-21 11:43:09 -07:00
(("C-c b" . web-beautify-js))
2014-11-12 00:36:24 -07:00
:init
(progn
(setq js2-bounce-indent-p t)
(setq js2-basic-offset 2)
2014-11-14 08:45:42 -07:00
(use-package skewer-mode
:ensure t
:commands skewer-mode)
2014-11-20 18:39:42 -07:00
(add-hook 'js-mode-hook 'js2-minor-mode)
2014-11-12 00:36:24 -07:00
(add-hook 'js2-mode-hook (lambda () (tern-mode t)))
(add-hook 'js2-mode-hook 'skewer-mode)
2014-11-20 18:39:42 -07:00
(add-hook 'js2-mode-hook (lambda () (setq js-indent-level 1)))
2014-11-12 00:36:24 -07:00
(use-package tern
:commands tern-mode
2014-11-12 00:36:24 -07:00
:ensure t
:config
(progn (tern-ac-setup))
:init
(progn
(use-package tern-auto-complete :ensure t
:commands tern-ac-setup)))))
2014-11-04 07:20:30 -07:00
2014-11-20 18:39:42 -07:00
(use-package json-mode
:ensure t
2014-11-21 10:14:58 -07:00
:mode "\\.json\\'"
2014-11-20 18:39:42 -07:00
:init
(add-hook 'json-mode-hook
(lambda ()
(setq js-indent-level 2))))
2014-10-29 04:52:35 -06:00
2014-11-12 00:36:24 -07:00
(add-hook 'css-mode-hook #'skewer-css-mode)
(add-hook 'html-mode-hook #'skewer-html-mode)
2014-11-08 16:27:28 -07:00
2014-11-12 00:36:24 -07:00
(eval-after-load 'css-mode
'(define-key css-mode-map (kbd "C-c b") 'web-beautify-css))
2014-11-21 09:41:01 -07:00
;; =============================================================================
;; Ruby
;; =============================================================================
(use-package robe
:ensure t
2014-11-21 11:43:09 -07:00
:commands robe-mode
2014-11-21 09:41:01 -07:00
: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)))
2014-10-31 05:19:11 -06:00
;; =============================================================================
;; C/C++
;; =============================================================================
2014-11-12 00:36:24 -07:00
(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)))
2014-10-31 05:19:11 -06:00
2013-03-15 11:35:58 -06:00
;; =============================================================================
;; TeX
2013-03-15 11:35:58 -06:00
;; =============================================================================
2014-11-12 00:36:24 -07:00
(use-package tex-site
:ensure auctex
:commands TeX-mode
2014-11-12 00:36:24 -07:00
:config
(progn
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq TeX-save-query nil)
(setq-default TeX-master nil)))
2014-10-29 09:45:30 -06:00
2014-11-21 09:41:01 -07:00
;; =============================================================================
;; 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))
2014-11-29 12:08:48 -07:00
(use-package gitconfig-mode
:ensure t
:mode "\\.?gitconfig\\'")
2014-11-21 09:41:01 -07:00
(use-package evil :ensure t :commands (evil-mode))
;; =============================================================================
;; Custom Key Bindings
;; =============================================================================
2013-03-15 11:35:58 -06:00
;; Miscellaneous
2014-10-28 16:37:19 -06:00
(global-unset-key (kbd "C-o")) ;; Avoid collision with tmux binding.
2014-11-21 09:41:01 -07:00
(bind-key "M-q" 'fill-or-unfill-paragraph)
(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)
2014-12-08 02:02:57 -07:00
(bind-key "C-M-<backspace>" 'backward-kill-sexp)
(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)))
2014-06-11 18:15:56 -06:00
2014-11-21 09:41:01 -07:00
;; =============================================================================
;; toys
;; =============================================================================
(use-package hackernews :ensure t :commands hackernews)
2013-03-16 21:09:42 -06:00
;; =============================================================================
;; Appearance
;; =============================================================================
2014-11-21 09:41:01 -07:00
(defvar packages-appearance
'(monokai-theme solarized-theme zenburn-theme base16-theme molokai-theme
tango-2-theme gotham-theme sublime-themes ansi-color rainbow-delimiters
ample-theme))
2014-11-21 09:41:01 -07:00
(ensure-packages-installed packages-appearance)
2014-12-06 22:46:36 -07:00
2014-11-21 09:41:01 -07:00
(use-package smart-mode-line
:ensure t
2014-12-02 08:05:35 -07:00
:config
(progn
(setq sml/theme 'respectful)
(sml/setup)))
2014-11-11 17:31:59 -07:00
(setq inhibit-startup-screen t)
2014-11-12 00:36:24 -07:00
(blink-cursor-mode -1)
2014-11-11 17:31:59 -07:00
2014-10-29 09:45:30 -06:00
;; make whitespace-mode use just basic coloring
(setq whitespace-style (quote (spaces tabs newline space-mark
2014-10-29 09:45:30 -06:00
tab-mark newline-mark)))
(setq whitespace-display-mappings
'((space-mark 32 [183] [46])
(tab-mark 9 [9655 9] [92 9])))
(defun colorize-compilation-buffer ()
2014-11-08 16:27:28 -07:00
(read-only-mode)
2014-10-29 09:45:30 -06:00
(ansi-color-apply-on-region (point-min) (point-max))
2014-11-08 16:27:28 -07:00
(read-only-mode))
2014-10-29 09:45:30 -06:00
(add-hook 'compilation-filter-hook 'colorize-compilation-buffer)
;; =============================================================================
;; 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)))
2014-11-20 18:52:06 -07:00
(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"))))
2014-11-20 18:39:42 -07:00
(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-and-load-theme appropriate-theme t)
(setq current-theme appropriate-theme)))))
2014-11-20 18:39:42 -07:00
(defun disable-all-themes ()
(interactive)
2014-12-08 02:02:57 -07:00
(mapcar
(lambda (theme) (unless (s-contains? "smart-mode" (symbol-name theme))
(disable-theme theme))) custom-enabled-themes))
2014-11-20 18:39:42 -07:00
(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))
2014-11-10 05:51:35 -07:00
(defun set-my-font-for-frame (frame)
(condition-case exp
2014-11-18 04:09:17 -07:00
(set-frame-font (random-choice fonts) nil t)
2014-11-10 05:51:35 -07:00
('error (package-refresh-contents)
2014-12-06 22:46:36 -07:00
(set-frame-font "Monaco for Powerline-12" nil t) nil)))
2014-11-10 05:51:35 -07:00
2014-11-06 03:57:35 -07:00
(defun remove-fringe-and-hl-line-mode (&rest stuff)
2014-11-21 00:31:14 -07:00
(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))
2014-11-09 23:53:10 -07:00
(set-fringe-mode 0)
(setq linum-format 'dynamic)
(setq left-margin-width 0)
(setq hl-line-mode nil))
2014-11-19 18:08:36 -07:00
(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.
2014-11-06 03:57:35 -07:00
(run-at-time "00:00" 3600 'set-theme)
2014-11-10 05:37:48 -07:00
;; ;; This is needed because you can't set the font at daemon start-up.
2014-11-10 05:51:35 -07:00
(add-hook 'after-make-frame-functions 'set-my-font-for-frame)
(add-hook 'after-make-frame-functions (lambda (frame) (set-theme)))