.emacs.d/config.org

• Benchmark
• macros
  • definteractive
  • local-keybind
• org
  • edit/reload config.org
  • misc
  • Snippets
  • html export
  • Links
    • Inline Images
• emacs gui
• functions
  • text
    • forward whitespace
    • kill whole word
    • kill whole line
    • revert buffer
    • Format whole file
    • colour under cursor
  • buffers
  • frames
    • transpose-frame
    • split and follow
• use-package
  • diminish
  • keychain-environment
  • exwm
  • nginx
  • company
  • c#
  • spaceline
  • dashboard
  • slime
  • switch window
  • elixir
  • yasnippet
  • minor modes
    • hungry delete
    • which key
    • avy
    • beacon
    • popup kill ring
• ido
• misc
  • unix line endings
  • UTF8
  • terminal
    • Make bash implicit terminal
  • minor things
  • docView auto reload
  • indentation
• auto-minor-mode
• sensitive-minor-mode
• Prettify symbols

Benchmark

(use-package benchmark-init
  :ensure t
  :config
  (add-hook 'after-init-hook 'benchmark-init/deactivate))

macros

definteractive

Wrappers around functions and lambdas so I don't have to type (interactive) all the damn time

	(defmacro definteractive (name &rest body)
		`(defun ,name ,(car body)
			 (interactive)
			 ,@(cdr body)))

	(defmacro lambdainteractive (&rest body)
		`(lambda ,(car body) (interactive) ,@(cdr body)))

local-keybind

Hide unecessary lambda when calling (local-set-key) for org-modefunctions

	(defmacro local-keybind (key value)
		`(lambda () (local-set-key (kbd ,key) (quote ,value))))

org

edit/reload config.org

Saves config.org if it's open then reloads the file.

	(definteractive manx/config-reload ()
		(when (get-buffer "config.org")
	 (with-current-buffer "config.org" (save-buffer)))
		(org-babel-load-file (expand-file-name "~/.emacs.d/config.org")))

	(global-set-key (kbd "C-c x r") 'manx/config-reload)
	(global-set-key (kbd "C-c x e") (lambdainteractive ()(find-file "~/.emacs.d/config.org")))

misc

	(setq org-src-window-setup 'current-window)

	;; I read somewhere that Company breaks things?
	(add-hook 'org-mode-hook 'company-mode)

	;; Don't indent whole file with org-mode
	(eval-after-load "org-mode" (local-set-key (kbd "s-i") nil))

Snippets

	(setq org-structure-template-alist
	(append
	 '(("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC")
		 ("js" "#+BEGIN_SRC javascript\n?\n#+END_SRC"))
	 org-structure-template-alist))

html export

	(setq org-html-doctype "html5")

	(definteractive manx/save-org-to-html()
		(when (equal major-mode 'org-mode)
			(save-buffer)
			(org-html-export-to-html)))

	(add-hook 'org-mode-hook
			(local-keybind "C-c s h" manx/save-org-to-html))

Links

	(definteractive manx/delete-org-link ()
		(if (org-in-regexp org-bracket-link-regexp 1)
	(apply 'delete-region (list (match-beginning 0) (match-end 0)))))

	(add-hook 'org-mode-hook (local-keybind "C-c o l" manx/delete-org-link))

Inline Images

(setq org-image-actual-width 150)

(definteractive manx/org-insert-link ()
	(org-insert-link)
	(org-redisplay-inline-images))

(add-hook 'org-mode-hook (local-keybind "C-c C-l" manx/org-insert-link))

emacs gui

	(tool-bar-mode -1)
	(menu-bar-mode -1)
	(scroll-bar-mode -1)
	(line-number-mode 1)
	(column-number-mode 1)
	(display-battery-mode 1)

	(global-unset-key (kbd "C-z"))

functions

text

forward whitespace

	(global-set-k'ey (kbd "<M-right>") 'forward-whitespace)

kill whole word

 (definteractive manx/kill-whole-word ()
	 (backward-word)
	 (kill-word 1))

 (global-set-key (kbd "C-c k w") 'manx/kill-whole-word)

kill whole line

(definteractive manx/kill-whole-line()
	(move-beginning-of-line nil)
	(kill-whole-line))

(global-set-key (kbd "C-c k l") 'manx/kill-whole-line)

revert buffer

(global-set-key (kbd "C-c r b") 'revert-buffer)

Format whole file

(definteractive manx/format-whole-buffer()
	(save-excursion
		(indent-region (point-min) (point-max) nil)))

(global-set-key (kbd "s-i") 'manx/format-whole-buffer)

colour under cursor

(defun what-face (pos)
	(interactive "d")
	(let ((face (or (get-char-property (pos) 'read-face-name)
			(get-char-property (pos) 'face))))
		(if face (message "Face: %s" face) (message "No face at %d" pos))))

buffers

	(global-set-key (kbd "C-x k") (lambdainteractive () (kill-buffer (current-buffer))))
	(global-set-key (kbd "C-M-s-k") (lambdainteractive () (mapc 'kill-buffer (buffer-list))))

frames

transpose-frame

;; This is only used here for now but we should still more it some
;; time
(add-to-list 'load-path "~/.emacs.d/scripts/")

(require 'transpose-frame)
(global-set-key (kbd "C-c f t") 'transpose-frame)
(global-set-key (kbd "C-c f i") 'flip-frame)
(global-set-key (kbd "C-c f o") 'flop-frame)

split and follow

(defmacro manx/split-and-follow (direction)
	`(progn
		 ,direction
		(balance-windows)
		(other-window 1)))

