.emacs.d.git - Gitblit

Joel Grunbaum

2022-01-01 4ebb4dc316ad135c94c94755e7bf8dcd1403b9e4

commit \| author \| age
990949	1	#+TITLE: My Emacs configuration
5a75e4	2	# LocalWords: poppler mingw emacs eq nt gnuplot setenv mapconcat el cond minibuffer pdf color Smartparens smartparens yas aindent whitespace eldoc ielm ibuffer hippie pscp pos Spaceline spaceline powerline spacemacs seperator dir Yasnippet yasnippet flycheck magit fullscreen CEDET askifnotset semanticdb EDE ede gdb srefactor analyzer eval cdb autosetup ghostscript math unicode reftex bibtex TeXcount texcount str latin rkt PlantUML plantuml autoload alist matlab verilog ds vh src fontify natively fortran dvipng plist xcolor EXWM Zenburn setq zenburn defun dolist init config DejaVu ispell aspell flyspell kbd recentf sexp ov bg listp defadvice progn prog keyfreq autosave dabbrev hl gc linum linux utf RET ARG arg configs backends contribs AucTex tex auctex LaTeX url htmlize linter backend writegood ggtags gtags dired eshell asm cd dwim VHDL defvar ctags vhdl concat sp html awk defalias cedet mips IPython ein contrib pandoc dokuwiki EMMS MPD emms toc favicon href css stylesheet async dataLayer gtag js UA sitelinks br Github postamble isso center disqus onclick Disqus javascript dsq createElement getElementsByTagName xml urlset xmlns curr loc RSS elfeed
8a38cc	3
6252df	4	* OS dependencies
JG	5	Windows and Mac have some interesting paths when starting emacs which needs to be fixed.
	6	Using mingw64 in windows and general path in mac.
