.emacs.d.git - Gitblit

Gerrit interation isn't great and the package is unmaintained

Joel Grunbaum

2022-01-01 533a0cf5f9c55443ec3a17af2232f3397be247d6

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
c0c15b	707
JG	708	** Auto revert mode
	709	Update unchanged buffers if underlying file changes.
	710	#+BEGIN_SRC emacs-lisp
	711	(global-auto-revert-mode)
	712	#+END_SRC
990949	713	* Mode line tweaks
C	714	Diminish is used but is included in init.el such that it can be used throughout this document
	715	** Spaceline
0ba1ff	716	A little easier to read than the default emacs mode line.
990949	717	#+BEGIN_SRC emacs-lisp
0c72fd	718	(use-package spaceline
JG	719	:config
	720	(require 'spaceline-config)
	721	(setq spaceline-buffer-encoding-abbrev-p t)
	722	(setq spaceline-line-column-p t)
	723	(setq spaceline-line-p t)
	724	(setq powerline-default-separator (quote arrow))
	725	(spaceline-spacemacs-theme)
	726	(spaceline-helm-mode))
990949	727	#+END_SRC
8a38cc	728
1005e3	729	*** Separator
JG	730	Slightly nicer separator.
	731	#+BEGIN_SRC emacs-lisp
0c72fd	732	(setq powerline-default-separator nil)
1005e3	733	#+END_SRC
JG	734
0c962c	735	** Nyan mode
JG	736	Use nyan cat as a reference for buffer progression.
	737	#+BEGIN_SRC emacs-lisp
	738	(use-package nyan-mode
	739	:config
	740	(nyan-mode 1))
	741	#+END_SRC
	742
990949	743	* Programming tweaks
C	744	** Yasnippet
0ba1ff	745	Add snippets, pretty useful.
JG	746	Manually added snippets are in ~/.emacs.d/snippets/{mode}.
990949	747	#+BEGIN_SRC emacs-lisp
bf794a	748	(use-package yasnippet
JG	749	:diminish yas-minor-mode
	750	:config
	751	(yas-global-mode 1))
0b5a77	752
JG	753	(use-package yasnippet-snippets
	754	:after yasnippet)
990949	755	#+END_SRC
0ba1ff	756	** Flycheck
JG	757	Basic linter. Works pretty well.
990949	758	#+BEGIN_SRC emacs-lisp
8a38cc	759	(use-package flycheck
C	760	:diminish flycheck-mode
	761	:config
	762	(global-flycheck-mode))
990949	763	#+END_SRC
0ba1ff	764	*** flycheck-pos-tip
JG	765	Add suggestions at the cursor.
990949	766	#+BEGIN_SRC emacs-lisp
0c72fd	767	(use-package flycheck-pos-tip
JG	768	:after flycheck
	769	:config
	770	(flycheck-pos-tip-mode))
990949	771	#+END_SRC
C	772	** Company
0ba1ff	773	Company is auto-complete for Emacs.
JG	774	Uses various backends, more of which are added later.
990949	775	#+BEGIN_SRC emacs-lisp
C	776	(use-package company
	777	:diminish company-mode
	778	:config
	779	(global-company-mode)
	780	(setq company-idle-delay 0)
e0a5d8	781	(setq company-minimum-prefix-length 1))
990949	782	#+END_SRC
8a38cc	783
e92017	784	** LSP Mode
3f2799	785	Use LSP for completion suggestions.
JG	786	Causes too much memory usage, need to debug.
0d8394	787	Need to generate ~compile_flags~ for c/c++, can use ~bear~ but may need other tools.
c8124c	788	#+BEGIN_SRC emacs-lisp
JG	789	(use-package lsp-mode
0b5a77	790	:hook (((c-mode
0d8394	791	c++-mode
0b5a77	792	tex-mode
JG	793	latex-mode
	794	TeX-mode
	795	LaTeX-mode
	796	rust-mode
	797	sh-mode
3cfd40	798	;; verilog-mode
43cf1d	799	go-mode) . lsp))
c8124c	800	:init
JG	801	(setq lsp-keymap-prefix "C-c l")
	802	:commands lsp
	803	:config
4b91a3	804	(add-hook 'lsp-mode-hook 'lsp-enable-which-key-integration)
c8124c	805	(setq read-process-output-max (* 1024 1024))
f0bf38	806	(setq lsp-completion-provider :capf)
83addc	807	(setq lsp-keep-workspace-alive 'nil)
f0bf38	808	(add-to-list 'exec-path "~/.cargo/bin"))
e56895	809
c8124c	810	(use-package lsp-ui
JG	811	:commands lsp-ui-mode)
e56895	812
c8124c	813	(use-package helm-lsp
JG	814	:commands helm-lsp-workspace-symbol)
	815	#+END_SRC
0b5a77	816
da7a13	817	** Version control
JG	818	Settings for emacs' own version control system.
	819	*** Enable version control on the mode line
	820	#+BEGIN_SRC emacs-lisp
	821	(vc-mode)
	822	#+END_SRC
0b5a77	823
990949	824	** Magit
0ba1ff	825	Emacs git client.
JG	826	Pretty good and offers fairly decent features.
990949	827	#+BEGIN_SRC emacs-lisp
0c72fd	828	(use-package magit
JG	829	:commands magit-get-top-dir
	830	:bind ("C-x g" . magit-status)
	831	:init
	832	(progn
	833	;; make magit status go full-screen but remember previous window
	834	;; settings
	835	;; from: http://whattheemacsd.com/setup-magit.el-01.html
	836	(defadvice magit-status (around magit-fullscreen activate)
	837	(window-configuration-to-register :magit-fullscreen)
	838	ad-do-it
	839	(delete-other-windows))
	840
	841	;; Close popup when committing - this stops the commit window
	842	;; hanging around
	843	;; From: http://git.io/rPBE0Q
	844	(defadvice git-commit-commit (after delete-window activate)
	845	(delete-window))
	846
	847	(defadvice git-commit-abort (after delete-window activate)
	848	(delete-window))
	849
	850	:config
990949	851	(progn
0c72fd	852	;; restore previously hidden windows
JG	853	(defadvice magit-quit-window (around magit-restore-screen activate)
	854	(let ((current-mode major-mode))
	855	ad-do-it
	856	;; we only want to jump to register when the last seen buffer
	857	;; was a magit-status buffer.
	858	(when (eq 'magit-status-mode current-mode)
	859	(jump-to-register :magit-fullscreen)))))
990949	860
0c72fd	861	;; magit settings
JG	862	(setq
	863	;; don't put "origin-" in front of new branch names by default
	864	magit-default-tracking-name-function 'magit-default-tracking-name-branch-only
	865	;; open magit status in same window as current buffer
	866	magit-status-buffer-switch-function 'switch-to-buffer
	867	;; highlight word/letter changes in hunk diffs
	868	magit-diff-refine-hunk t
	869	;; ask me if I want to include a revision when rewriting
	870	magit-rewrite-inclusive 'ask
	871	;; ask me to save buffers
	872	magit-save-some-buffers t
	873	;; pop the process buffer if we're taking a while to complete
	874	magit-process-popup-time 10
	875	;; ask me if I want a tracking upstream
	876	magit-set-upstream-on-push 'askifnotset
	877	))
	878	)
5324d5	879	#+END_SRC
JG	880
	881	*** More general yes and no prompt
	882	The default setting can miss some.
	883	Don't redefine the regex in case this is too general.
	884	#+BEGIN_SRC emacs-lisp
	885	;;(when-let ((regex "[\[$]]?\\([Yy]\\(es\$?\\)[/\|]\$[Nn]o?\$[\]\)]")
	886	(defun magit-process-general-yn-prompt-hook (proc str)
	887	"Handle [y/n] prompts"
	888	(when-let ((beg (string-match "[\[$]]?\\([Yy]\\(es\$?\\)[/\|]\$[Nn]o?\$[\]\)]" str)))
	889	(let ;; ((max-mini-window-height 30))
	890	(process-send-string
	891	proc
	892	(downcase
	893	(concat
	894	(match-string
	895	(if (save-match-data
	896	(magit-process-kill-on-abort proc
0c72fd	897	(y-or-n-p (substring str 0 beg)))) 1 2)
5324d5	898	str)
JG	899	"\n"))))))
	900
	901	(add-hook 'magit-process-prompt-functions
	902	#'magit-process-general-yn-prompt-hook)
	903	#+END_SRC
533a0c	904	*** COMMENT Gerrit integration
5324d5	905	Gerrit takes ~origin:refs/for/master~ as a destination.
JG	906	Enable magit to work with its oddities.
	907	#+BEGIN_SRC emacs-lisp
0c72fd	908	(use-package magit-gerrit)
990949	909	#+END_SRC
8a38cc	910
990949	911	** CEDET
51fdbd	912	*** COMMENT Semantic
0ba1ff	913	Parser library for code, supports many other packages.
0b5a77	914	Allows emacs to be more aware of what is being written.
990949	915	#+BEGIN_SRC emacs-lisp
C	916	(use-package semantic
0b5a77	917	:hook (prog-mode . semantic-mode)
990949	918	:config
C	919	(global-semanticdb-minor-mode 1)
	920	(global-semantic-idle-scheduler-mode 1)
	921	(global-semantic-idle-summary-mode 1)
	922	(semantic-mode 1))
	923	#+END_SRC
8a38cc	924
a428a2	925	*** COMMENT EDE
0ba1ff	926	Emacs Development Environment.
JG	927	Can be used to manage and create build files for a project.
990949	928	#+BEGIN_SRC emacs-lisp
0c72fd	929	(use-package ede
JG	930	:config
	931	(global-ede-mode t))
990949	932	#+END_SRC
8a38cc	933
990949	934	*** gdb-many-windows
0ba1ff	935	Enhances the use of GDB in emacs.
JG	936	Shows register contents, variable contents and others in addition to GDB shell.
	937	Also shows source code while debugging.
990949	938	#+BEGIN_SRC emacs-lisp
0c72fd	939	(setq
JG	940	gdb-many-windows t
	941	gdb-show-main t)
990949	942	#+END_SRC
8a38cc	943
0ba1ff	944	*** COMMENT Semantic refactor
JG	945	Trying to get this to work.
	946	Should help to refactor file.
990949	947	#+BEGIN_SRC emacs-lisp
0ba1ff	948	(use-package srefactor
JG	949	:bind (("M-RET o" . 'srefactor-lisp-one-line)
0c72fd	950	("M-RET m" . 'srefactor-lisp-format-sexp)
JG	951	("M-RET d" . 'srefactor-lisp-format-defun)
	952	("M-RET b" . 'srefactor-lisp-format-buffer)
	953	:map c-mode-base-map
	954	("M-RET" . 'srefactor-refactor-at-point)
	955	:map c++-mode-map
	956	("M-RET" . 'srefactor-refactor-at-point)))
990949	957	#+END_SRC
8a38cc	958
990949	959	** Language specific configs
C	960	*** C/C++
8dba69	961	**** Flycheck
JG	962	***** Flycheck clang
0ba1ff	963	Add the clang backend for linting.
990949	964	#+BEGIN_SRC emacs-lisp
0b5a77	965	(use-package flycheck-clang-analyzer
JG	966	:after flycheck
	967	:config
	968	(with-eval-after-load 'flycheck
	969	(require 'flycheck-clang-analyzer)
0c72fd	970	(flycheck-clang-analyzer-setup)))
990949	971	#+END_SRC
8dba69	972	***** Flycheck project root
JG	973	Flycheck tends to fail finding the project root, giving errors about missing files.
	974	This should remove them.
	975	#+BEGIN_SRC emacs-lisp
	976	(defun setup-flycheck-project-path ()
	977	(let ((root (ignore-errors (projectile-project-root))))
	978	(when root
	979	(add-to-list
	980	(make-variable-buffer-local 'flycheck-clang-include-path)
	981	root)
	982	(add-to-list
	983	(make-variable-buffer-local 'flycheck-gcc-include-path)
	984	root))))
	985
	986	(add-hook 'c-mode-hook 'setup-flycheck-project-path)
	987	(add-hook 'c++-mode-hook 'setup-flycheck-project-path)
	988	#+END_SRC
cf3d41	989	**** COMMENT Company
0ba1ff	990	Add header completion as well as Irony, which uses clang for suggestions.
990949	991	#+BEGIN_SRC emacs-lisp
C	992	(use-package company-c-headers
0c72fd	993	:after company
JG	994	:config
	995	(add-hook 'c++-mode-hook 'company-mode)
	996	(add-hook 'c-mode-hook 'company-mode))
51fdbd	997	#+END_SRC
JG	998	**** COMMENT Irony
	999	#+BEGIN_SRC emacs-lisp
	1000	(use-package irony
	1001	:init
	1002	(setq w32-pipe-read-delay 0)
	1003	(setq irony-server-w32-pipe-buffer-size (* 64 1024))
	1004	(add-hook 'c++-mode-hook 'irony-mode)
	1005	(add-hook 'c-mode-hook 'irony-mode)
	1006	(add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options)
	1007	(add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options))
990949	1008
51fdbd	1009	(use-package company-irony
JG	1010	:after irony
	1011	:config
	1012	(add-to-list 'company-backends '(company-c-headers
	1013	company-dabbrev-code
	1014	company-irony)))
990949	1015	#+END_SRC
545e6d	1016	**** Clang-format
27d33b	1017	Automatically format buffer on save.
JG	1018	#+BEGIN_SRC emacs-lisp
0c72fd	1019	(defun set-clang-format-style ()
JG	1020	(if (file-exists-p (concat
	1021	(projectile-project-root)
	1022	".clang-format"))
	1023	(setq-local clang-format-style nil)
	1024	(setq-local clang-format-style (concat "{BasedOnStyle: LLVM,"
	1025	"IndentWidth: " (format "%s" tab-width) ","
	1026	"UseTab: " (if (eq indent-tabs-mode nil)
	1027	"Never"
	1028	"AlignWithSpaces")
	1029	","
	1030	"BreakBeforeBraces: Linux,"
	1031	"AllowShortIfStatementsOnASingleLine: false,"
	1032	"IndentCaseLabels: false}"))))
aa97b3	1033
0c72fd	1034	(use-package clang-format
JG	1035	:hook (c-mode-common . (set-clang-format-style)))
aa97b3	1036
0c72fd	1037	;; (defun clang-format-on-save ()
JG	1038	;; (add-hook 'before-save-hook 'clang-format-buffer nil t))
	1039	;; (add-hook 'c-mode-hook 'clang-format-on-save nil t)
	1040	;; (add-hook 'c++-mode-hook 'clang-format-on-save nil t))
27d33b	1041	#+END_SRC
990949	1042	*** emacs-lisp
545e6d	1043	**** COMMENT Company
0ba1ff	1044	Add slime backend.
990949	1045	#+BEGIN_SRC emacs-lisp
0c72fd	1046	(add-hook 'emacs-lisp-mode-hook 'company-mode)
990949	1047
0c72fd	1048	(use-package slime
JG	1049	:config
	1050	(setq inferior-lisp-program "/usr/bin/sbcl")
	1051	(setq slime-contribs '(slime-fancy)))
990949	1052
0c72fd	1053	(use-package slime-company
JG	1054	:init
990949	1055	(require 'company)
C	1056	(slime-setup '(slime-fancy slime-company)))
	1057	#+END_SRC
8a38cc	1058
bf794a	1059	*** COMMENT x86
990949	1060	**** x86-lookup
0ba1ff	1061	Look up reference PDF. Use Intel manual.
990949	1062	#+BEGIN_SRC emacs-lisp
0c72fd	1063	(use-package x86-lookup
JG	1064	:init
	1065	(setq x86-lookup-pdf "D:/Coding/x86-instructions.pdf")
	1066	:bind ("C-h x" . x86-lookup))
990949	1067	#+END_SRC
8a38cc	1068
990949	1069	*** Latex
C	1070	**** AucTex
0ba1ff	1071	AucTex contains many additions to make tex editing good.
990949	1072	#+BEGIN_SRC emacs-lisp
20e001	1073	(use-package tex
C	1074	:ensure auctex
	1075	:config
0b5a77	1076	(setq TeX-auto-save t
JG	1077	TeX-parse-self t
	1078	TeX-view-program-selection '((output-pdf "PDF Tools"))
20e001	1079	TeX-source-correlate-start-server t)
C	1080	(add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer))
990949	1081	#+END_SRC
8a38cc	1082
990949	1083	**** Company
0ba1ff	1084	Help company complete tex math and references.
990949	1085	#+BEGIN_SRC emacs-lisp
C	1086	(use-package company-math
	1087	:after company
	1088	:config
1005e3	1089	(add-to-list 'company-backends '(company-math-symbols-unicode company-math-symbols-latex
0c72fd	1090	company-latex-commands))
1005e3	1091	(setq company-math-allow-latex-symbols-in-faces t))
990949	1092
C	1093	(use-package company-reftex
	1094	:after company
	1095	:config
1005e3	1096	(add-to-list 'company-backends 'company-reftex-citations))
990949	1097
C	1098	(use-package company-auctex
	1099	:after company
	1100	:config
	1101	(company-auctex-init))
	1102
	1103	(use-package company-bibtex
	1104	:after company
	1105	(add-to-list 'company-backends 'company-bibtex))
	1106	#+END_SRC
8a38cc	1107
bf794a	1108	**** TeXcount
0ba1ff	1109	Word counts in latex.
JG	1110	Uses a Perl script.
	1111	#+BEGIN_SRC emacs-lisp
	1112	(defun get-texcount-latest()
	1113	(if (not(file-directory-p "~/.texcount"))
	1114	(make-directory "~/.texcount"))
fb9b1b	1115	(url-copy-file "https://app.uio.no/ifi/texcount/download.php?file=texcount_3_2_0_41.zip" "~/.texcount/texcount.zip" 1)
0ba1ff	1116	(shell-command "unzip -o ~/.texcount/texcount.zip -d ~/.texcount")
JG	1117	(add-to-list 'exec-path "~/.texcount/texcount.pl"))
20e001	1118
df1744	1119	(if (not(or (file-exists-p "~/.texcount/texcount.pl") (file-exists-p "/usr/bin/texcount")))
0ba1ff	1120	(get-texcount-latest))
990949	1121
0ba1ff	1122	(defun texcount ()
JG	1123	(interactive)
	1124	(let*
	1125	( (this-file (buffer-file-name))
	1126	(enc-str (symbol-name buffer-file-coding-system))
	1127	(enc-opt
	1128	(cond
	1129	((string-match "utf-8" enc-str) "-utf8")
	1130	((string-match "latin" enc-str) "-latin1")
	1131	("-encoding=guess")
	1132	) )
	1133	(word-count
	1134	(with-output-to-string
	1135	(with-current-buffer standard-output
	1136	(call-process "texcount" nil t nil "-0" enc-opt this-file)
	1137	) ) ) )
	1138	(message word-count)
	1139	) )
	1140	(add-hook 'LaTeX-mode-hook (lambda () (define-key LaTeX-mode-map (kbd "C-c c") 'texcount)))
	1141	(add-hook 'latex-mode-hook (lambda () (define-key latex-mode-map (kbd "C-c c") 'texcount)))
	1142	#+END_SRC
990949	1143
C	1144	*** PlantUML
0ba1ff	1145	Sets the PlantUML path for the mode to generate models.
990949	1146	#+BEGIN_SRC emacs-lisp
bf794a	1147	(use-package plantuml-mode
JG	1148	:init
	1149	(cond ((eq system-type 'windows-nt)
1730fa	1150	(when (file-exists-p "c:/ProgramData/chocolatey/lib/plantuml/tools/plantuml.jar")
JG	1151	(setq plantuml-jar-path "c:/ProgramData/chocolatey/lib/plantuml/tools/plantuml.jar")
	1152	(setq planuml-default-exec-mode 'jar)))
bf794a	1153	((eq system-type 'gnu/linux)
1730fa	1154	(when (file-exists-p "/usr/share/java/plantuml/plantuml.jar")
JG	1155	(setq plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar")
	1156	(setq planuml-default-exec-mode 'jar)))))
990949	1157	#+END_SRC
C	1158
bf794a	1159	*** COMMENT Racket
990949	1160	**** Major mode
0ba1ff	1161	Set racket path in windows and enable racket mode.
990949	1162	#+BEGIN_SRC emacs-lisp
C	1163	(when (eq system-type 'windows-nt)
	1164	(add-to-list 'exec-path "c:/Program Files/Racket")
	1165	(setenv "PATH" (mapconcat #'identity exec-path path-separator)))
	1166
	1167	(use-package racket-mode
0c72fd	1168	:config
JG	1169	(autoload 'racket-mode "Racket" "Racket Editing Mode" t)
	1170	(add-to-list
	1171	'auto-mode-alist
	1172	'("\\.rkt$" . racket-mode)))
990949	1173	#+END_SRC
C	1174
08c6c1	1175	*** Verilog
baf326	1176	**** Get latest version
387766	1177	Use latest version from repositories.
baf326	1178	#+BEGIN_SRC emacs-lisp
c8124c	1179	(use-package verilog-mode
387766	1180	:pin gnu
c8124c	1181	:config
JG	1182	(autoload 'verilog-mode "verilog-mode" "Verilog mode" t )
3cfd40	1183	(add-to-list 'auto-mode-alist '("\\.[ds]?va?h?\\'" . verilog-mode))
JG	1184	(setq-default verilog-align-ifelse t
	1185	verilog-auto-delete-trailing-whitespace t
	1186	verilog-auto-inst-param-value t
	1187	verilog-auto-lineup 'all
	1188	verilog-auto-newline nil
	1189	verilog-auto-save-policy nil
	1190	verilog-auto-template-warn-unused t
	1191	verilog-auto-endcomments nil
	1192	verilog-highlight-grouping-keywords t
	1193	verilog-highlight-modules t
	1194	verilog-tab-to-comment t
	1195	verilog-indent-begin-after-if nil
	1196	verilog-indent-lists nil
	1197	verilog-case-indent 4
	1198	verilog-cexp-indent 0
	1199	verilog-indent-level 4
	1200	verilog-indent-level-behavioral 4
	1201	verilog-indent-level-declaration 4
	1202	verilog-indent-level-directive 4
	1203	verilog-indent-level-module 4))
990949	1204	#+END_SRC
3cfd40	1205	#+END_SRC
0ba1ff	1206	*** COMMENT MATLAB
49aa9f	1207	Mode for editing MATLAB m-files.
JG	1208	#+BEGIN_SRC emacs-lisp
0ba1ff	1209	(use-package matlab
JG	1210	:ensure matlab-mode
	1211	:config
	1212	(autoload 'matlab-mode "matlab" "Matlab Editing Mode" t)
	1213	(add-to-list
	1214	'auto-mode-alist
	1215	'("\\.m$" . matlab-mode))
	1216	(setq matlab-indent-function t)
	1217	(setq matlab-shell-command "matlab")
	1218	(matlab-cedet-setup))
49aa9f	1219	#+END_SRC
JG	1220
0ba1ff	1221	*** COMMENT MIPS
JG	1222	For editing MIPS assembly.
49aa9f	1223	#+BEGIN_SRC emacs-lisp
JG	1224	(use-package mips-mode
	1225	:mode "\\.mips$")
	1226	#+END_SRC
	1227
0ba1ff	1228	*** COMMENT IPython notebooks
60454d	1229	Allow emacs to view and use IPython notebooks
JG	1230	#+BEGIN_SRC emacs-lisp
0c72fd	1231	(use-package ein)
60454d	1232	#+END_SRC
JG	1233
22b4cd	1234	*** Rust
JG	1235	**** Major mode
	1236	Get the major mode for rust files.
	1237	#+BEGIN_SRC emacs-lisp
	1238	(use-package rust-mode
	1239	:config
	1240	;; style guide suggests spaces not tabs
	1241	(add-hook 'rust-mode-hook (lambda () (setq indent-tabs-mode nil)))
	1242	(setq rust-format-on-save t))
	1243
0c72fd	1244	(use-package toml-mode)
22b4cd	1245	#+END_SRC
JG	1246	**** Cargo integration
	1247	Integrate Cargo, rust's package manager.
	1248	#+BEGIN_SRC emacs-lisp
	1249	(use-package cargo
	1250	:hook
	1251	(rust-mode . cargo-minor-mode))
	1252	#+END_SRC
	1253	**** Flycheck
	1254	Linting with flycheck.
	1255	#+BEGIN_SRC emacs-lisp
	1256	(use-package flycheck-rust
	1257	:config
0d8394	1258	(add-hook 'flycheck-mode-hook #'flycheck-rust-setup))
22b4cd	1259	#+END_SRC
43cf1d	1260	*** Go
JG	1261	**** Major mode
22b4cd	1262	#+BEGIN_SRC emacs-lisp
43cf1d	1263	(use-package go-mode
JG	1264	:config
	1265	(add-hook 'before-save-hook #'gofmt-before-save))
	1266	#+END_SRC
	1267
	1268	**** Flycheck
	1269	#+BEGIN_SRC emacs-lisp
	1270	(use-package flycheck-golangci-lint
	1271	:config
	1272	(add-hook 'flycheck-mode-hook #'flycheck-golangci-lint-setup))
	1273	#+END_SRC
	1274	**** Company
	1275	#+BEGIN_SRC emacs-lisp
0c72fd	1276	(use-package company-go)
c8124c	1277	#+END_SRC
990949	1278	* Org mode
C	1279	** Up to date org
0ba1ff	1280	Pull the latest org mode from the repository, rather than the org which comes with emacs.
990949	1281	#+BEGIN_SRC emacs-lisp
0c72fd	1282	(use-package org
JG	1283	:ensure org-contrib)
990949	1284	#+END_SRC
8a38cc	1285
990949	1286	** Small tweaks
0ba1ff	1287	Small quality of life changes to org-mode.
990949	1288	#+BEGIN_SRC emacs-lisp
51fdbd	1289	(setq org-src-fontify-natively t
JG	1290	org-src-tab-acts-natively t
	1291	org-confirm-babel-evaluate nil
	1292	org-export-with-smart-quotes t
	1293	org-src-window-setup 'current-window)
	1294	(add-hook 'org-mode-hook 'org-indent-mode)
	1295	(diminish 'org-indent-mode)
	1296	(diminish 'visual-line-mode)
990949	1297	#+END_SRC
a428a2	1298	*** Spell checking for code and latex
JG	1299	#+BEGIN_SRC emacs-lisp
	1300	(add-to-list 'ispell-skip-region-alist '("#\\+BEGIN_SRC" . "#\\+END_SRC"))
	1301	(add-to-list 'ispell-skip-region-alist '("\\$" . "\\$"))
	1302	(add-to-list 'ispell-skip-region-alist '("\\$\\$" . "\\$\\$"))
	1303	#+END_SRC
8a38cc	1304
990949	1305	** Line wrapping
0ba1ff	1306	Enable line wrapping for long lines.
990949	1307	#+BEGIN_SRC emacs-lisp
C	1308	(add-hook 'org-mode-hook
bf794a	1309	'(lambda ()
JG	1310	(visual-line-mode 1)))
990949	1311	#+END_SRC
8a38cc	1312
d2a873	1313	** Fancy org points
0ba1ff	1314	Use bullets of different colours and styles instead of the "\\\*" to denote indentation levels.
990949	1315	#+BEGIN_SRC emacs-lisp
d2a873	1316	(use-package org-superstar
bf794a	1317	:config
d2a873	1318	(add-hook 'org-mode-hook (lambda () (org-superstar-mode 1))))
990949	1319	#+END_SRC
8a38cc	1320
990949	1321	** Org Babel
0ba1ff	1322	Allows the execution of code from within an org buffer.
JG	1323	Code output can also be input to the buffer.
990949	1324	*** Languages
0ba1ff	1325	Add a bunch of languages to org babel supported languages
990949	1326	#+BEGIN_SRC emacs-lisp
0c72fd	1327	(org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t)
JG	1328	(C . t)
	1329	(python . t)
	1330	(latex . t)
	1331	(scheme . t)
	1332	(gnuplot . t)
	1333	(matlab . t)
	1334	(fortran . t)
	1335	(java . t)
	1336	(plantuml . t)))
baf326	1337	#+END_SRC
C	1338
0ba1ff	1339	**** PlantUML path
JG	1340	Org uses its own path for some reason.
baf326	1341	#+BEGIN_SRC emacs-lisp
C	1342	(setq org-plantuml-jar-path plantuml-jar-path)
990949	1343	#+END_SRC
8a38cc	1344
5a75e4	1345	*** Async export
JG	1346	Allow the editing of files while execution of blocks is occurring.
	1347	Needs :async tag in src header.
	1348	#+BEGIN_SRC emacs-lisp
0c72fd	1349	(use-package ob-async)
5a75e4	1350	#+END_SRC
JG	1351
990949	1352	** Latex preview fragments match colour
C	1353	Make the previews match theme colour of Emacs.
0ba1ff	1354	Gets very annoying very quickly without it.
990949	1355	#+BEGIN_SRC emacs-lisp
C	1356	(let ((dvipng--plist (alist-get 'dvipng org-preview-latex-process-alist)))
	1357	(plist-put dvipng--plist :use-xcolor t)
	1358	(plist-put dvipng--plist :image-converter '("dvipng -D %D -T tight -o %O %f")))
	1359	#+END_SRC
bf794a	1360
0ba1ff	1361	** Org export additions
f552a0	1362	*** Pandoc
0ba1ff	1363	Call pandoc on org buffer from org export.
f552a0	1364	Need to add ~#+OPTIONS: H:99~ to enable large level header exports.
0ba1ff	1365	#+BEGIN_SRC emacs-lisp
0c72fd	1366	(use-package ox-pandoc)
0ba1ff	1367	#+END_SRC
JG	1368
	1369	*** COMMENT Dokuwiki Wiki
	1370	Allow export to dokuwiki markup from org.
	1371	#+BEGIN_SRC emacs-lisp
0c72fd	1372	(use-package ox-wk)
0ba1ff	1373	#+END_SRC
JG	1374
	1375	* COMMENT EMMS
be9cff	1376	Emacs media manager.
0ba1ff	1377	I come back to it every now and again as an MPD front-end, but haven't quite gotten the hang of it.
be9cff	1378	#+BEGIN_SRC emacs-lisp
JG	1379	(use-package emms-setup
	1380	:ensure emms
	1381	:init
	1382	(add-to-list 'load-path "~/elisp/emms/")
	1383	:config
	1384	(emms-all)
	1385	(emms-default-players)
	1386	(setq emms-source-file-directory "~/Music/"))
	1387	#+END_SRC
	1388
a428a2	1389	* COMMENT Org Blog
0ba1ff	1390	I use org to write my blog and use org-static-blog to generate the HTML.
be9cff	1391	** Org static blog config
0ba1ff	1392	Basic configuration for site.
JG	1393	Copied and modified from the example configuration.
be9cff	1394	#+BEGIN_SRC emacs-lisp
1005e3	1395	(use-package org-static-blog
JG	1396	:config
	1397	(setq org-static-blog-publish-title "Joel's Site")
	1398	(setq org-static-blog-publish-url "https://blog.joelg.cf/")
	1399	(setq org-static-blog-publish-directory "/backup/home/joel/Downloads/Chizi123.github.io/")
	1400	(setq org-static-blog-posts-directory "/backup/home/joel/Downloads/Chizi123.github.io/posts/")
	1401	(setq org-static-blog-drafts-directory "/backup/home/joel/Downloads/Chizi123.github.io/drafts/")
	1402	(setq org-static-blog-enable-tags t)
	1403	(setq org-export-with-toc nil)
	1404	(setq org-export-with-section-numbers nil)
be9cff	1405
1005e3	1406	;; This header is inserted into the <head> section of every page:
JG	1407	;; (you will need to create the style sheet at
	1408	;; ~/projects/blog/static/style.css
	1409	;; and the favicon at
	1410	;; ~/projects/blog/static/favicon.ico)
	1411	(setq org-static-blog-page-header
	1412	"<meta name=\"author\" content=\"Joel Grunbaum\">
0ba1ff	1413	<meta name=\"referrer\" content=\"no-referrer\">
JG	1414	<link href= \"static/style.css\" rel=\"stylesheet\" type=\"text/css\" />
	1415	<link rel=\"icon\" href=\"static/favicon.png\">
	1416	<script async src=\"https://www.googletagmanager.com/gtag/js?id=UA-147303155-2\"></script>
	1417	<script>
	1418	window.dataLayer = window.dataLayer \|\| [];
	1419	function gtag(){dataLayer.push(arguments);}
	1420	gtag('js', new Date());
	1421	gtag('config', 'UA-147303155-2');
	1422	</script>
	1423	")
be9cff	1424
1005e3	1425	;; This preamble is inserted at the beginning of the <body> of every page:
JG	1426	;; This particular HTML creates a <div> with a simple linked headline
	1427	(setq org-static-blog-page-preamble
	1428	"<div class=\"header\">
0ba1ff	1429	<a href=\"https://blog.joelg.cf\">Joel's Site - Personal site and constant work in progress</a>
JG	1430	<div class=\"sitelinks\">
	1431	<a href=\"https://blog.joelg.cf/about-me.html\">About Me</a> \|
	1432	<a href=\"https://github.com/Chizi123\">Github</a> \|
	1433	<a href=\"https://facebook.com/joel.grun.5\">Facebook</a>
	1434	</div>
	1435	</div>")
	1436
1005e3	1437	;; This postamble is inserted at the end of the <body> of every page:
JG	1438	;; This particular HTML creates a <div> with a link to the archive page
	1439	;; and a licensing stub.
	1440	(setq org-static-blog-page-postamble
	1441	"<div id=\"archive\">
0ba1ff	1442	<a href=\"https://blog.joelg.cf/archive.html\">Other posts</a>
be9cff	1443	</div>
0ba1ff	1444	<br>
1005e3	1445	<center><button id=\"disqus_button\" onclick=\"load_disqus()\">Load Disqus Comments</button></center>
JG	1446	<div id=\"disqus_thread\"></div>
	1447	<script type=\"text/javascript\">
	1448	function load_disqus() {
	1449	var dsq = document.createElement('script');
	1450	dsq.type = 'text/javascript';
	1451	dsq.async = true;
	1452	dsq.src = 'https://joelg-cf.disqus.com/embed.js';
	1453	(document.getElementsByTagName('head')[0] \|\| document.getElementsByTagName('body')[0]).appendChild(dsq);
	1454	document.getElementById('disqus_button').style.visibility = 'hidden';
	1455	};
	1456	</script>"))
be9cff	1457	#+END_SRC
JG	1458
0ba1ff	1459	** Sitemap addition
JG	1460	Creates a sitemap.xml for the blog based on the generated HTML files output in the final directory.
	1461	#+BEGIN_SRC emacs-lisp
	1462	(defun blog-publish()
	1463	(interactive)
	1464	(org-static-blog-publish)
	1465	(setq n 0)
	1466	(setq site "https://blog.joelg.cf/")
	1467	(setq posts (directory-files org-static-blog-publish-directory))
	1468	(generate-new-buffer "sitemap.xml.gen")
	1469	(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"))
	1470	(while (< n (length (directory-files org-static-blog-publish-directory)))
	1471	(setq curr (nth n posts))
	1472	(if (string-match "\$html\$" curr)
	1473	(if (string-match "index.html" curr)
	1474	(with-current-buffer "sitemap.xml.gen" (insert (concat "\t<url>\n\t\t<loc>" site "</loc>\n\t</url>\n")))
	1475	(with-current-buffer "sitemap.xml.gen" (insert (concat "\t<url>\n\t\t<loc>" site curr "</loc>\n\t</url>\n")))))
	1476	(setq n (1+ n)))
	1477	(with-current-buffer "sitemap.xml.gen" (insert "</urlset>"))
	1478	(with-current-buffer "sitemap.xml.gen" (write-region (point-min) (point-max) (concat org-static-blog-publish-directory "sitemap.xml")) t)
	1479	(kill-buffer "sitemap.xml.gen"))
	1480	#+END_SRC
	1481
be9cff	1482	** Emacs-htmlize
0ba1ff	1483	Allow org features to be exported to HTML for site.
be9cff	1484	#+BEGIN_SRC emacs-lisp
JG	1485	(use-package htmlize
0b5a77	1486	:defer t)
be9cff	1487	#+END_SRC
0ba1ff	1488
51fdbd	1489	* COMMENT Journaling
a428a2	1490	** Noteworthy entries
JG	1491	I write weekly journal entries recapping my week.
	1492	These files are in org mode.
	1493	This is inspired by org-static-blog.
	1494	#+BEGIN_SRC emacs-lisp
	1495	(defun journal-create-new-post ()
0c72fd	1496	"Create a new entry, prompt for title and insert header"
a428a2	1497	(interactive)
JG	1498	(let ((title (read-string "Title: ")))
	1499	(find-file (concat "~/Documents/Journal/entry/"
	1500	(read-string "Filename: "
	1501	(concat (format-time-string "%Y-%m-%d-" (current-time))
	1502	(replace-regexp-in-string "\s" "-" (downcase title))
	1503	".org"))))
	1504	(insert "#+title: " title "\n"
	1505	"#+date: " (format-time-string "<%Y-%m-%d %H:%M>") "\n"
	1506	"#+filetags: ")))
	1507	#+END_SRC
	1508	*** Publish entries
	1509	Use org-publish to collate entries into a single unit.
	1510	#+BEGIN_SRC emacs-lisp
	1511	(setq org-publish-project-alist
0c72fd	1512	'(("Journal"
JG	1513	:base-directory "~/Documents/Journal/entry/"
	1514	:publishing-directory "~/Documents/Journal/out/"
	1515	:publishing-function org-html-publish-to-html
	1516	;;:htmlized-source t
	1517	:section-numbers nil
	1518	:html-preamble t
	1519	:html-validation-link nil
0a6cd2	1520
0c72fd	1521	:auto-sitemap t
JG	1522	:sitemap-sort-files anti-chronologically
	1523	:sitemap-file-entry-format "%d - %t"
	1524	:sitemap-title "Home"
	1525	:sitemap-filename "index.html"
	1526	:sitemap-function org-publish-sitemap)))
5a75e4	1527	#+END_SRC