(global-set-key (kbd "C-x 3") (lambdainteractive () (manx/split-and-follow (split-window-below))))
(global-set-key (kbd "C-x 2") (lambdainteractive () (manx/split-and-follow (split-window-horizontally))))

use-package

		(setq use-package-always-ensure t
		use-package-verbose t)

diminish

	(use-package diminish)

keychain-environment

		 (use-package keychain-environment
			 :bind ("C-c r e" . 'keychain-refresh-environment)
			 :init (keychain-refresh-environment))

exwm

		 (unless (display-graphic-p)
			 (use-package exwm
			 :bind ("s-k" . 'exwm-workspace-delete)
			 :config
			 (require 'exwm-config)
			 (require 'exwm-systemtray)
			 (exwm-systemtray-enable)))

nginx

	(use-package nginx-mode
		:custom
		(nginx-indent-tabs-mode t)
		(nginx-indent-level 2)
		:config (add-to-list 'auto-mode-alist '("/nginx/sites-\\(?:available\\|enabled\\)/" . nginx-mode)))

company

	(use-package company
		:diminish 'company-mode
		:bind (:map company-mode-map
		("C-c /" . 'yas-expand))
		:custom
		(company-idle-delay 0)
		(company-minimum-prefix-length 3)
		:init (add-hook 'after-init-hook 'global-company-mode))

c#

		 (use-package csharp-mode
			 :defer t
			 :config
			 (use-package omnisharp
	 :defer t
	 :config
	 (add-hook 'csharp-mode-hook 'omnisharp-mode)
	 (add-to-list 'company-backends 'company-omnisharp)))

spaceline

	(use-package spaceline
		:init
		(require 'spaceline-config)
		(setq powerline-default-seperator (quote arrow))
		(spaceline-spacemacs-theme)
		:config (spaceline-toggle-buffer-size-off))

dashboard

	(use-package dashboard
		:diminish (dashboard-mode page-break-lines-mode)
		:custom
		(dashboard-center-content t)
		(dashboard-banner-logo-title "Komacs")
		(dashboard-set-init-info t)
		(dashboard-startup-banner "~/.emacs.d/Komacs.png")
		(dashboard-show-shortcuts nil)
		(dashboard-items '((recents . 5)))
		:config (dashboard-setup-startup-hook))

	(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))

slime

	(use-package slime
		:defer t
		:custom
		(slime-lisp-implementations
		 '((sbcl ("sbcl" "--core" "/usr/lib64/sbcl/sbcl.core")
			 :env ("SBCL_HOME=/usr/lib64/sbcl/"))))
		:diminish 'slime-mode
		:init
		(use-package slime-company)
		(add-hook 'lisp-mode-hook 'slime-mode)
		(slime-setup '(slime-fancy slime-company)))

switch window

	(use-package switch-window
		:custom
		(switch-window-input-style 'minibuffer)
		(switch-window-increase 4)
		(switch-window-threshold 2)
		:bind ([remap other-window] . switch-window))

elixir

	(use-package elixir-mode
		:defer t
		:config (use-package alchemist))

yasnippet

	(use-package yasnippet
		:diminish 'yas-minor-mode
		:hook ((html-mode
			LaTeX-mode
			emacs-lisp-mode
			lisp-mode)
		 . yas-minor-mode)
		:init
		(use-package yasnippet-snippets)
		(yas-reload-all))

minor modes

hungry delete

(use-package hungry-delete
	:diminish 'hungry-delete-mode
	:config (global-hungry-delete-mode 1))

which key

(use-package which-key
	:diminish 'which-key-mode
	:config (which-key-mode))

avy

(use-package avy
	:bind ("M-s" . avy-goto-char))

beacon

(use-package beacon
	:diminish 'beacon-mode
	:config (beacon-mode 1))

popup kill ring

(use-package popup-kill-ring
	:bind ("M-y" . popup-kill-ring))

ido

	(setq ido-enable-flex-matching t
	ido-create-new-buffer 'always
	ido-everywhere 1)

	(use-package ido-vertical-mode
		:bind ("C-l" . 'ido-reread-directory)
		:custom
		(ido-vertical-define-keys 'C-n-and-C-p-only)
		:config
		(ido-vertical-mode 1)
		(ido-mode 1))

misc

unix line endings

	(defun unix-line-ends ()
		(let ((coding-str (symbol-name buffer-file-coding-system)))
			(when (string-match "-\\(?:dos\\|mac\\)$" coding-str)
				(set-buffer-file-coding-system 'unix))))

	(add-hook 'find-file-hooks 'unix-line-ends)

UTF8

	(setq locale-coding-system 'utf-8)
	(set-terminal-coding-system 'utf-8)
	(set-keyboard-coding-system 'utf-8)
	(set-selection-coding-system 'utf-8)
	(prefer-coding-system 'utf-8)
	(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))

terminal

Make bash implicit terminal

(defvar my-term-shell "/bin/bash")
(defadvice ansi-term (before force-bash)
	(interactive (list my-term-shell)))
(ad-activate 'ansi-term)

(global-set-key (kbd "<s-return>") 'ansi-term)

minor things

	(show-paren-mode 1)
	(electric-pair-mode t)
	(global-hl-line-mode t)
	(global-prettify-symbols-mode t)

	(defalias 'yes-or-no-p 'y-or-n-p)

	(setq scroll-conservatively 100
	x-select-enable-clipboard t
	vc-follow-symlinks t)

	(setq backup-directory-alist
	`(("." . ,(concat user-emacs-directory "autosaves"))))

docView auto reload

	(add-hook 'doc-view-mode-hook 'auto-revert-mode)

indentation

	(setq-default tab-width 2
								indent-tabs-mode t)
	(defvaralias 'css-indent-offset 'tab-width)

auto-minor-mode

auto-mode-alist for minor modes.

For example, used with sensitive-mode to not create backups (path/to/file~) when creating yasnippets

	(defvar auto-minor-mode-alist ()
		"Alist of filename patterns vs correpsonding minor mode functions, see `auto-mode-alist'
	All elements of this alist are checked, meaning you can enable multiple minor modes for the same regexp.")

	(defun enable-minor-mode-based-on-extension ()
		"Check file name against `auto-minor-mode-alist' to enable minor modes
	the checking happens for all pairs in auto-minor-mode-alist"
		(when buffer-file-name
			(let ((name (file-name-sans-versions buffer-file-name))
			(remote-id (file-remote-p buffer-file-name))
			(case-fold-search auto-mode-case-fold)
			(alist auto-minor-mode-alist))
				;; Remove remote file name identification.
				(when (and (stringp remote-id)
			 (string-match-p (regexp-quote remote-id) name))
		(setq name (substring name (match-end 0))))
				(while (and alist (caar alist) (cdar alist))
		(if (string-match-p (caar alist) name)
				(funcall (cdar alist) 1))
		(setq alist (cdr alist))))))

	(add-hook 'find-file-hook #'enable-minor-mode-based-on-extension)

sensitive-minor-mode

  (define-minor-mode sensitive-minor-mode
    "For sensitive files like password lists.
  It disables backup creation and auto saving.

  With no argument, this command toggles the mode.
  Non-null prefix argument turns on the mode.
  Null prefix argument turns off the mode."
    nil ;; Initial
    "Sensitive" ;; Modeline
    nil ;; Bindings
    (if (symbol-value sensitive-minor-mode)
	(progn
	  (setq make-backup-files nil)
	  (auto-save-mode -1))
      (setq-local make-backup-files t)
      (auto-save-mode 1)))


  ;; Regexps of sensitive files.
  (setq auto-minor-mode-alist
	(append
	 '(("stream/manifest/.*\\.json$" . sensitive-minor-mode)
	   (".emacs.d/snippets/\\*$" . sensitive-minor-mode)
	   ("nginx/sites-(enabled|available)/*" . sensitive-minor-mode))
	 auto-minor-mode-alist))

Prettify symbols

  (add-hook 'emacs-lisp-mode-hook
	    (lambda ()
	      (push
	       '("lambdainteractive" . ?Λ) prettify-symbols-alist)))