init.el

(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)