config

(defun manx/config-open ()
	(interactive)
	(find-file "~/.emacs.d/config.org"))
(global-set-key (kbd "C-c x e") 'manx/config-open)

(defun manx/config-reload ()
	(interactive)
	;; save buffer if it's been edited
	(if (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)

(setq org-html-doctype "html5")

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

(add-hook 'org-mode-hook
					(lambda () (local-set-key (kbd "C-c s h") 'manx/save-org-to-html)))

(defun manx/org-insert-link()
	(interactive)
	(org-insert-link)
	(org-redisplay-inline-images))


(add-hook 'org-mode-hook
					(lambda () (local-set-key (kbd "C-c C-l") 'manx/org-insert-link)))
(setq org-image-actual-width 150)

(defun copy-whole-line ()
	(interactive)
	(save-excursion
		(kill-new
					(buffer-substring
					 (point-at-bol)
					 (point-at-eol)))))
(global-set-key (kbd "C-c k l") 'copy-whole-line)

(defun kill-whole-word ()
	(interactive)
	(backward-word)
	(kill-word 1))
(global-set-key (kbd "C-c k w") 'kill-whole-word)

(defun manx/kill-whole-line()
	(interactive)
	(move-beginning-of-line nil)
	(kill-whole-line))
(global-set-key (kbd "C-c k l") 'manx/kill-whole-line)

(defun manx/revert-buffer ()
	(interactive)
	(revert-buffer))

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

(global-set-key (kbd "C-c /") 'yas-expand)

(defun manx/format-whole-buffer()
	(interactive)
	(save-excursion
		(indent-region (point-min) (point-max) nil)))
(global-set-key (kbd "s-i") 'manx/format-whole-buffer)

(defun kill-current-buffer()
	(interactive)
	(kill-buffer (current-buffer)))
(global-set-key (kbd "C-x k") 'kill-current-buffer)

(defun kill-all-buffers()
	(interactive)
	(mapc 'kill-buffer (buffer-list)))
(global-set-key (kbd "C-M-s-k") 'kill-all-buffers)

(global-set-key (kbd "C-c f t") 'transpose-frame)

;; _f_rame fl_i_p
(global-set-key (kbd "C-c f i") 'flip-frame)

;; _f_rame fl_o_p
(global-set-key (kbd "C-c f o") 'flop-frame)

(defun split-and-follow-vertical ()
	(interactive)
	(split-window-right)
	(balance-windows)
	(other-window 1))
(global-set-key (kbd "C-x 3") 'split-and-follow-vertical)

(defun split-and-follow-horizontal ()
	(interactive)
	(split-window-below)
	(balance-windows)
	(other-window 1))
(global-set-key (kbd "C-x 2") 'split-and-follow-horizontal)

(use-package exwm
	:ensure t
	:config
	(require 'exwm-config)
	(exwm-config-default))

(require 'exwm-systemtray)
(exwm-systemtray-enable)

(use-package company
	:ensure t
	:diminish 'company-mode
	:config
	(setq company-idle-delay 0)
	(setq company-minimum-prefix-length 3)
	:init (add-hook 'after-init-hook 'global-company-mode))

(use-package slime-company
	:ensure t
	:diminish 'slime-mode)
(slime-setup '(slime-fancy slime-company))

(use-package company-auctex
	:ensure t)
(company-auctex-init)

(use-package tex
	:ensure auctex)

(setq LaTeX-item-indent 0)

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

(use-package symon
	:ensure t
	:bind ("s-h" . symon-mode))

(use-package beacon
	:ensure t
	:diminish 'beacon-mode
	:init (beacon-mode 1))

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