990949	7	#+BEGIN_SRC emacs-lisp
6252df	8	(cond ((eq system-type 'windows-nt)
JG	9	(add-to-list 'exec-path "C:/msys64/usr/bin")
	10	(add-to-list 'exec-path "C:/msys64/mingw64/bin")
1cfa19	11	(add-to-list 'exec-path "C:/Program Files/gnuplot")
6252df	12	(setenv "PATH" (mapconcat #'identity exec-path path-separator)))
JG	13	((eq system-type 'darwin)
	14	(use-package exec-path-from-shell
	15	:config
8264c0	16	(exec-path-from-shell-initialize))
JG	17	(setq default-directory "~/")))
990949	18	#+END_SRC
C	19
	20	* Aesthetic changes
0fcc09	21	** Emacs theme
80d515	22	Theme switcher, using a cond allows loading of many preconfigured themes which can be switched between easily.
JG	23	Zenburn theme is my default.
990949	24	#+BEGIN_SRC emacs-lisp
0fcc09	25	(setq emacs-theme 'zenburn)
80d515	26
JG	27	(defun disable-all-themes ()
0c72fd	28	(dolist (i custom-enabled-themes)
JG	29	(disable-theme i)))
412080	30
0fcc09	31	(cond ((eq emacs-theme 'zenburn)
C	32	(use-package zenburn-theme
412080	33	:init
C	34	(disable-all-themes)
0fcc09	35	:config
C	36	(load-theme 'zenburn t)))
	37	((eq emacs-theme 'doom-one)
	38	(use-package doom-themes
412080	39	:init
C	40	(disable-all-themes)
0fcc09	41	:config
C	42	(setq doom-themes-enable-bolt t
	43	doom-themes-enable-italic t)
	44	(load-theme 'doom-one t)
	45	(doom-themes-visual-bell-config)
412080	46	(doom-themes-org-config)))
a428a2	47	((eq emacs-theme 'nord)
JG	48	(use-package nord-theme
	49	:init
	50	(disable-all-themes)
	51	:config
	52	(load-theme 'nord t)))
b0ee5f	53	((eq emacs-theme 'solarized)
JG	54	(use-package solarized-theme
	55	:init
	56	(disable-all-themes)
	57	:config
	58	(load-theme 'solarized-dark t)))
995f2c	59	((eq emacs-theme 'jetbrains-darcula)
JG	60	(use-package jetbrains-darcula-theme
	61	:init
	62	(disable-all-themes)
	63	:config
	64	(load-theme 'jetbrains-darcula t)))
412080	65	((eq emacs-theme 'none)
80d515	66	(disable-all-themes)))
990949	67	#+END_SRC
8a38cc	68
990949	69	** Default font
80d515	70	Set default font and faces.
20e001	71	#+BEGIN_SRC emacs-lisp
350884	72	(cond ((member "Dank Mono" (font-family-list))
JG	73	(set-frame-font "Dank Mono-11" nil t))
	74	((member "DejaVu Sans Mono" (font-family-list))
	75	(set-frame-font "DejaVu Sans Mono" nil t))
	76	((member "Source Code Pro" (font-family-list))
	77	(set-frame-font "Source Code Pro-10" nil t)))
	78
20e001	79	(set-face-italic 'font-lock-comment-face t)
C	80	(set-face-italic 'font-lock-keyword-face t)
990949	81	#+END_SRC
8a38cc	82
e0a5d8	83	** Remove menu bar, toolbar, and scroll bar
80d515	84	Make the emacs interface slightly nicer.
990949	85	#+BEGIN_SRC emacs-lisp
C	86	(menu-bar-mode 0)
	87	(tool-bar-mode 0)
e0a5d8	88	(scroll-bar-mode 0)
990949	89	#+END_SRC
350884	90	* COMMENT EXWM
JG	91	Emacs window manager.
	92	Tiling window manager that runs in emacs.
5a75e4	93	Open external applications with =s-&=
350884	94	#+BEGIN_SRC emacs-lisp
JG	95	(use-package exwm
0b5a77	96	:defer t
350884	97	:config
JG	98	(require 'exwm-config)
	99	(exwm-config-default))
	100	#+END_SRC
990949	101
C	102	* Writing requirements
	103	** Spellchecking
80d515	104	Use aspell for spellchecking.
JG	105	Auto-enable in latex and org as they're the main writing modes.
990949	106	#+BEGIN_SRC emacs-lisp
0c72fd	107	(use-package flyspell
JG	108	:hook (tex-mode latex-mode TeX-mode LaTeX-mode org-mode)
	109	:diminish flyspell-mode
4ebb4d	110	:init (require 'ispell)
0c72fd	111	:config
JG	112	(setq-default ispell-program-name "aspell")
	113	(setq-default ispell-local-dictionary "en_AU"))
990949	114	#+END_SRC
51fdbd	115	** COMMENT Language Tool
af0806	116	Language tool is an open source grammar checker.
JG	117	#+BEGIN_SRC emacs-lisp
	118	(use-package langtool
	119	:init
	120	(setq langtool-java-classpath "/usr/share/languagetool:/usr/share/java/languagetool/*"))
	121	#+END_SRC
990949	122	** Switch-window
80d515	123	Helps to change windows easily when many are open at once.
990949	124	#+BEGIN_SRC emacs-lisp
51fdbd	125	(use-package switch-window
JG	126	:config
0c72fd	127	;; (setq switch-window-input-style 'minibuffer)
JG	128	(setq switch-window-threshold 2)
	129	(setq switch-window-shortcut-style 'qwerty)
51fdbd	130	:bind
0c72fd	131	([remap other-window] . switch-window))
990949	132	#+END_SRC
8a38cc	133
990949	134	** Go to new window when opened
80d515	135	Go to new window when its opened instead of staying with current one.
990949	136	#+BEGIN_SRC emacs-lisp
C	137	(defun split-and-follow-horizontally ()
	138	(interactive)
	139	(split-window-below)
	140	(balance-windows)
	141	(other-window 1))
	142	(global-set-key (kbd "C-x 2") 'split-and-follow-horizontally)
	143
	144	(defun split-and-follow-vertically ()
	145	(interactive)
	146	(split-window-right)
	147	(balance-windows)
	148	(other-window 1))
	149	(global-set-key (kbd "C-x 3") 'split-and-follow-vertically)
	150	#+END_SRC
8a38cc	151
990949	152	** PDF-tools
80d515	153	Helpful pdf viewer.
990949	154	#+BEGIN_SRC emacs-lisp
bf794a	155	(use-package pdf-tools
0b5a77	156	:config
JG	157	(pdf-tools-install 1))
990949	158	#+END_SRC
8a38cc	159
be9cff	160	** COMMENT Writegood-mode
80d515	161	Supposedly should provide insight to writing quality.
49aa9f	162	#+BEGIN_SRC emacs-lisp
JG	163	(use-package writegood-mode
	164	:hook (text-mode . writegood-mode))
	165	#+END_SRC
	166
990949	167	* Helm and Projectile
C	168	** Helm core
80d515	169	Helm aids the user interface for emacs. Adds visual and auto-complete feedback for emacs commands.
990949	170	#+BEGIN_SRC emacs-lisp
C	171	(use-package helm-config
	172	:ensure helm
	173	:bind (("M-x" . helm-M-x)
	174	("C-x C-f" . helm-find-files)
	175	("M-y" . helm-show-kill-ring)
	176	("C-x b" . helm-mini)
	177	("C-c h o" . helm-occur))
	178	:config
	179	(setq helm-M-x-fuzzy-match t)
	180	(setq helm-buffers-fuzzy-matching t
	181	helm-recentf-fuzzy-match t)
	182	(setq helm-split-window-in-side-p t ; open helm buffer inside current window, not occupy whole other window
	183	helm-move-to-line-cycle-in-source t ; move to end or beginning of source when reaching top or bottom of source.
	184	helm-ff-search-library-in-sexp t ; search for library in `require' and `declare-function' sexp.
	185	helm-scroll-amount 8 ; scroll 8 lines other window using M-<next>/M-<prior>
	186	helm-ff-file-name-history-use-recentf t
	187	helm-echo-input-in-header-line t)
	188	(defun spacemacs//helm-hide-minibuffer-maybe ()
	189	"Hide minibuffer in Helm session if we use the header line as input field."
	190	(when (with-helm-buffer helm-echo-input-in-header-line)
	191	(let ((ov (make-overlay (point-min) (point-max) nil nil t)))
	192	(overlay-put ov 'window (selected-window))
	193	(overlay-put ov 'face
	194	(let ((bg-color (face-background 'default nil)))
	195	`(:background ,bg-color :foreground ,bg-color)))
	196	(setq-local cursor-type nil))))
	197	(add-hook 'helm-minibuffer-set-up-hook
	198	'spacemacs//helm-hide-minibuffer-maybe)
	199	(helm-mode 1))
	200	#+END_SRC
8a38cc	201
990949	202	** Projectile
80d515	203	Projectile is project management framework for emacs.
JG	204	Helps in navigation and management of projects.
	205	Identifies project layout from git.
990949	206	*** Enable it
0c72fd	207	#+BEGIN_SRC emacs-lisp
JG	208	(use-package projectile
	209	:bind ("C-c p" . projectile-command-map)
	210	:diminish projectile-mode
	211	:config
	212	(projectile-global-mode)
	213	(setq projectile-completion-system 'helm)
	214	(when (eq system-type 'windows-nt)
	215	(setq projectile-indexing-method 'alien)))
	216	#+END_SRC
8a38cc	217
990949	218	*** Let it compile things
80d515	219	Shortcut for compilation.
0c72fd	220	#+BEGIN_SRC emacs-lisp
JG	221	(global-set-key (kbd "<f5>") 'projectile-compile-project)
	222	#+END_SRC
8a38cc	223
990949	224	*** Enable communication with helm
80d515	225	Use helm to manage project.
990949	226	#+BEGIN_SRC emacs-lisp
baf326	227	(use-package helm-projectile
C	228	:config
	229	(helm-projectile-on))
990949	230	#+END_SRC
8a38cc	231
be9cff	232	** COMMENT ggtags
0ba1ff	233	Use GNU Global Tags. Can be useful for large projects.
bf794a	234	#+BEGIN_SRC emacs-lisp
0c72fd	235	(use-package ggtags
JG	236	:bind (("C-c g s" . ggtags-find-other-symbol)
bf794a	237	("C-c g h" . ggtags-view-tag-history)
JG	238	("C-c g r" . ggtags-find-reference)
	239	("C-c g f" . ggtags-find-file)
	240	("C-c g c" . ggtags-create-tags)
	241	("C-c g u" . ggtags-update-tags))
0c72fd	242	:config
JG	243	(add-hook 'c-mode-common-hook
bf794a	244	(lambda ()
JG	245	(when (derived-mode-p 'c-mode 'c++-mode 'java-mode)
	246	(ggtags-mode 1))))
0c72fd	247	)
bf794a	248
0c72fd	249	(setq
JG	250	helm-gtags-ignore-case t
	251	helm-gtags-auto-update t
	252	helm-gtags-use-input-at-cursor t
	253	helm-gtags-pulse-at-cursor t
	254	helm-gtags-prefix-key "\C-c g"
	255	helm-gtags-suggested-key-mapping t
	256	)
bf794a	257
0c72fd	258	(use-package helm-gtags
JG	259	:config
	260	(add-hook 'dired-mode-hook 'helm-gtags-mode)
	261	(add-hook 'eshell-mode-hook 'helm-gtags-mode)
	262	(add-hook 'c-mode-hook 'helm-gtags-mode)
	263	(add-hook 'c++-mode-hook 'helm-gtags-mode)
	264	(add-hook 'asm-mode-hook 'helm-gtags-mode)
	265
	266	(define-key helm-gtags-mode-map (kbd "C-c g a") 'helm-gtags-tags-in-this-function)
	267	(define-key helm-gtags-mode-map (kbd "C-j") 'helm-gtags-select)
	268	(define-key helm-gtags-mode-map (kbd "M-.") 'helm-gtags-dwim)
	269	(define-key helm-gtags-mode-map (kbd "M-,") 'helm-gtags-pop-stack)
	270	(define-key helm-gtags-mode-map (kbd "C-c <") 'helm-gtags-previous-history)
	271	(define-key helm-gtags-mode-map (kbd "C-c >") 'helm-gtags-next-history))
bf794a	272	#+END_SRC
JG	273
be9cff	274	** COMMENT Ctags
0ba1ff	275	Ctags is an older tagging program that supports more languages.
JG	276	Currently setup for VHDL as I had to work with a large existing VHDL code-base.
bf794a	277	#+BEGIN_SRC emacs-lisp
JG	278	(defvar ctags-command "ctags -e -R --languages=vhdl")
	279
	280	(defun ctags ()
	281	(call-process-shell-command ctags-command nil "Ctags"))
	282
	283
	284	(defun ctags-find-tags-file ()
	285	"Recursively searches each parent directory for a file named
	286	TAGS and returns the path to that file or nil if a tags file is
	287	not found or if the buffer is not visiting a file."
	288	(progn
	289	(defun find-tags-file-r (path)
	290	"Find the tags file from current to the parent directories."
	291	(let* ((parent-directory (file-name-directory (directory-file-name path)))
	292	(tags-file-name (concat (file-name-as-directory path) "TAGS")))
	293	(cond
	294	((file-exists-p tags-file-name) (throw 'found tags-file-name))
	295	((string= "/TAGS" tags-file-name) nil)
	296	(t (find-tags-file-r parent-directory)))))
	297
	298	(if (buffer-file-name)
	299	(catch 'found
	300	(find-tags-file-r (file-name-directory buffer-file-name)))
	301	nil)))
	302
	303	(defun ctags-set-tags-file ()
	304	"Uses `ctags-find-tags-file' to find a TAGS file. If found,
	305	set 'tags-file-name' with its path or set as nil."
	306	(setq-default tags-file-name (ctags-find-tags-file)))
	307
	308	(defun ctags-create-tags-table ()
	309	(interactive)
	310	(let* ((current-directory default-directory)
	311	(top-directory (read-directory-name
	312	"Top of source tree: " default-directory))
	313	(file-name (concat (file-name-as-directory top-directory) "TAGS")))
	314	(cd top-directory)
	315	(if (not (= 0 (ctags)))
	316	(message "Error creating %s!" file-name)
	317	(setq-default tags-file-name file-name)
	318	(message "Table %s created and configured." tags-file-name))
	319	(cd current-directory)))
	320
	321	(defun ctags-update-tags-table ()
	322	(interactive)
	323	(let ((current-directory default-directory))
	324	(if (not tags-file-name)
	325	(message "Tags table not configured.")
	326	(cd (file-name-directory tags-file-name))
	327	(if (not (= 0 (ctags)))
	328	(message "Error updating %s!" tags-file-name)
	329	(message "Table %s updated." tags-file-name))
	330	(cd current-directory))))
	331
	332	(defun ctags-create-or-update-tags-table ()
	333	"Create or update a tags table with `ctags-command'."
	334	(interactive)
	335	(if (not (ctags-set-tags-file))
	336	(ctags-create-tags-table)
	337	(ctags-update-tags-table)))
	338
	339
	340	(defun ctags-search ()
	341	"A wrapper for `tags-search' that provide a default input."
	342	(interactive)
	343	(let* ((symbol-at-point (symbol-at-point))
	344	(default (symbol-name symbol-at-point))
	345	(input (read-from-minibuffer
	346	(if (symbol-at-point)
	347	(concat "Tags search (default " default "): ")
	348	"Tags search (regexp): "))))
	349	(if (and (symbol-at-point) (string= input ""))
	350	(tags-search default)
	351	(if (string= input "")
	352	(message "You must provide a regexp.")
	353	(tags-search input)))))
	354	#+END_SRC
	355
990949	356	* Small tweaks
C	357	** Remove startup screen
0ba1ff	358	Start on scratch buffer instead.
990949	359	#+BEGIN_SRC emacs-lisp
0c72fd	360	(setq inhibit-startup-message t)
990949	361	#+END_SRC
8a38cc	362
990949	363	** Disable bell
0ba1ff	364	Bloody bell dings every time you hit a key too much.
990949	365	#+BEGIN_SRC emacs-lisp
0c72fd	366	(setq ring-bell-function 'ignore)
990949	367	#+END_SRC
8a38cc	368
990949	369	** Pretty symbols
0ba1ff	370	Why not? They make it look nice.
990949	371	#+BEGIN_SRC emacs-lisp
0b5a77	372	(use-package pretty-mode
JG	373	:diminish t
	374	:if window-system
	375	:config
	376	(global-pretty-mode))
990949	377	#+END_SRC
8a38cc	378
0ba1ff	379	** COMMENT Find file other window
990949	380	Lets it accept more than one file. Works recursively.
C	381	#+BEGIN_SRC emacs-lisp
0c72fd	382	(defadvice find-file-other-window (around find-files activate)
JG	383	(if (listp filename)
	384	(loop for f in filename do (find-file-other-window f wildcards))
	385	ad-do-it))
990949	386	#+END_SRC
8a38cc	387
990949	388	** Which key
0ba1ff	389	Helps to explain keybindings if you get lost.
990949	390	#+BEGIN_SRC emacs-lisp
C	391	(use-package which-key
	392	:diminish which-key-mode
	393	:config
	394	(which-key-mode))
	395	#+END_SRC
8a38cc	396
bf794a	397	** Config shortcuts
JG	398	*** Go to this file
990949	399	#+BEGIN_SRC emacs-lisp
0c72fd	400	(defun config-visit ()
JG	401	(interactive)
	402	(find-file "~/.emacs.d/config.org"))
	403	(global-set-key (kbd "C-c e d") 'config-visit)
990949	404	#+END_SRC
8a38cc	405
bf794a	406	*** Go to init.el
990949	407	#+BEGIN_SRC emacs-lisp
C	408	(defun init-visit ()
	409	(interactive)
	410	(find-file "~/.emacs.d/init.el"))
	411	(global-set-key (kbd "C-c e i") 'init-visit)
	412	#+END_SRC
8a38cc	413
bf794a	414	*** Reload configuration
990949	415	#+BEGIN_SRC emacs-lisp
0c72fd	416	(defun config-reload ()
JG	417	"Reloads ~/.emacs.d/config.org at run time"
	418	(interactive)
	419	(org-babel-load-file (expand-file-name "~/.emacs.d/config.org")))
	420	(global-set-key (kbd "C-c e r") 'config-reload)
990949	421	#+END_SRC
8a38cc	422
990949	423	** Smartparens
0ba1ff	424	Matches brackets automatically. Added "$" for latex in org mode.
990949	425	#+BEGIN_SRC emacs-lisp
0ba1ff	426	(use-package smartparens
JG	427	:diminish smartparens-mode
	428	:config
	429	(progn
	430	(require 'smartparens-config)
	431	(smartparens-global-mode 1))
	432	(sp-with-modes 'org-mode
	433	(sp-local-pair "$" "$")))
990949	434	#+END_SRC
8a38cc	435
0ba1ff	436	** COMMENT Rainbow
JG	437	Its a little gimmicky but its still cool.
	438	Colours according to code after a "#", works with 3 and 6 character hex codes.
990949	439	#+BEGIN_SRC emacs-lisp
C	440	(use-package rainbow-mode
	441	:diminish rainbow-mode
	442	:init
	443	(add-hook 'prog-mode-hook 'rainbow-mode))
	444	#+END_SRC
8a38cc	445
990949	446	** Rainbow delimiters
C	447	A bit more useful than above.
	448	Colours the brackets so that they stand out more.
	449	#+BEGIN_SRC emacs-lisp
	450	(use-package rainbow-delimiters
0b5a77	451	:hook (prog-mode . rainbow-delimiters-mode))
990949	452	#+END_SRC
8a38cc	453
0ba1ff	454	** Following whitespace
990949	455	Removes unnecessary white space
C	456	#+BEGIN_SRC emacs-lisp
0ba1ff	457	(use-package clean-aindent-mode
JG	458	:hook prog-mode)
990949	459	#+END_SRC
C	460	Shows trailing white space
	461	#+BEGIN_SRC emacs-lisp
51fdbd	462	(add-hook 'prog-mode-hook (lambda () (interactive) (setq show-trailing-whitespace 1)))
990949	463	#+END_SRC
8a38cc	464
0ba1ff	465	** Whitespace mode
990949	466	Reveals whitespace characters
C	467	#+BEGIN_SRC emacs-lisp
0c72fd	468	(global-set-key (kbd "C-c w") 'whitespace-mode)
JG	469	(add-hook 'diff-mode-hook (lambda ()
	470	(setq-local whitespace-style
	471	'(face
	472	tabs
	473	tab-mark
	474	spaces
	475	space-mark
	476	trailing
	477	indentation::space
	478	indentation::tab
	479	newline
	480	newline-mark))
	481	(whitespace-mode 1)))
990949	482
C	483	#+END_SRC
8a38cc	484
990949	485	** eldoc
0ba1ff	486	Shows function arguments in echo area below mode line.
990949	487	#+BEGIN_SRC emacs-lisp
f1b53f	488	(diminish 'eldoc-mode)
990949	489	(add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
C	490	(add-hook 'lisp-interaction-mode-hook 'eldoc-mode)
	491	(add-hook 'ielm-mode-hook 'eldoc-mode)
	492	#+END_SRC
8a38cc	493
0ba1ff	494	** Key frequency statistics
JG	495	Collects interesting statistics about key presses.
	496	Use M-x keyfreq-show to show in emacs or M-x keyfreq-html to output
990949	497	#+BEGIN_SRC emacs-lisp
0c72fd	498	(use-package keyfreq
JG	499	:config
	500	(keyfreq-mode 1)
	501	(keyfreq-autosave-mode 1))
990949	502	#+END_SRC
8a38cc	503
0ba1ff	504	** Undo tree
JG	505	A more advanced undo mechanism.
	506	Supports branched undo history (thus the tree).
	507	Pretty neat, if seldom used.
990949	508	#+BEGIN_SRC emacs-lisp
0c72fd	509	(use-package undo-tree
JG	510	:diminish undo-tree-mode
	511	:config
	512	(global-undo-tree-mode))
990949	513	#+END_SRC
8a38cc	514
0ba1ff	515	** Volatile highlights
990949	516	Colour the material just copied
C	517	#+BEGIN_SRC emacs-lisp
0c72fd	518	(use-package volatile-highlights
JG	519	:diminish volatile-highlights-mode
	520	:config
	521	(volatile-highlights-mode t))
990949	522	#+END_SRC
8a38cc	523
990949	524	** ibuffer
0ba1ff	525	View all open buffers in their own buffer rather in the temporary mini buffer.
990949	526	#+BEGIN_SRC emacs-lisp
0c72fd	527	(global-set-key (kbd "C-x C-b") 'ibuffer)
JG	528	(setq ibuffer-use-other-window t)
990949	529	#+END_SRC
8a38cc	530
0ba1ff	531	** Hippie expand
JG	532	Seems cool, but I don't think I ever use this.
	533	Meant to suggest completions to beginning of a word.
990949	534	#+BEGIN_SRC emacs-lisp
0c72fd	535	(global-set-key (kbd "M-/") 'hippie-expand) ;; replace dabbrev-expand
JG	536	(setq
	537	hippie-expand-try-functions-list
	538	'(try-expand-dabbrev ;; Try to expand word "dynamically", searching the current buffer.
	539	try-expand-dabbrev-all-buffers ;; Try to expand word "dynamically", searching all other buffers.
	540	try-expand-dabbrev-from-kill ;; Try to expand word "dynamically", searching the kill ring.
	541	try-complete-file-name-partially ;; Try to complete text as a file name, as many characters as unique.
	542	try-complete-file-name ;; Try to complete text as a file name.
	543	try-expand-all-abbrevs ;; Try to expand word before point according to all abbrev tables.
	544	try-expand-list ;; Try to complete the current line to an entire line in the buffer.
	545	try-expand-line ;; Try to complete the current line to an entire line in the buffer.
	546	try-complete-lisp-symbol-partially ;; Try to complete as an Emacs Lisp symbol, as many characters as unique.
	547	try-complete-lisp-symbol) ;; Try to complete word as an Emacs Lisp symbol.
	548	)
990949	549	#+END_SRC
8a38cc	550
990949	551	** Highlight line
0ba1ff	552	Very useful for finding where you are.
990949	553	#+BEGIN_SRC emacs-lisp
0c72fd	554	(global-hl-line-mode)
990949	555	#+END_SRC
8a38cc	556
990949	557	** Line numbers
0ba1ff	558	Everyone needs line numbers when programming.
990949	559	#+BEGIN_SRC emacs-lisp
0c72fd	560	(add-hook 'prog-mode-hook 'linum-mode)
990949	561	#+END_SRC
C	562
	563	** Garbage collection
0ba1ff	564	Starts garbage collection every 100MB.
990949	565	#+BEGIN_SRC emacs-lisp
51fdbd	566	(setq gc-cons-threshold (* 1024 1024 100))
990949	567	#+END_SRC
C	568
	569	** Kill ring
	570	Changes the kill ring size to 5000.
	571	#+BEGIN_SRC emacs-lisp
	572	(setq global-mark-ring-max 5000
0c72fd	573	mark-ring-max 5000
JG	574	mode-require-final-newline t
	575	kill-ring-max 5000
	576	kill-whole-line t)
990949	577	#+END_SRC
8a38cc	578
990949	579	** Coding style
0ba1ff	580	Use java for java, awk for awk and K&R for everything else.
JG	581	K&R uses 4 space tabs.
990949	582	#+BEGIN_SRC emacs-lisp
bf794a	583	(setq c-default-style '((java-mode . "java")
0c72fd	584	(awk-mode . "awk")
JG	585	(other . "k&r")))
990949	586	#+END_SRC
C	587
	588	** Coding system
0b5a77	589	Cause we all love UTF8.
990949	590	#+BEGIN_SRC emacs-lisp
bf794a	591	(set-terminal-coding-system 'utf-8)
JG	592	(set-keyboard-coding-system 'utf-8)
	593	(set-language-environment "UTF-8")
	594	(prefer-coding-system 'utf-8)
30d015	595	(setq-default indent-tabs-mode nil
JG	596	tab-width 4
16980b	597	c-basic-offset tab-width
JG	598	cperl-indent-level tab-width)
30d015	599	(c-set-offset 'inline-open '0)
bf794a	600	(delete-selection-mode)
JG	601	(global-set-key (kbd "RET") 'newline-and-indent)
990949	602	#+END_SRC
30d015	603	*** Smart tabs
JG	604	Tabs for indentation, spaces for alignment
	605	#+BEGIN_SRC emacs-lisp
0c72fd	606	(use-package smart-tabs-mode
JG	607	:config
	608	(smart-tabs-insinuate 'c 'c++ 'java 'javascript 'cperl 'python 'ruby
	609	'nxml))
30d015	610	#+END_SRC
8a38cc	611
990949	612	** Move to beginning of line ignoring whitespace
C	613	Move point back to indentation of beginning of line.
0ba1ff	614	Pretty good for getting to the start of what you actually wanted.
990949	615
C	616	Move point to the first non-whitespace character on this line.
	617	If point is already there, move to the beginning of the line.
	618	Effectively toggle between the first non-whitespace character and
	619	the beginning of the line.
	620
	621	If ARG is not nil or 1, move forward ARG - 1 lines first. If
	622	point reaches the beginning or end of the buffer, stop there.
	623	#+BEGIN_SRC emacs-lisp
0c72fd	624	(defun prelude-move-beginning-of-line (arg)
JG	625	(interactive "^p")
	626	(setq arg (or arg 1))
990949	627
0c72fd	628	;; Move lines first
JG	629	(when (/= arg 1)
	630	(let ((line-move-visual nil))
	631	(forward-line (1- arg))))
990949	632
0c72fd	633	(let ((orig-point (point)))
JG	634	(back-to-indentation)
	635	(when (= orig-point (point))
	636	(move-beginning-of-line 1))))
990949	637
0c72fd	638	(global-set-key (kbd "C-a") 'prelude-move-beginning-of-line)
990949	639	#+END_SRC
8a38cc	640
990949	641	** Indent region or buffer
0ba1ff	642	Indent, slightly different to standard tab or C-M-\.
990949	643	#+BEGIN_SRC emacs-lisp
0c72fd	644	(defun indent-region-or-buffer ()
JG	645	"Indent a region if selected, otherwise the whole buffer."
	646	(interactive)
	647	(unless (member major-mode prelude-indent-sensitive-modes)
	648	(save-excursion
	649	(if (region-active-p)
	650	(progn
	651	(indent-region (region-beginning) (region-end))
	652	(message "Indented selected region."))
990949	653	(progn
0c72fd	654	(indent-buffer)
JG	655	(message "Indented buffer.")))
	656	(whitespace-cleanup))))
990949	657
0c72fd	658	(global-set-key (kbd "C-c i") 'indent-region-or-buffer)
990949	659	#+END_SRC
8a38cc	660
990949	661	** Tramp
0ba1ff	662	Remote editing mode.
JG	663	Hate having to re-input passwords.
990949	664	#+BEGIN_SRC emacs-lisp
8b0d06	665	(use-package tramp
JG	666	:pin gnu
	667	:config
	668	;; (setq tramp-default-method "ssh")
	669	(when (eq system-type 'windows-nt)
	670	(setq tramp-default-method "pscp"))
ccdb5b	671	(setq password-cache-expiry nil)
JG	672	(add-to-list 'tramp-remote-path 'tramp-own-remote-path))
990949	673	#+END_SRC
C	674
0ba1ff	675	** COMMENT Y or N instead of yes or no
JG	676	Need not type out whole word.
	677	#+BEGIN_SRC emacs-lisp
	678	(defalias 'yes-or-no-p 'y-or-n-p)
	679	#+END_SRC
	680
06a72e	681	** COMMENT Sublime-like minimap
JG	682	Get a minimap preview of the file on the side like sublime text.
	683	Want to make work but need to find a good way of doing so.
	684	#+BEGIN_SRC emacs-lisp
	685	(use-package sublimity
	686	:config
	687	(require 'sublimity-scroll)
	688	(setq sublimity-scroll-weight 4
	689	sublimity-scroll-drift-length 3)
	690	(require 'sublimity-map)
	691	(setq sublimity-map-size 20
	692	sublimity-map-scale 0.3)
	693	(sublimity-map-set-delay nil)
	694	(sublimity-mode 1))
	695
	696	(use-package minimap
	697	:config
	698	(minimap-mode))
	699	#+END_SRC
	700
1cfa19	701	** Highlight indentation
JG	702	Vertical demarcations for indent levels
	703	#+BEGIN_SRC emacs-lisp
	704	(use-package highlight-indentation
	705	:hook (prog-mode . highlight-indentation-mode))
	706	#+END_SRC
990949	707	* Mode line tweaks
C	708	Diminish is used but is included in init.el such that it can be used throughout this document
	709	** Spaceline
0ba1ff	710	A little easier to read than the default emacs mode line.
990949	711	#+BEGIN_SRC emacs-lisp
0c72fd	712	(use-package spaceline
JG	713	:config
	714	(require 'spaceline-config)
	715	(setq spaceline-buffer-encoding-abbrev-p t)
	716	(setq spaceline-line-column-p t)
	717	(setq spaceline-line-p t)
	718	(setq powerline-default-separator (quote arrow))
	719	(spaceline-spacemacs-theme)
	720	(spaceline-helm-mode))
990949	721	#+END_SRC
8a38cc	722
1005e3	723	*** Separator
JG	724	Slightly nicer separator.
	725	#+BEGIN_SRC emacs-lisp
0c72fd	726	(setq powerline-default-separator nil)
1005e3	727	#+END_SRC
JG	728
0c962c	729	** Nyan mode
JG	730	Use nyan cat as a reference for buffer progression.
	731	#+BEGIN_SRC emacs-lisp
	732	(use-package nyan-mode
	733	:config
	734	(nyan-mode 1))
	735	#+END_SRC
	736
990949	737	* Programming tweaks
C	738	** Yasnippet
0ba1ff	739	Add snippets, pretty useful.
JG	740	Manually added snippets are in ~/.emacs.d/snippets/{mode}.
990949	741	#+BEGIN_SRC emacs-lisp
bf794a	742	(use-package yasnippet
JG	743	:diminish yas-minor-mode
	744	:config
	745	(yas-global-mode 1))
0b5a77	746
JG	747	(use-package yasnippet-snippets
	748	:after yasnippet)
990949	749	#+END_SRC
0ba1ff	750	** Flycheck
JG	751	Basic linter. Works pretty well.
990949	752	#+BEGIN_SRC emacs-lisp
8a38cc	753	(use-package flycheck
C	754	:diminish flycheck-mode
	755	:config
	756	(global-flycheck-mode))
990949	757	#+END_SRC
0ba1ff	758	*** flycheck-pos-tip
JG	759	Add suggestions at the cursor.
990949	760	#+BEGIN_SRC emacs-lisp
0c72fd	761	(use-package flycheck-pos-tip
JG	762	:after flycheck
	763	:config
	764	(flycheck-pos-tip-mode))
990949	765	#+END_SRC
C	766	** Company
0ba1ff	767	Company is auto-complete for Emacs.
JG	768	Uses various backends, more of which are added later.
990949	769	#+BEGIN_SRC emacs-lisp
C	770	(use-package company
	771	:diminish company-mode
	772	:config
	773	(global-company-mode)
	774	(setq company-idle-delay 0)
e0a5d8	775	(setq company-minimum-prefix-length 1))
990949	776	#+END_SRC
8a38cc	777
e92017	778	** LSP Mode
3f2799	779	Use LSP for completion suggestions.
JG	780	Causes too much memory usage, need to debug.
0d8394	781	Need to generate ~compile_flags~ for c/c++, can use ~bear~ but may need other tools.
c8124c	782	#+BEGIN_SRC emacs-lisp
JG	783	(use-package lsp-mode
0b5a77	784	:hook (((c-mode
0d8394	785	c++-mode
0b5a77	786	tex-mode
JG	787	latex-mode
	788	TeX-mode
	789	LaTeX-mode
	790	rust-mode
	791	sh-mode
3cfd40	792	;; verilog-mode
43cf1d	793	go-mode) . lsp))
c8124c	794	:init
JG	795	(setq lsp-keymap-prefix "C-c l")
	796	:commands lsp
	797	:config
4b91a3	798	(add-hook 'lsp-mode-hook 'lsp-enable-which-key-integration)
c8124c	799	(setq read-process-output-max (* 1024 1024))
f0bf38	800	(setq lsp-completion-provider :capf)
83addc	801	(setq lsp-keep-workspace-alive 'nil)
f0bf38	802	(add-to-list 'exec-path "~/.cargo/bin"))
e56895	803
c8124c	804	(use-package lsp-ui
JG	805	:commands lsp-ui-mode)
e56895	806
c8124c	807	(use-package helm-lsp
JG	808	:commands helm-lsp-workspace-symbol)
	809	#+END_SRC
0b5a77	810
da7a13	811	** Version control
JG	812	Settings for emacs' own version control system.
	813	*** Enable version control on the mode line
	814	#+BEGIN_SRC emacs-lisp
	815	(vc-mode)
	816	#+END_SRC
0b5a77	817
990949	818	** Magit
0ba1ff	819	Emacs git client.
JG	820	Pretty good and offers fairly decent features.
990949	821	#+BEGIN_SRC emacs-lisp
0c72fd	822	(use-package magit
JG	823	:commands magit-get-top-dir
	824	:bind ("C-x g" . magit-status)
	825	:init
	826	(progn
	827	;; make magit status go full-screen but remember previous window
	828	;; settings
	829	;; from: http://whattheemacsd.com/setup-magit.el-01.html
	830	(defadvice magit-status (around magit-fullscreen activate)
	831	(window-configuration-to-register :magit-fullscreen)
	832	ad-do-it
	833	(delete-other-windows))
	834
	835	;; Close popup when committing - this stops the commit window
	836	;; hanging around
	837	;; From: http://git.io/rPBE0Q
	838	(defadvice git-commit-commit (after delete-window activate)
	839	(delete-window))
	840
	841	(defadvice git-commit-abort (after delete-window activate)
	842	(delete-window))
	843
	844	:config
990949	845	(progn
0c72fd	846	;; restore previously hidden windows
JG	847	(defadvice magit-quit-window (around magit-restore-screen activate)
	848	(let ((current-mode major-mode))
	849	ad-do-it
	850	;; we only want to jump to register when the last seen buffer
	851	;; was a magit-status buffer.
	852	(when (eq 'magit-status-mode current-mode)
	853	(jump-to-register :magit-fullscreen)))))
990949	854
0c72fd	855	;; magit settings
JG	856	(setq
	857	;; don't put "origin-" in front of new branch names by default
	858	magit-default-tracking-name-function 'magit-default-tracking-name-branch-only
	859	;; open magit status in same window as current buffer
	860	magit-status-buffer-switch-function 'switch-to-buffer
	861	;; highlight word/letter changes in hunk diffs
	862	magit-diff-refine-hunk t
	863	;; ask me if I want to include a revision when rewriting
	864	magit-rewrite-inclusive 'ask
	865	;; ask me to save buffers
	866	magit-save-some-buffers t
	867	;; pop the process buffer if we're taking a while to complete
	868	magit-process-popup-time 10
	869	;; ask me if I want a tracking upstream
	870	magit-set-upstream-on-push 'askifnotset
	871	))
	872	)
5324d5	873	#+END_SRC
JG	874
	875	*** More general yes and no prompt
	876	The default setting can miss some.
	877	Don't redefine the regex in case this is too general.
	878	#+BEGIN_SRC emacs-lisp
	879	;;(when-let ((regex "[\[$]]?\\([Yy]\\(es\$?\\)[/\|]\$[Nn]o?\$[\]\)]")
	880	(defun magit-process-general-yn-prompt-hook (proc str)
	881	"Handle [y/n] prompts"
	882	(when-let ((beg (string-match "[\[$]]?\\([Yy]\\(es\$?\\)[/\|]\$[Nn]o?\$[\]\)]" str)))
	883	(let ;; ((max-mini-window-height 30))
	884	(process-send-string
	885	proc
	886	(downcase
	887	(concat
	888	(match-string
	889	(if (save-match-data
	890	(magit-process-kill-on-abort proc
0c72fd	891	(y-or-n-p (substring str 0 beg)))) 1 2)
5324d5	892	str)
JG	893	"\n"))))))
	894
	895	(add-hook 'magit-process-prompt-functions
	896	#'magit-process-general-yn-prompt-hook)
	897	#+END_SRC
	898	*** Gerrit integration
	899	Gerrit takes ~origin:refs/for/master~ as a destination.
	900	Enable magit to work with its oddities.
	901	#+BEGIN_SRC emacs-lisp
0c72fd	902	(use-package magit-gerrit)
990949	903	#+END_SRC
8a38cc	904
990949	905	** CEDET
51fdbd	906	*** COMMENT Semantic
0ba1ff	907	Parser library for code, supports many other packages.
0b5a77	908	Allows emacs to be more aware of what is being written.
990949	909	#+BEGIN_SRC emacs-lisp
C	910	(use-package semantic
0b5a77	911	:hook (prog-mode . semantic-mode)
990949	912	:config
C	913	(global-semanticdb-minor-mode 1)
	914	(global-semantic-idle-scheduler-mode 1)
	915	(global-semantic-idle-summary-mode 1)
	916	(semantic-mode 1))
	917	#+END_SRC
8a38cc	918
a428a2	919	*** COMMENT EDE
0ba1ff	920	Emacs Development Environment.
JG	921	Can be used to manage and create build files for a project.
990949	922	#+BEGIN_SRC emacs-lisp
0c72fd	923	(use-package ede
JG	924	:config
	925	(global-ede-mode t))
990949	926	#+END_SRC
8a38cc	927
990949	928	*** gdb-many-windows
0ba1ff	929	Enhances the use of GDB in emacs.
JG	930	Shows register contents, variable contents and others in addition to GDB shell.
	931	Also shows source code while debugging.
990949	932	#+BEGIN_SRC emacs-lisp
0c72fd	933	(setq
JG	934	gdb-many-windows t
	935	gdb-show-main t)
990949	936	#+END_SRC
8a38cc	937
0ba1ff	938	*** COMMENT Semantic refactor
JG	939	Trying to get this to work.
	940	Should help to refactor file.
990949	941	#+BEGIN_SRC emacs-lisp
0ba1ff	942	(use-package srefactor
JG	943	:bind (("M-RET o" . 'srefactor-lisp-one-line)
0c72fd	944	("M-RET m" . 'srefactor-lisp-format-sexp)
JG	945	("M-RET d" . 'srefactor-lisp-format-defun)
	946	("M-RET b" . 'srefactor-lisp-format-buffer)
	947	:map c-mode-base-map
	948	("M-RET" . 'srefactor-refactor-at-point)
	949	:map c++-mode-map
	950	("M-RET" . 'srefactor-refactor-at-point)))
990949	951	#+END_SRC
8a38cc	952
990949	953	** Language specific configs
C	954	*** C/C++
8dba69	955	**** Flycheck
JG	956	***** Flycheck clang
0ba1ff	957	Add the clang backend for linting.
990949	958	#+BEGIN_SRC emacs-lisp
0b5a77	959	(use-package flycheck-clang-analyzer
JG	960	:after flycheck
	961	:config
	962	(with-eval-after-load 'flycheck
	963	(require 'flycheck-clang-analyzer)
0c72fd	964	(flycheck-clang-analyzer-setup)))
990949	965	#+END_SRC
8dba69	966	***** Flycheck project root
JG	967	Flycheck tends to fail finding the project root, giving errors about missing files.
	968	This should remove them.
	969	#+BEGIN_SRC emacs-lisp
	970	(defun setup-flycheck-project-path ()
	971	(let ((root (ignore-errors (projectile-project-root))))
	972	(when root
	973	(add-to-list
	974	(make-variable-buffer-local 'flycheck-clang-include-path)
	975	root)
	976	(add-to-list
	977	(make-variable-buffer-local 'flycheck-gcc-include-path)
	978	root))))
	979
	980	(add-hook 'c-mode-hook 'setup-flycheck-project-path)
	981	(add-hook 'c++-mode-hook 'setup-flycheck-project-path)
	982	#+END_SRC
cf3d41	983	**** COMMENT Company
0ba1ff	984	Add header completion as well as Irony, which uses clang for suggestions.
990949	985	#+BEGIN_SRC emacs-lisp
C	986	(use-package company-c-headers
0c72fd	987	:after company
JG	988	:config
	989	(add-hook 'c++-mode-hook 'company-mode)
	990	(add-hook 'c-mode-hook 'company-mode))
51fdbd	991	#+END_SRC
JG	992	**** COMMENT Irony
	993	#+BEGIN_SRC emacs-lisp
	994	(use-package irony
	995	:init
	996	(setq w32-pipe-read-delay 0)
	997	(setq irony-server-w32-pipe-buffer-size (* 64 1024))
	998	(add-hook 'c++-mode-hook 'irony-mode)
	999	(add-hook 'c-mode-hook 'irony-mode)
	1000	(add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options)
	1001	(add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options))
990949	1002
51fdbd	1003	(use-package company-irony
JG	1004	:after irony
	1005	:config
	1006	(add-to-list 'company-backends '(company-c-headers
	1007	company-dabbrev-code
	1008	company-irony)))
990949	1009	#+END_SRC
545e6d	1010	**** Clang-format
27d33b	1011	Automatically format buffer on save.
JG	1012	#+BEGIN_SRC emacs-lisp
0c72fd	1013	(defun set-clang-format-style ()
JG	1014	(if (file-exists-p (concat
	1015	(projectile-project-root)
	1016	".clang-format"))
	1017	(setq-local clang-format-style nil)
	1018	(setq-local clang-format-style (concat "{BasedOnStyle: LLVM,"
	1019	"IndentWidth: " (format "%s" tab-width) ","
	1020	"UseTab: " (if (eq indent-tabs-mode nil)
	1021	"Never"
	1022	"AlignWithSpaces")
	1023	","
	1024	"BreakBeforeBraces: Linux,"
	1025	"AllowShortIfStatementsOnASingleLine: false,"
	1026	"IndentCaseLabels: false}"))))
aa97b3	1027
0c72fd	1028	(use-package clang-format
JG	1029	:hook (c-mode-common . (set-clang-format-style)))
aa97b3	1030
0c72fd	1031	;; (defun clang-format-on-save ()
JG	1032	;; (add-hook 'before-save-hook 'clang-format-buffer nil t))
	1033	;; (add-hook 'c-mode-hook 'clang-format-on-save nil t)
	1034	;; (add-hook 'c++-mode-hook 'clang-format-on-save nil t))
27d33b	1035	#+END_SRC
990949	1036	*** emacs-lisp
545e6d	1037	**** COMMENT Company
0ba1ff	1038	Add slime backend.
990949	1039	#+BEGIN_SRC emacs-lisp
0c72fd	1040	(add-hook 'emacs-lisp-mode-hook 'company-mode)
990949	1041
0c72fd	1042	(use-package slime
JG	1043	:config
	1044	(setq inferior-lisp-program "/usr/bin/sbcl")
	1045	(setq slime-contribs '(slime-fancy)))
990949	1046
0c72fd	1047	(use-package slime-company
JG	1048	:init
990949	1049	(require 'company)
C	1050	(slime-setup '(slime-fancy slime-company)))
	1051	#+END_SRC
8a38cc	1052
bf794a	1053	*** COMMENT x86
990949	1054	**** x86-lookup
0ba1ff	1055	Look up reference PDF. Use Intel manual.
990949	1056	#+BEGIN_SRC emacs-lisp
0c72fd	1057	(use-package x86-lookup
JG	1058	:init
	1059	(setq x86-lookup-pdf "D:/Coding/x86-instructions.pdf")
	1060	:bind ("C-h x" . x86-lookup))
990949	1061	#+END_SRC
8a38cc	1062
990949	1063	*** Latex
C	1064	**** AucTex
0ba1ff	1065	AucTex contains many additions to make tex editing good.
990949	1066	#+BEGIN_SRC emacs-lisp
20e001	1067	(use-package tex
C	1068	:ensure auctex
	1069	:config
0b5a77	1070	(setq TeX-auto-save t
JG	1071	TeX-parse-self t
	1072	TeX-view-program-selection '((output-pdf "PDF Tools"))
20e001	1073	TeX-source-correlate-start-server t)
C	1074	(add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer))
990949	1075	#+END_SRC
8a38cc	1076
990949	1077	**** Company
0ba1ff	1078	Help company complete tex math and references.
990949	1079	#+BEGIN_SRC emacs-lisp
C	1080	(use-package company-math
	1081	:after company
	1082	:config
1005e3	1083	(add-to-list 'company-backends '(company-math-symbols-unicode company-math-symbols-latex
0c72fd	1084	company-latex-commands))
1005e3	1085	(setq company-math-allow-latex-symbols-in-faces t))
990949	1086
C	1087	(use-package company-reftex
	1088	:after company
	1089	:config
1005e3	1090	(add-to-list 'company-backends 'company-reftex-citations))
990949	1091
C	1092	(use-package company-auctex
	1093	:after company
	1094	:config
	1095	(company-auctex-init))
	1096
	1097	(use-package company-bibtex
	1098	:after company
	1099	(add-to-list 'company-backends 'company-bibtex))
	1100	#+END_SRC
8a38cc	1101
bf794a	1102	**** TeXcount
0ba1ff	1103	Word counts in latex.
JG	1104	Uses a Perl script.
	1105	#+BEGIN_SRC emacs-lisp
	1106	(defun get-texcount-latest()
	1107	(if (not(file-directory-p "~/.texcount"))
	1108	(make-directory "~/.texcount"))
fb9b1b	1109	(url-copy-file "https://app.uio.no/ifi/texcount/download.php?file=texcount_3_2_0_41.zip" "~/.texcount/texcount.zip" 1)
0ba1ff	1110	(shell-command "unzip -o ~/.texcount/texcount.zip -d ~/.texcount")
JG	1111	(add-to-list 'exec-path "~/.texcount/texcount.pl"))
20e001	1112
df1744	1113	(if (not(or (file-exists-p "~/.texcount/texcount.pl") (file-exists-p "/usr/bin/texcount")))
0ba1ff	1114	(get-texcount-latest))
990949	1115
0ba1ff	1116	(defun texcount ()
JG	1117	(interactive)
	1118	(let*
	1119	( (this-file (buffer-file-name))
	1120	(enc-str (symbol-name buffer-file-coding-system))
	1121	(enc-opt
	1122	(cond
	1123	((string-match "utf-8" enc-str) "-utf8")
	1124	((string-match "latin" enc-str) "-latin1")
	1125	("-encoding=guess")
	1126	) )
	1127	(word-count
	1128	(with-output-to-string
	1129	(with-current-buffer standard-output
	1130	(call-process "texcount" nil t nil "-0" enc-opt this-file)
	1131	) ) ) )
	1132	(message word-count)
	1133	) )
	1134	(add-hook 'LaTeX-mode-hook (lambda () (define-key LaTeX-mode-map (kbd "C-c c") 'texcount)))
	1135	(add-hook 'latex-mode-hook (lambda () (define-key latex-mode-map (kbd "C-c c") 'texcount)))
	1136	#+END_SRC
990949	1137
C	1138	*** PlantUML
0ba1ff	1139	Sets the PlantUML path for the mode to generate models.
990949	1140	#+BEGIN_SRC emacs-lisp
bf794a	1141	(use-package plantuml-mode
JG	1142	:init
	1143	(cond ((eq system-type 'windows-nt)
1730fa	1144	(when (file-exists-p "c:/ProgramData/chocolatey/lib/plantuml/tools/plantuml.jar")
JG	1145	(setq plantuml-jar-path "c:/ProgramData/chocolatey/lib/plantuml/tools/plantuml.jar")
	1146	(setq planuml-default-exec-mode 'jar)))
bf794a	1147	((eq system-type 'gnu/linux)
1730fa	1148	(when (file-exists-p "/usr/share/java/plantuml/plantuml.jar")
JG	1149	(setq plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar")
	1150	(setq planuml-default-exec-mode 'jar)))))
990949	1151	#+END_SRC
C	1152
bf794a	1153	*** COMMENT Racket
990949	1154	**** Major mode
0ba1ff	1155	Set racket path in windows and enable racket mode.
990949	1156	#+BEGIN_SRC emacs-lisp
C	1157	(when (eq system-type 'windows-nt)
	1158	(add-to-list 'exec-path "c:/Program Files/Racket")
	1159	(setenv "PATH" (mapconcat #'identity exec-path path-separator)))
	1160
	1161	(use-package racket-mode
0c72fd	1162	:config
JG	1163	(autoload 'racket-mode "Racket" "Racket Editing Mode" t)
	1164	(add-to-list
	1165	'auto-mode-alist
	1166	'("\\.rkt$" . racket-mode)))
990949	1167	#+END_SRC
C	1168
08c6c1	1169	*** Verilog
baf326	1170	**** Get latest version
387766	1171	Use latest version from repositories.
baf326	1172	#+BEGIN_SRC emacs-lisp
c8124c	1173	(use-package verilog-mode
387766	1174	:pin gnu
c8124c	1175	:config
JG	1176	(autoload 'verilog-mode "verilog-mode" "Verilog mode" t )
3cfd40	1177	(add-to-list 'auto-mode-alist '("\\.[ds]?va?h?\\'" . verilog-mode))
JG	1178	(setq-default verilog-align-ifelse t
	1179	verilog-auto-delete-trailing-whitespace t
	1180	verilog-auto-inst-param-value t
	1181	verilog-auto-lineup 'all
	1182	verilog-auto-newline nil
	1183	verilog-auto-save-policy nil
	1184	verilog-auto-template-warn-unused t
	1185	verilog-auto-endcomments nil
	1186	verilog-highlight-grouping-keywords t
	1187	verilog-highlight-modules t
	1188	verilog-tab-to-comment t
	1189	verilog-indent-begin-after-if nil
	1190	verilog-indent-lists nil
	1191	verilog-case-indent 4
	1192	verilog-cexp-indent 0
	1193	verilog-indent-level 4
	1194	verilog-indent-level-behavioral 4
	1195	verilog-indent-level-declaration 4
	1196	verilog-indent-level-directive 4
	1197	verilog-indent-level-module 4))
990949	1198	#+END_SRC
3cfd40	1199	#+END_SRC
0ba1ff	1200	*** COMMENT MATLAB
49aa9f	1201	Mode for editing MATLAB m-files.
JG	1202	#+BEGIN_SRC emacs-lisp
0ba1ff	1203	(use-package matlab
JG	1204	:ensure matlab-mode
	1205	:config
	1206	(autoload 'matlab-mode "matlab" "Matlab Editing Mode" t)
	1207	(add-to-list
	1208	'auto-mode-alist
	1209	'("\\.m$" . matlab-mode))
	1210	(setq matlab-indent-function t)
	1211	(setq matlab-shell-command "matlab")
	1212	(matlab-cedet-setup))
49aa9f	1213	#+END_SRC
JG	1214
0ba1ff	1215	*** COMMENT MIPS
JG	1216	For editing MIPS assembly.
49aa9f	1217	#+BEGIN_SRC emacs-lisp
JG	1218	(use-package mips-mode
	1219	:mode "\\.mips$")
	1220	#+END_SRC
	1221
0ba1ff	1222	*** COMMENT IPython notebooks
60454d	1223	Allow emacs to view and use IPython notebooks
JG	1224	#+BEGIN_SRC emacs-lisp
0c72fd	1225	(use-package ein)
60454d	1226	#+END_SRC
JG	1227
22b4cd	1228	*** Rust
JG	1229	**** Major mode
	1230	Get the major mode for rust files.
	1231	#+BEGIN_SRC emacs-lisp
	1232	(use-package rust-mode
	1233	:config
	1234	;; style guide suggests spaces not tabs
	1235	(add-hook 'rust-mode-hook (lambda () (setq indent-tabs-mode nil)))
	1236	(setq rust-format-on-save t))
	1237
0c72fd	1238	(use-package toml-mode)
22b4cd	1239	#+END_SRC
JG	1240	**** Cargo integration
	1241	Integrate Cargo, rust's package manager.
	1242	#+BEGIN_SRC emacs-lisp
	1243	(use-package cargo
	1244	:hook
	1245	(rust-mode . cargo-minor-mode))
	1246	#+END_SRC
	1247	**** Flycheck
	1248	Linting with flycheck.
	1249	#+BEGIN_SRC emacs-lisp
	1250	(use-package flycheck-rust
	1251	:config
0d8394	1252	(add-hook 'flycheck-mode-hook #'flycheck-rust-setup))
22b4cd	1253	#+END_SRC
43cf1d	1254	*** Go
JG	1255	**** Major mode
22b4cd	1256	#+BEGIN_SRC emacs-lisp
43cf1d	1257	(use-package go-mode
JG	1258	:config
	1259	(add-hook 'before-save-hook #'gofmt-before-save))
	1260	#+END_SRC
	1261
	1262	**** Flycheck
	1263	#+BEGIN_SRC emacs-lisp
	1264	(use-package flycheck-golangci-lint
	1265	:config
	1266	(add-hook 'flycheck-mode-hook #'flycheck-golangci-lint-setup))
	1267	#+END_SRC
	1268	**** Company
	1269	#+BEGIN_SRC emacs-lisp
0c72fd	1270	(use-package company-go)
c8124c	1271	#+END_SRC
990949	1272	* Org mode
C	1273	** Up to date org
0ba1ff	1274	Pull the latest org mode from the repository, rather than the org which comes with emacs.
990949	1275	#+BEGIN_SRC emacs-lisp
0c72fd	1276	(use-package org
JG	1277	:ensure org-contrib)
990949	1278	#+END_SRC
8a38cc	1279
990949	1280	** Small tweaks
0ba1ff	1281	Small quality of life changes to org-mode.
990949	1282	#+BEGIN_SRC emacs-lisp
51fdbd	1283	(setq org-src-fontify-natively t
JG	1284	org-src-tab-acts-natively t
	1285	org-confirm-babel-evaluate nil
	1286	org-export-with-smart-quotes t
	1287	org-src-window-setup 'current-window)
	1288	(add-hook 'org-mode-hook 'org-indent-mode)
	1289	(diminish 'org-indent-mode)
	1290	(diminish 'visual-line-mode)
990949	1291	#+END_SRC
a428a2	1292	*** Spell checking for code and latex
JG	1293	#+BEGIN_SRC emacs-lisp
	1294	(add-to-list 'ispell-skip-region-alist '("#\\+BEGIN_SRC" . "#\\+END_SRC"))
	1295	(add-to-list 'ispell-skip-region-alist '("\\$" . "\\$"))
	1296	(add-to-list 'ispell-skip-region-alist '("\\$\\$" . "\\$\\$"))
	1297	#+END_SRC
8a38cc	1298
990949	1299	** Line wrapping
0ba1ff	1300	Enable line wrapping for long lines.
990949	1301	#+BEGIN_SRC emacs-lisp
C	1302	(add-hook 'org-mode-hook
bf794a	1303	'(lambda ()
JG	1304	(visual-line-mode 1)))
990949	1305	#+END_SRC
8a38cc	1306
d2a873	1307	** Fancy org points
0ba1ff	1308	Use bullets of different colours and styles instead of the "\\\*" to denote indentation levels.
990949	1309	#+BEGIN_SRC emacs-lisp
d2a873	1310	(use-package org-superstar
bf794a	1311	:config
d2a873	1312	(add-hook 'org-mode-hook (lambda () (org-superstar-mode 1))))
990949	1313	#+END_SRC
8a38cc	1314
990949	1315	** Org Babel
0ba1ff	1316	Allows the execution of code from within an org buffer.
JG	1317	Code output can also be input to the buffer.
990949	1318	*** Languages
0ba1ff	1319	Add a bunch of languages to org babel supported languages
990949	1320	#+BEGIN_SRC emacs-lisp
0c72fd	1321	(org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t)
JG	1322	(C . t)
	1323	(python . t)
	1324	(latex . t)
	1325	(scheme . t)
	1326	(gnuplot . t)
	1327	(matlab . t)
	1328	(fortran . t)
	1329	(java . t)
	1330	(plantuml . t)))
baf326	1331	#+END_SRC
C	1332
0ba1ff	1333	**** PlantUML path
JG	1334	Org uses its own path for some reason.
baf326	1335	#+BEGIN_SRC emacs-lisp
C	1336	(setq org-plantuml-jar-path plantuml-jar-path)
990949	1337	#+END_SRC
8a38cc	1338
5a75e4	1339	*** Async export
JG	1340	Allow the editing of files while execution of blocks is occurring.
	1341	Needs :async tag in src header.
	1342	#+BEGIN_SRC emacs-lisp
0c72fd	1343	(use-package ob-async)
5a75e4	1344	#+END_SRC
JG	1345
990949	1346	** Latex preview fragments match colour
C	1347	Make the previews match theme colour of Emacs.
0ba1ff	1348	Gets very annoying very quickly without it.
990949	1349	#+BEGIN_SRC emacs-lisp
C	1350	(let ((dvipng--plist (alist-get 'dvipng org-preview-latex-process-alist)))
	1351	(plist-put dvipng--plist :use-xcolor t)
	1352	(plist-put dvipng--plist :image-converter '("dvipng -D %D -T tight -o %O %f")))
	1353	#+END_SRC
bf794a	1354
0ba1ff	1355	** Org export additions
f552a0	1356	*** Pandoc
0ba1ff	1357	Call pandoc on org buffer from org export.
f552a0	1358	Need to add ~#+OPTIONS: H:99~ to enable large level header exports.
0ba1ff	1359	#+BEGIN_SRC emacs-lisp
0c72fd	1360	(use-package ox-pandoc)
0ba1ff	1361	#+END_SRC
JG	1362
	1363	*** COMMENT Dokuwiki Wiki
	1364	Allow export to dokuwiki markup from org.
	1365	#+BEGIN_SRC emacs-lisp
0c72fd	1366	(use-package ox-wk)
0ba1ff	1367	#+END_SRC
JG	1368
	1369	* COMMENT EMMS
be9cff	1370	Emacs media manager.
0ba1ff	1371	I come back to it every now and again as an MPD front-end, but haven't quite gotten the hang of it.
be9cff	1372	#+BEGIN_SRC emacs-lisp
JG	1373	(use-package emms-setup
	1374	:ensure emms
	1375	:init
	1376	(add-to-list 'load-path "~/elisp/emms/")
	1377	:config
	1378	(emms-all)
	1379	(emms-default-players)
	1380	(setq emms-source-file-directory "~/Music/"))
	1381	#+END_SRC
	1382
a428a2	1383	* COMMENT Org Blog
0ba1ff	1384	I use org to write my blog and use org-static-blog to generate the HTML.
be9cff	1385	** Org static blog config
0ba1ff	1386	Basic configuration for site.
JG	1387	Copied and modified from the example configuration.
be9cff	1388	#+BEGIN_SRC emacs-lisp
1005e3	1389	(use-package org-static-blog
JG	1390	:config
	1391	(setq org-static-blog-publish-title "Joel's Site")
	1392	(setq org-static-blog-publish-url "https://blog.joelg.cf/")
	1393	(setq org-static-blog-publish-directory "/backup/home/joel/Downloads/Chizi123.github.io/")
	1394	(setq org-static-blog-posts-directory "/backup/home/joel/Downloads/Chizi123.github.io/posts/")
	1395	(setq org-static-blog-drafts-directory "/backup/home/joel/Downloads/Chizi123.github.io/drafts/")
	1396	(setq org-static-blog-enable-tags t)
	1397	(setq org-export-with-toc nil)
	1398	(setq org-export-with-section-numbers nil)
be9cff	1399
1005e3	1400	;; This header is inserted into the <head> section of every page:
JG	1401	;; (you will need to create the style sheet at
	1402	;; ~/projects/blog/static/style.css
	1403	;; and the favicon at
	1404	;; ~/projects/blog/static/favicon.ico)
	1405	(setq org-static-blog-page-header
	1406	"<meta name=\"author\" content=\"Joel Grunbaum\">
0ba1ff	1407	<meta name=\"referrer\" content=\"no-referrer\">
JG	1408	<link href= \"static/style.css\" rel=\"stylesheet\" type=\"text/css\" />
	1409	<link rel=\"icon\" href=\"static/favicon.png\">
	1410	<script async src=\"https://www.googletagmanager.com/gtag/js?id=UA-147303155-2\"></script>
	1411	<script>
	1412	window.dataLayer = window.dataLayer \|\| [];
	1413	function gtag(){dataLayer.push(arguments);}
	1414	gtag('js', new Date());
	1415	gtag('config', 'UA-147303155-2');
	1416	</script>
	1417	")
be9cff	1418
1005e3	1419	;; This preamble is inserted at the beginning of the <body> of every page:
JG	1420	;; This particular HTML creates a <div> with a simple linked headline
	1421	(setq org-static-blog-page-preamble
	1422	"<div class=\"header\">
0ba1ff	1423	<a href=\"https://blog.joelg.cf\">Joel's Site - Personal site and constant work in progress</a>
JG	1424	<div class=\"sitelinks\">
	1425	<a href=\"https://blog.joelg.cf/about-me.html\">About Me</a> \|
	1426	<a href=\"https://github.com/Chizi123\">Github</a> \|
	1427	<a href=\"https://facebook.com/joel.grun.5\">Facebook</a>
	1428	</div>
	1429	</div>")
	1430
1005e3	1431	;; This postamble is inserted at the end of the <body> of every page:
JG	1432	;; This particular HTML creates a <div> with a link to the archive page
	1433	;; and a licensing stub.
	1434	(setq org-static-blog-page-postamble
	1435	"<div id=\"archive\">
0ba1ff	1436	<a href=\"https://blog.joelg.cf/archive.html\">Other posts</a>
be9cff	1437	</div>
0ba1ff	1438	<br>
1005e3	1439	<center><button id=\"disqus_button\" onclick=\"load_disqus()\">Load Disqus Comments</button></center>
JG	1440	<div id=\"disqus_thread\"></div>
	1441	<script type=\"text/javascript\">
	1442	function load_disqus() {
	1443	var dsq = document.createElement('script');
	1444	dsq.type = 'text/javascript';
	1445	dsq.async = true;
	1446	dsq.src = 'https://joelg-cf.disqus.com/embed.js';
	1447	(document.getElementsByTagName('head')[0] \|\| document.getElementsByTagName('body')[0]).appendChild(dsq);
	1448	document.getElementById('disqus_button').style.visibility = 'hidden';
	1449	};
	1450	</script>"))
be9cff	1451	#+END_SRC
JG	1452
0ba1ff	1453	** Sitemap addition
JG	1454	Creates a sitemap.xml for the blog based on the generated HTML files output in the final directory.
	1455	#+BEGIN_SRC emacs-lisp
	1456	(defun blog-publish()
	1457	(interactive)
	1458	(org-static-blog-publish)
	1459	(setq n 0)
	1460	(setq site "https://blog.joelg.cf/")
	1461	(setq posts (directory-files org-static-blog-publish-directory))
	1462	(generate-new-buffer "sitemap.xml.gen")
	1463	(with-current-buffer "sitemap.xml.gen" (insert "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<urlset xmlns=\"http://www.sitemaps.org/schemas/sitemap/0.9\">\n"))
	1464	(while (< n (length (directory-files org-static-blog-publish-directory)))
	1465	(setq curr (nth n posts))
	1466	(if (string-match "\$html\$" curr)
	1467	(if (string-match "index.html" curr)
	1468	(with-current-buffer "sitemap.xml.gen" (insert (concat "\t<url>\n\t\t<loc>" site "</loc>\n\t</url>\n")))
	1469	(with-current-buffer "sitemap.xml.gen" (insert (concat "\t<url>\n\t\t<loc>" site curr "</loc>\n\t</url>\n")))))
	1470	(setq n (1+ n)))
	1471	(with-current-buffer "sitemap.xml.gen" (insert "</urlset>"))
	1472	(with-current-buffer "sitemap.xml.gen" (write-region (point-min) (point-max) (concat org-static-blog-publish-directory "sitemap.xml")) t)
	1473	(kill-buffer "sitemap.xml.gen"))
	1474	#+END_SRC
	1475
be9cff	1476	** Emacs-htmlize
0ba1ff	1477	Allow org features to be exported to HTML for site.
be9cff	1478	#+BEGIN_SRC emacs-lisp
JG	1479	(use-package htmlize
0b5a77	1480	:defer t)
be9cff	1481	#+END_SRC
0ba1ff	1482
51fdbd	1483	* COMMENT Journaling
a428a2	1484	** Noteworthy entries
JG	1485	I write weekly journal entries recapping my week.
	1486	These files are in org mode.
	1487	This is inspired by org-static-blog.
	1488	#+BEGIN_SRC emacs-lisp
	1489	(defun journal-create-new-post ()
0c72fd	1490	"Create a new entry, prompt for title and insert header"
a428a2	1491	(interactive)
JG	1492	(let ((title (read-string "Title: ")))
	1493	(find-file (concat "~/Documents/Journal/entry/"
	1494	(read-string "Filename: "
	1495	(concat (format-time-string "%Y-%m-%d-" (current-time))
	1496	(replace-regexp-in-string "\s" "-" (downcase title))
	1497	".org"))))
	1498	(insert "#+title: " title "\n"
	1499	"#+date: " (format-time-string "<%Y-%m-%d %H:%M>") "\n"
	1500	"#+filetags: ")))
	1501	#+END_SRC
	1502	*** Publish entries
	1503	Use org-publish to collate entries into a single unit.
	1504	#+BEGIN_SRC emacs-lisp
	1505	(setq org-publish-project-alist
0c72fd	1506	'(("Journal"
JG	1507	:base-directory "~/Documents/Journal/entry/"
	1508	:publishing-directory "~/Documents/Journal/out/"
	1509	:publishing-function org-html-publish-to-html
	1510	;;:htmlized-source t
	1511	:section-numbers nil
	1512	:html-preamble t
	1513	:html-validation-link nil
0a6cd2	1514
0c72fd	1515	:auto-sitemap t
JG	1516	:sitemap-sort-files anti-chronologically
	1517	:sitemap-file-entry-format "%d - %t"
	1518	:sitemap-title "Home"
	1519	:sitemap-filename "index.html"
	1520	:sitemap-function org-publish-sitemap)))
5a75e4	1521	#+END_SRC