Created
January 24, 2017 03:14
-
-
Save matthew-ball/ee17163f6914b09cd59eb00fc012bb12 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defgroup user-variables nil "User variables.") | |
(defcustom user-projects-directory "~/Public/" "Directory for user's project files." :type 'directory :group 'user-variables) | |
(defcustom user-documents-directory "~/Documents/" "Directory for user's files." :type 'directory :group 'user-vabriables) | |
(defcustom user-notes-file (concat (expand-file-name user-documents-directory) "notes.org") "File for user's notes." :type 'file :group 'user-variables) | |
(defcustom user-packages-list '(magit gist undo-tree browse-kill-ring adaptive-wrap projectile yasnippet auto-complete diminish) "List of user packages." :type '(repeat symbol) :group 'user-variables) | |
(eval-when-compile (require 'cl-lib)) | |
(menu-bar-mode -1) | |
(tool-bar-mode -1) | |
(scroll-bar-mode -1) | |
(blink-cursor-mode -1) | |
(tooltip-mode -1) | |
(file-name-shadow-mode 1) | |
(delete-selection-mode 1) | |
(show-paren-mode 1) | |
(electric-pair-mode 1) | |
(line-number-mode 1) | |
(column-number-mode 1) | |
(size-indication-mode 1) | |
(global-prettify-symbols-mode 1) | |
(global-visual-line-mode 1) | |
(fringe-mode '(nil . 1)) | |
(setq-default tab-width 4 | |
show-trailing-whitespace 1 | |
delete-old-versions t) | |
(setq show-paren-delay 1.0 | |
inhibit-startup-message 1 | |
inhibit-echo-area-message 1 | |
read-buffer-completion-ignore-case 1 | |
read-file-name-completion-ignore-case 1 | |
disabled-command-function nil | |
use-dialog-box nil | |
confirm-nonexistent-file-or-buffer nil | |
custom-file (expand-file-name (concat user-emacs-directory "custom.el")) | |
visual-line-fringe-indicators '(left-curly-arrow nil)) | |
(load custom-file t) | |
(require 'package) | |
(package-initialize) | |
(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/")) | |
(defun user-packages-install () | |
(dolist (package user-packages-list) | |
(unless (package-installed-p package) | |
(package-install package)))) | |
(unless package-archive-contents | |
(package-refresh-contents) | |
(user-packages-install)) | |
(require 'midnight) | |
(setq midnight-mode 1) | |
(require 'uniquify) | |
(setq uniquify-buffer-name-style 'reverse | |
uniquify-separator "/" | |
uniquify-ignore-buffers-re "^\\*") | |
(require 'recentf) | |
(recentf-mode 1) | |
(require 'savehist) | |
(savehist-mode 1) | |
(require 'saveplace) | |
(setq-default save-place 1) | |
(require 'flyspell) | |
(add-hook 'text-mode-hook #'flyspell-mode) | |
(add-hook 'prog-mode-hook #'flyspell-prog-mode) | |
(require 'ispell) | |
(setq ispell-dictionary "en_GB") | |
(require 'eldoc) | |
(add-hook 'emacs-lisp-mode-hook #'eldoc-mode) | |
(require 'hideshow) | |
(defun display-line-count (ov) | |
(when (eq 'code (overlay-get ov 'hs)) | |
(overlay-put ov 'display (format "... / %d" (count-lines (overlay-start ov) (overlay-end ov)))))) | |
(setq hs-hide-comments-when-hiding-all nil | |
hs-isearch-open 'code | |
hs-set-up-overlay #'display-line-count) | |
(add-hook 'prog-mode-hook #'hs-minor-mode) | |
(require 'ido) | |
(ido-mode 1) | |
(ido-everywhere 1) | |
(setq ido-enable-flex-matching 1 | |
ido-use-virtual-buffers 1 | |
ido-create-new-buffer 'always | |
ido-show-dot-for-dired 1) | |
(require 'ibuffer) | |
(require 'ibuf-ext) | |
(setq ibuffer-show-empty-filter-groups nil | |
ibuffer-default-sorting-mode 'filename/process | |
ibuffer-expert 1 | |
ibuffer-old-time 24 | |
ibuffer-saved-filter-groups `(("default" | |
("Configuration" | |
(filename . ,(expand-file-name user-emacs-directory))) | |
("Projects" | |
(filename . ,(expand-file-name user-projects-directory))) | |
("Documents" | |
(filename . ,(expand-file-name user-documents-directory))) | |
("Miscellaneous" | |
(or (mode . dired-mode) | |
(mode . eshell-mode)))))) | |
(defvar ibuffer-default-collapsed-groups '("Default") "Filter groups to be collapsed by default.") | |
(defadvice ibuffer (after collapse) | |
(dolist (group ibuffer-default-collapsed-groups) | |
(progn | |
(goto-char 1) | |
(when (search-forward (concat "[ " group " ]") (point-max) t) | |
(progn | |
(move-beginning-of-line nil) | |
(ibuffer-toggle-filter-group))))) | |
(goto-char 1) | |
(search-forward "[ " (point-max) t)) | |
(ad-activate 'ibuffer) | |
(defun custom-ibuffer-mode () | |
(ibuffer-auto-mode 1) | |
(ibuffer-switch-to-saved-filter-groups "default")) | |
(add-hook 'ibuffer-mode-hook #'custom-ibuffer-mode) | |
(require 'tramp) | |
(setq tramp-default-method "ssh") | |
(require 'dired) | |
(require 'dired-x) | |
(setq dired-listing-switches "--color=auto -DaGghlv --group-directories-first --time-style=long-iso" | |
dired-dwim-target 1 | |
dired-omit-files (concat dired-omit-files "\\|^\\..+$")) | |
(defun custom-dired-bindings () | |
(define-key dired-mode-map (kbd "<return>") #'dired-find-alternate-file) | |
(define-key dired-mode-map (kbd "^") #'(lambda () (interactive) (find-alternate-file "..")))) | |
(defun custom-dired-mode () | |
(custom-dired-bindings) | |
(dired-omit-mode)) | |
(add-hook 'dired-mode-hook #'custom-dired-mode) | |
(require 'eshell) | |
(defun git-branch-string () | |
(shell-command-to-string "git branch")) | |
(defun eshell/git-branch () | |
(let ((branch (git-branch-string))) | |
(string-match "^\\* \\(.*\\)" branch) | |
(match-string 1 branch))) | |
(defun eshell/clear () | |
(let ((eshell-buffer-maximum-lines 0)) | |
(eshell-truncate-buffer))) | |
(defmacro with-face (string &rest properties) | |
`(propertize ,string 'face (list ,@properties))) | |
(defun custom-eshell-prompt () | |
(concat | |
(with-face user-login-name :foreground "green" :weight 'bold) ":" (with-face (eshell/pwd) :foreground "blue" :weight 'bold) | |
(if (string= (substring (git-branch-string) 0 1) "f") "" (with-face (concat " (" (eshell/git-branch) ")") :foreground "yellow" :weight 'bold)) | |
(if (= (user-uid) 0) (with-face "#" :foreground "red") "$") | |
" ")) | |
(setq eshell-prompt-function #'custom-eshell-prompt | |
eshell-prompt-regexp "^[^#$\n]*[#$] " | |
eshell-banner-message "") | |
(add-hook 'eshell-preoutput-filter-functions #'ansi-color-filter-apply) | |
(require 'org) | |
(require 'org-agenda) | |
(require 'org-capture) | |
(setq org-return-follows-link 1 | |
org-completion-use-ido 1 | |
org-directory user-documents-directory | |
org-default-notes-file user-notes-file | |
org-agenda-inhibit-startup 1 | |
org-agenda-span 'month | |
org-agenda-files `(,(expand-file-name user-notes-file)) | |
org-confirm-babel-evaluate nil | |
org-src-fontify-natively 1 | |
org-src-tab-acts-natively 1 | |
org-tag-alist '(("NOTES" . ?n) ("TASKS" . ?t)) | |
org-capture-templates '(("N" "Note" entry (file+headline (expand-file-name user-notes-file) "Notes") "*** %^{Title}\n%^{Text}\n\n" :empty-lines 1 :immediate-finish 1) | |
("T" "Task" entry (file+headline (expand-file-name user-notes-file) "Tasks") "*** TODO %^{Description}\n%^{Text}\n\n" :empty-lines 1 :immediate-finish 1))) | |
(add-to-list 'org-latex-packages-alist '("" "listings")) | |
(add-to-list 'org-latex-packages-alist '("" "color")) | |
(org-babel-do-load-languages 'org-babel-do-load-languages '((emacs-lisp . t) (sh . t))) | |
(defun surrounded-by-p (char) | |
(save-excursion | |
(and (forward-word -1) | |
(equal char (char-before)) | |
(forward-word 1) | |
(equal char (char-after))))) | |
(defun surround-word (char &optional force) | |
(save-excursion | |
(if (not (surrounded-by-p char)) | |
(progn | |
(forward-word 1) | |
(insert char) | |
(forward-word -1) | |
(insert char) | |
t) | |
(forward-word 1) | |
(delete-char 1) | |
(forward-word -1) | |
(delete-char -1) | |
nil))) | |
(defmacro org-propertise-word (prop char) | |
`(defun ,(intern (format "org-%s-word" prop)) (&optional force) | |
(interactive "p") | |
(surround-word ,char force))) | |
(org-propertise-word bold ?*) | |
(org-propertise-word italic ?/) | |
(org-propertise-word underline ?_) | |
(org-propertise-word verbatim ?~) | |
(org-propertise-word teletype ?=) | |
(defun custom-org-bindings () | |
(define-key org-mode-map (kbd "C-c b") #'org-bold-word) | |
(define-key org-mode-map (kbd "C-c i") #'org-italic-word) | |
(define-key org-mode-map (kbd "C-c u") #'org-underline-word) | |
(define-key org-mode-map (kbd "C-c v") #'org-verbatim-word) | |
(define-key org-mode-map (kbd "C-c t") #'org-teletype-word)) | |
(defun custom-org-mode () | |
(custom-org-bindings) | |
(org-toggle-pretty-entities)) | |
(add-hook 'org-mode-hook #'custom-org-mode) | |
(add-hook 'org-agenda-mode-hook #'hl-line-mode 'append) | |
(require 'gdb-mi) | |
(require 'cc-mode) | |
(setq gdb-many-windows 1 | |
gdb-show-main 1) | |
(defun custom-c-bindings () | |
(define-key c-mode-map (kbd "<f5>") #'compile) | |
(define-key c-mode-map (kbd "<f6>") #'gdb)) | |
(defun custom-c-mode () | |
(custom-c-bindings)) | |
(add-hook 'c-mode-hook #'custom-c-mode) | |
(defun complete-string (source) | |
(cond | |
((fboundp #'auto-complete) (auto-complete source)) | |
(t (dabbrev-expand source)))) | |
(defun smart-tab () | |
(interactive) | |
(if (minibufferp) | |
(unless (minibuffer-complete) | |
(complete-string nil)) | |
(if mark-active | |
(indent-region (region-beginning) (region-end)) | |
(if (looking-at "\\_>") | |
(complete-string nil) | |
(indent-for-tab-command))))) | |
(global-set-key (kbd "M-+") #'hs-toggle-hiding) | |
(global-set-key (kbd "C-x b") #'ido-switch-buffer) | |
(global-set-key (kbd "C-x C-b") #'ibuffer) | |
(global-set-key (kbd "<f5>") #'org-agenda) | |
(global-set-key (kbd "<f6>") #'org-capture) | |
(global-set-key (kbd "<f7>") #'eshell) | |
(global-set-key (kbd "TAB") #'smart-tab) | |
(load-theme 'misterioso) | |
(require 'magit) | |
(require 'gist) | |
(require 'undo-tree) | |
(require 'browse-kill-ring) | |
(setq browse-kill-ring-highlight-inserted-item t) | |
(browse-kill-ring-default-keybindings) | |
(require 'adaptive-wrap) | |
(add-hook 'text-mode-hook #'adaptive-wrap-prefix-mode) | |
(require 'projectile) | |
(projectile-mode 1) | |
(require 'yasnippet) | |
(setq yas-snippet-dirs `(,(concat (expand-file-name user-emacs-directory) "snippets"))) | |
(yas-global-mode 1) | |
(require 'auto-complete) | |
(ac-config-default) | |
(defun ac-add-yasnippet-source () | |
(add-to-list 'ac-sources 'ac-source-yasnippet)) | |
(add-hook 'prog-mode-hook #'ac-add-yasnippet-source) | |
(add-hook 'text-mode-hook #'auto-complete-mode) | |
(global-auto-complete-mode 1) | |
(require 'diminish) | |
(diminish 'flyspell-mode) | |
(diminish 'visual-line-mode) | |
(diminish 'yas-minor-mode) | |
(diminish 'auto-complete-mode) | |
(diminish 'hs-minor-mode) | |
(diminish 'eldoc-mode) | |
(diminish 'abbrev-mode) | |
(global-set-key (kbd "<f8> s") #'magit-status) | |
(global-set-key (kbd "<f8> b") #'gist-buffer) | |
(global-set-key (kbd "<f8> r") #'gist-region) | |
(global-set-key (kbd "C-z") #'undo-tree-visualize) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment