mirror of https://github.com/Chizi123/.emacs.d.git

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