Use pandoc if installed

Joel Grunbaum

2022-01-01 4d828501a8cdcd16fce94507d0fe69b4920f142a

 config.org

@@ -1,30 +1,26 @@
#+TITLE: My Emacs configuration

#  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

#  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



* Windows dependencies

Dependencies needed for Aspell, poppler PDF-tools, compilers and ghost-script provided by mingw64

* OS dependencies

Windows and Mac have some interesting paths when starting emacs which needs to be fixed.

Using mingw64 in windows and general path in mac.

#+BEGIN_SRC emacs-lisp

  (when (eq system-type 'windows-nt)

    (add-to-list 'exec-path "C:/msys64/usr/bin")

    (add-to-list 'exec-path "C:/msys64/mingw64/bin")

    (add-to-list 'exec-path "c:/Program Files/gnuplot")

    (setenv "PATH" (mapconcat #'identity exec-path path-separator)))

#+END_SRC



* EXWM for emacs machines

This is for machines I just want to use to run emacs.

#+BEGIN_SRC emacs-lisp

  (when (eq system-type 'linux)

    (use-package exwm

      :ensure t

      :config

      (require 'exwm-config)

      (exwm-config-default)))

  (cond ((eq system-type 'windows-nt)

         (add-to-list 'exec-path "C:/msys64/usr/bin")

         (add-to-list 'exec-path "C:/msys64/mingw64/bin")

         (add-to-list 'exec-path "C:/Program Files/gnuplot")

         (setenv "PATH" (mapconcat #'identity exec-path path-separator)))

        ((eq system-type 'darwin)

         (use-package exec-path-from-shell

           :config

           (exec-path-from-shell-initialize))

         (setq default-directory "~/")))

#+END_SRC



* Aesthetic changes

** Emacs theme

Zenburn theme is the default

Theme switcher, using a cond allows loading of many preconfigured themes which can be switched between easily.

Zenburn theme is my default.

#+BEGIN_SRC emacs-lisp

  (setq emacs-theme 'zenburn)



@@ -34,14 +30,12 @@


  (cond ((eq emacs-theme 'zenburn)

         (use-package zenburn-theme

           :ensure t

           :init

           (disable-all-themes)

           :config

           (load-theme 'zenburn t)))

        ((eq emacs-theme 'doom-one)

         (use-package doom-themes

           :ensure t

           :init

           (disable-all-themes)

           :config

@@ -50,51 +44,95 @@
           (load-theme 'doom-one t)

           (doom-themes-visual-bell-config)

           (doom-themes-org-config)))

        ((eq emacs-theme 'nord)

         (use-package nord-theme

           :init

           (disable-all-themes)

           :config

           (load-theme 'nord t)))

        ((eq emacs-theme 'solarized)

         (use-package solarized-theme

           :init

           (disable-all-themes)

           :config

           (load-theme 'solarized-dark t)))

        ((eq emacs-theme 'jetbrains-darcula)

         (use-package jetbrains-darcula-theme

           :init

           (disable-all-themes)

           :config

           (load-theme 'jetbrains-darcula t)))

        ((eq emacs-theme 'none)

         (disable-all-themes)))

#+END_SRC



** Default font

#+BEGIN_SRC emacs-lisp

  (set-frame-font "DejaVu Sans Mono" nil t)

Set default font and faces.

#+BEGIN_SRC emacs-lisp 
  (cond ((member "Dank Mono" (font-family-list))

         (set-frame-font "Dank Mono-11" nil t))

        ((member "DejaVu Sans Mono" (font-family-list))

         (set-frame-font "DejaVu Sans Mono" nil t))

        ((member "Source Code Pro" (font-family-list))

         (set-frame-font "Source Code Pro-10" nil t)))



  (set-face-italic 'font-lock-comment-face t)

  (set-face-italic 'font-lock-keyword-face t)

#+END_SRC



** Remove menu bar, toolbar, but keep scroll bar

** Remove menu bar, toolbar, and scroll bar

Make the emacs interface slightly nicer.

#+BEGIN_SRC emacs-lisp

  (menu-bar-mode 0)

  (tool-bar-mode 0)

  (scroll-bar-mode 1)

  (scroll-bar-mode 0)

#+END_SRC

* COMMENT EXWM

Emacs window manager.

Tiling window manager that runs in emacs.

Open external applications with =s-&=

#+BEGIN_SRC emacs-lisp

  (use-package exwm

    :defer t

    :config

    (require 'exwm-config)

    (exwm-config-default))

#+END_SRC



* Writing requirements

** Spellchecking

Use aspell for spellchecking. 
Auto-enable in latex and org as they're the main writing modes.

#+BEGIN_SRC emacs-lisp

  (require 'ispell)

  (setq-default ispell-program-name "aspell")

  (setq-default ispell-local-dictionary "en_AU")

  (add-hook 'latex-mode-hook 'flyspell-mode)

  (add-hook 'latex-mode-hook 'flyspell-buffer)

  (add-hook 'org-mode-hook 'flyspell-mode)

  (add-hook 'org-mode-hook 'flyspell-buffer)

  (use-package flyspell

    :hook (tex-mode latex-mode TeX-mode LaTeX-mode org-mode)

    :diminish flyspell-mode

    :init (require 'ispell)

    :config

    (setq-default ispell-program-name "aspell")

    (setq-default ispell-local-dictionary "en_AU"))

#+END_SRC



** Switch-window

Helps to change windows easily when many are open at once

** COMMENT Language Tool

Language tool is an open source grammar checker.

#+BEGIN_SRC emacs-lisp

(use-package switch-window

  :ensure t

  :config

    (setq switch-window-input-style 'minibuffer)

    (setq switch-window-increase 4)

  (use-package langtool

    :init

    (setq langtool-java-classpath "/usr/share/languagetool:/usr/share/java/languagetool/*"))

#+END_SRC

** Switch-window

Helps to change windows easily when many are open at once.

#+BEGIN_SRC emacs-lisp

  (use-package switch-window

    :config

    ;; (setq switch-window-input-style 'minibuffer)

    (setq switch-window-threshold 2)

    (setq switch-window-shortcut-style 'qwerty)

    (setq switch-window-qwerty-shortcuts

        '("a" "s" "d" "f" "j" "k" "l" "i" "o"))

  :bind

    :bind

    ([remap other-window] . switch-window))

#+END_SRC



** Go to new window when opened

Go to new window when its opened instead of staying with current one.

#+BEGIN_SRC emacs-lisp

  (defun split-and-follow-horizontally ()

    (interactive)

@@ -112,15 +150,23 @@
#+END_SRC



** PDF-tools

Helpful pdf viewer.

#+BEGIN_SRC emacs-lisp

(use-package pdf-tools

  :ensure t

  :config

  (pdf-tools-install))

  (use-package pdf-tools

    :config

    (pdf-tools-install 1))

#+END_SRC



** COMMENT Writegood-mode

Supposedly should provide insight to writing quality.

#+BEGIN_SRC emacs-lisp

  (use-package writegood-mode

    :hook (text-mode . writegood-mode))

#+END_SRC



* Helm and Projectile

** Helm core

Helm aids the user interface for emacs. Adds visual and auto-complete feedback for emacs commands.

#+BEGIN_SRC emacs-lisp

  (use-package helm-config

    :ensure helm

@@ -154,83 +200,210 @@
#+END_SRC



** Projectile

Projectile is project management framework for emacs.

Helps in navigation and management of projects.

Identifies project layout from git.

*** Enable it

 #+BEGIN_SRC emacs-lisp

   (use-package projectile

     :ensure t

     :bind ("C-c p" . projectile-command-map)

     :diminish projectile-mode

     :config

     (projectile-global-mode)

     (setq projectile-completion-system 'helm)

     (when (eq system-type 'windows-nt)

       (setq projectile-indexing-method 'alien)))

 #+END_SRC

#+BEGIN_SRC emacs-lisp

  (use-package projectile

    :bind ("C-c p" . projectile-command-map)

    :diminish projectile-mode

    :config

    (projectile-global-mode)

    (setq projectile-completion-system 'helm)

    (when (eq system-type 'windows-nt)

      (setq projectile-indexing-method 'alien)))

#+END_SRC



*** Let it compile things

 #+BEGIN_SRC emacs-lisp

   (global-set-key (kbd "<f5>") 'projectile-compile-project)

 #+END_SRC

Shortcut for compilation.

#+BEGIN_SRC emacs-lisp

  (global-set-key (kbd "<f5>") 'projectile-compile-project)

#+END_SRC



*** Enable communication with helm

Use helm to manage project.

#+BEGIN_SRC emacs-lisp

  (use-package helm-projectile

    :ensure t

    :config

    (helm-projectile-on))

#+END_SRC



** COMMENT ggtags

Use GNU Global Tags. Can be useful for large projects.

#+BEGIN_SRC emacs-lisp

  (use-package ggtags

    :bind (("C-c g s" . ggtags-find-other-symbol)

           ("C-c g h" . ggtags-view-tag-history)

           ("C-c g r" . ggtags-find-reference)

           ("C-c g f" . ggtags-find-file)

           ("C-c g c" . ggtags-create-tags)

           ("C-c g u" . ggtags-update-tags))

    :config

    (add-hook 'c-mode-common-hook

              (lambda ()

                (when (derived-mode-p 'c-mode 'c++-mode 'java-mode)

                  (ggtags-mode 1))))

    )



  (setq

   helm-gtags-ignore-case t

   helm-gtags-auto-update t

   helm-gtags-use-input-at-cursor t

   helm-gtags-pulse-at-cursor t

   helm-gtags-prefix-key "\C-c g"

   helm-gtags-suggested-key-mapping t

   )



  (use-package helm-gtags

    :config

    (add-hook 'dired-mode-hook 'helm-gtags-mode)

    (add-hook 'eshell-mode-hook 'helm-gtags-mode)

    (add-hook 'c-mode-hook 'helm-gtags-mode)

    (add-hook 'c++-mode-hook 'helm-gtags-mode)

    (add-hook 'asm-mode-hook 'helm-gtags-mode)



    (define-key helm-gtags-mode-map (kbd "C-c g a") 'helm-gtags-tags-in-this-function)

    (define-key helm-gtags-mode-map (kbd "C-j") 'helm-gtags-select)

    (define-key helm-gtags-mode-map (kbd "M-.") 'helm-gtags-dwim)

    (define-key helm-gtags-mode-map (kbd "M-,") 'helm-gtags-pop-stack)

    (define-key helm-gtags-mode-map (kbd "C-c <") 'helm-gtags-previous-history)

    (define-key helm-gtags-mode-map (kbd "C-c >") 'helm-gtags-next-history))

#+END_SRC



** COMMENT Ctags

Ctags is an older tagging program that supports more languages.

Currently setup for VHDL as I had to work with a large existing VHDL code-base.

#+BEGIN_SRC emacs-lisp

  (defvar ctags-command "ctags -e -R --languages=vhdl")



  (defun ctags ()

    (call-process-shell-command ctags-command nil "*Ctags*"))





  (defun ctags-find-tags-file ()

    "Recursively searches each parent directory for a file named

                TAGS and returns the path to that file or nil if a tags file is

                not found or if the buffer is not visiting a file."

    (progn

      (defun find-tags-file-r (path)

        "Find the tags file from current to the parent directories."

        (let* ((parent-directory (file-name-directory (directory-file-name path)))

               (tags-file-name (concat (file-name-as-directory path) "TAGS")))

          (cond

           ((file-exists-p tags-file-name) (throw 'found tags-file-name))

           ((string= "/TAGS" tags-file-name) nil)

           (t (find-tags-file-r parent-directory)))))



      (if (buffer-file-name)

          (catch 'found

            (find-tags-file-r (file-name-directory buffer-file-name)))

        nil)))



  (defun ctags-set-tags-file ()

    "Uses `ctags-find-tags-file' to find a TAGS file. If found,

                set 'tags-file-name' with its path or set as nil."

    (setq-default tags-file-name (ctags-find-tags-file)))



  (defun ctags-create-tags-table ()

    (interactive)

    (let* ((current-directory default-directory)

           (top-directory (read-directory-name

                           "Top of source tree: " default-directory))

           (file-name (concat (file-name-as-directory top-directory) "TAGS")))

      (cd top-directory)

      (if (not (= 0 (ctags)))

          (message "Error creating %s!" file-name)

        (setq-default tags-file-name file-name)

        (message "Table %s created and configured." tags-file-name))

      (cd current-directory)))



  (defun ctags-update-tags-table ()

    (interactive)

    (let ((current-directory default-directory))

      (if (not tags-file-name)

          (message "Tags table not configured.")

        (cd (file-name-directory tags-file-name))

        (if (not (= 0 (ctags)))

            (message "Error updating %s!" tags-file-name)

          (message "Table %s updated." tags-file-name))

        (cd current-directory))))



  (defun ctags-create-or-update-tags-table ()

    "Create or update a tags table with `ctags-command'."

    (interactive)

    (if (not (ctags-set-tags-file))

        (ctags-create-tags-table)

      (ctags-update-tags-table)))





  (defun ctags-search ()

    "A wrapper for `tags-search' that provide a default input."

    (interactive)

    (let* ((symbol-at-point (symbol-at-point))

           (default (symbol-name symbol-at-point))

           (input (read-from-minibuffer

                   (if (symbol-at-point)

                       (concat "Tags search (default " default "): ")

                     "Tags search (regexp): "))))

      (if (and (symbol-at-point) (string= input ""))

          (tags-search default)

        (if (string= input "")

            (message "You must provide a regexp.")

          (tags-search input)))))

#+END_SRC



* Small tweaks

** Remove startup screen

Start on scratch buffer instead.

#+BEGIN_SRC emacs-lisp

(setq inhibit-startup-message t)

  (setq inhibit-startup-message t)

#+END_SRC



** Disable bell

Bloody bell dings every time you hit a key too much

Bloody bell dings every time you hit a key too much.

#+BEGIN_SRC emacs-lisp

(setq ring-bell-function 'ignore)

  (setq ring-bell-function 'ignore)

#+END_SRC



** Pretty symbols

Why not? They make it look nice

Why not? They make it look nice.

#+BEGIN_SRC emacs-lisp

  (when window-system

    (use-package pretty-mode

      :ensure t

      :diminish t

      :config

      (global-pretty-mode)))

  (use-package pretty-mode

    :diminish t

    :if window-system

    :config

    (global-pretty-mode))

#+END_SRC



** find file other window

** COMMENT Find file other window

Lets it accept more than one file. Works recursively.

#+BEGIN_SRC emacs-lisp

(defadvice find-file-other-window (around find-files activate)

  (if (listp filename)

      (loop for f in filename do (find-file-other-window f wildcards))

    ad-do-it))

  (defadvice find-file-other-window (around find-files activate)

    (if (listp filename)

        (loop for f in filename do (find-file-other-window f wildcards))

      ad-do-it))

#+END_SRC



** Which key

Helps to explain keybindings if you get lost

Helps to explain keybindings if you get lost.

#+BEGIN_SRC emacs-lisp

  (use-package which-key

    :ensure t

    :diminish which-key-mode

    :config

    (which-key-mode))

#+END_SRC



** Go to this file

** Config shortcuts

*** Go to this file

#+BEGIN_SRC emacs-lisp

(defun config-visit ()

  (interactive)

  (find-file "~/.emacs.d/config.org"))

(global-set-key (kbd "C-c e d") 'config-visit)

  (defun config-visit ()

    (interactive)

    (find-file "~/.emacs.d/config.org"))

  (global-set-key (kbd "C-c e d") 'config-visit)

#+END_SRC



** Go to init.el

*** Go to init.el

#+BEGIN_SRC emacs-lisp

  (defun init-visit ()

    (interactive)

@@ -238,32 +411,33 @@
  (global-set-key (kbd "C-c e i") 'init-visit)

#+END_SRC



** Reload configuration

*** Reload configuration

#+BEGIN_SRC emacs-lisp

(defun config-reload ()

  "Reloads ~/.emacs.d/config.org at run time"

  (interactive)

  (org-babel-load-file (expand-file-name "~/.emacs.d/config.org")))

(global-set-key (kbd "C-c e r") 'config-reload)

  (defun config-reload ()

    "Reloads ~/.emacs.d/config.org at run time"

    (interactive)

    (org-babel-load-file (expand-file-name "~/.emacs.d/config.org")))

  (global-set-key (kbd "C-c e r") 'config-reload)

#+END_SRC



** Smartparens

Matches brackets automatically

Matches brackets automatically. Added "$" for latex in org mode.

#+BEGIN_SRC emacs-lisp

(use-package smartparens

  :ensure t

  :diminish smartparens-mode

  :config

  (progn

    (require 'smartparens-config)

    (smartparens-global-mode 1)))

  (use-package smartparens

    :diminish smartparens-mode

    :config

    (progn

      (require 'smartparens-config)

      (smartparens-global-mode 1))

    (sp-with-modes 'org-mode

      (sp-local-pair "$" "$")))

#+END_SRC



** Rainbow

Its a little gimmicky but its still cool

** COMMENT Rainbow

Its a little gimmicky but its still cool.

Colours according to code after a "#", works with 3 and 6 character hex codes.

#+BEGIN_SRC emacs-lisp

  (use-package rainbow-mode

    :ensure t

    :diminish rainbow-mode

    :init

    (add-hook 'prog-mode-hook 'rainbow-mode))

@@ -274,148 +448,170 @@
Colours the brackets so that they stand out more.

#+BEGIN_SRC emacs-lisp

  (use-package rainbow-delimiters

    :ensure t

    :init

      (add-hook 'prog-mode-hook #'rainbow-delimiters-mode))

    :hook (prog-mode . rainbow-delimiters-mode))

#+END_SRC



** clean-aindent-mode

** Following whitespace

Removes unnecessary white space

#+BEGIN_SRC emacs-lisp

(use-package clean-aindent-mode

  :ensure t

  :hook prog-mode)

  (use-package clean-aindent-mode

    :hook prog-mode)

#+END_SRC

Shows trailing white space

#+BEGIN_SRC emacs-lisp

(add-hook 'prog-mode-hook (lambda () (interactive) (setq show-trailing-whitespace 1)))

  (add-hook 'prog-mode-hook (lambda () (interactive) (setq show-trailing-whitespace 1)))

#+END_SRC



** whitespace mode

** Whitespace mode

Reveals whitespace characters

#+BEGIN_SRC emacs-lisp

(global-set-key (kbd "C-c w") 'whitespace-mode)

(add-hook 'diff-mode-hook (lambda ()

                            (setq-local whitespace-style

                                        '(face

                                          tabs

                                          tab-mark

                                          spaces

                                          space-mark

                                          trailing

                                          indentation::space

                                          indentation::tab

                                          newline

                                          newline-mark))

                            (whitespace-mode 1)))

  (global-set-key (kbd "C-c w") 'whitespace-mode)

  (add-hook 'diff-mode-hook (lambda ()

                              (setq-local whitespace-style

                                          '(face

                                            tabs

                                            tab-mark

                                            spaces

                                            space-mark

                                            trailing

                                            indentation::space

                                            indentation::tab

                                            newline

                                            newline-mark))

                              (whitespace-mode 1)))



#+END_SRC



** eldoc

Shows function arguments in echo area below mode line.

#+BEGIN_SRC emacs-lisp

  (diminish 'eldoc-mode)

  (add-hook 'emacs-lisp-mode-hook 'eldoc-mode)

  (add-hook 'lisp-interaction-mode-hook 'eldoc-mode)

  (add-hook 'ielm-mode-hook 'eldoc-mode)

#+END_SRC



** key-freq

collects interesting statistics

** Key frequency statistics

Collects interesting statistics about key presses.

Use M-x keyfreq-show to show in emacs or M-x keyfreq-html to output

#+BEGIN_SRC emacs-lisp

(use-package keyfreq

  :ensure t

  :config

  (keyfreq-mode 1)

  (keyfreq-autosave-mode 1))

  (use-package keyfreq

    :config

    (keyfreq-mode 1)

    (keyfreq-autosave-mode 1))

#+END_SRC



** undo-tree

A more advanced undo mechanism

** Undo tree

A more advanced undo mechanism.

Supports branched undo history (thus the tree).

Pretty neat, if seldom used.

#+BEGIN_SRC emacs-lisp

(use-package undo-tree

  :ensure t

  :diminish undo-tree-mode

  :config

  (global-undo-tree-mode))

  (use-package undo-tree

    :diminish undo-tree-mode

    :config

    (global-undo-tree-mode))

#+END_SRC



** volatile highlights

** Volatile highlights

Colour the material just copied

#+BEGIN_SRC emacs-lisp

(use-package volatile-highlights

  :ensure t

  :diminish volatile-highlights-mode

  :config

  (volatile-highlights-mode t))

  (use-package volatile-highlights

    :diminish volatile-highlights-mode

    :config

    (volatile-highlights-mode t))

#+END_SRC



** ibuffer

View all open buffers in their own buffer rather in the temporary mini buffer.

#+BEGIN_SRC emacs-lisp

(global-set-key (kbd "C-x C-b") 'ibuffer)

(setq ibuffer-use-other-window t)

  (global-set-key (kbd "C-x C-b") 'ibuffer)

  (setq ibuffer-use-other-window t)

#+END_SRC



** hippie expand

** Hippie expand

Seems cool, but I don't think I ever use this.

Meant to suggest completions to beginning of a word.

#+BEGIN_SRC emacs-lisp

(global-set-key (kbd "M-/") 'hippie-expand) ;; replace dabbrev-expand

(setq

 hippie-expand-try-functions-list

 '(try-expand-dabbrev ;; Try to expand word "dynamically", searching the current buffer.

   try-expand-dabbrev-all-buffers ;; Try to expand word "dynamically", searching all other buffers.

   try-expand-dabbrev-from-kill ;; Try to expand word "dynamically", searching the kill ring.

   try-complete-file-name-partially ;; Try to complete text as a file name, as many characters as unique.

   try-complete-file-name ;; Try to complete text as a file name.

   try-expand-all-abbrevs ;; Try to expand word before point according to all abbrev tables.

   try-expand-list ;; Try to complete the current line to an entire line in the buffer.

   try-expand-line ;; Try to complete the current line to an entire line in the buffer.

   try-complete-lisp-symbol-partially ;; Try to complete as an Emacs Lisp symbol, as many characters as unique.

   try-complete-lisp-symbol) ;; Try to complete word as an Emacs Lisp symbol.

 )

  (global-set-key (kbd "M-/") 'hippie-expand) ;; replace dabbrev-expand

  (setq

   hippie-expand-try-functions-list

   '(try-expand-dabbrev ;; Try to expand word "dynamically", searching the current buffer.

     try-expand-dabbrev-all-buffers ;; Try to expand word "dynamically", searching all other buffers.

     try-expand-dabbrev-from-kill ;; Try to expand word "dynamically", searching the kill ring.

     try-complete-file-name-partially ;; Try to complete text as a file name, as many characters as unique.

     try-complete-file-name ;; Try to complete text as a file name.

     try-expand-all-abbrevs ;; Try to expand word before point according to all abbrev tables.

     try-expand-list ;; Try to complete the current line to an entire line in the buffer.

     try-expand-line ;; Try to complete the current line to an entire line in the buffer.

     try-complete-lisp-symbol-partially ;; Try to complete as an Emacs Lisp symbol, as many characters as unique.

     try-complete-lisp-symbol) ;; Try to complete word as an Emacs Lisp symbol.

   )

#+END_SRC



** Highlight line

Very useful for finding where you are.

#+BEGIN_SRC emacs-lisp

(global-hl-line-mode)

  (global-hl-line-mode)

#+END_SRC



** Line numbers

Everyone needs line numbers when programming.

#+BEGIN_SRC emacs-lisp

(add-hook 'prog-mode-hook 'linum-mode)

  (add-hook 'prog-mode-hook 'linum-mode)

#+END_SRC



** Garbage collection

starts garbage collection every 100MB

Starts garbage collection every 100MB.

#+BEGIN_SRC emacs-lisp

(setq gc-cons-threshold 100000000)

  (setq gc-cons-threshold (* 1024 1024 100))

#+END_SRC



** Kill ring

Changes the kill ring size to 5000.

#+BEGIN_SRC emacs-lisp

  (setq global-mark-ring-max 5000

   mark-ring-max 5000

   mode-require-final-newline t

   kill-ring-max 5000

   kill-whole-line t)

        mark-ring-max 5000

        mode-require-final-newline t

        kill-ring-max 5000

        kill-whole-line t)

#+END_SRC



** Coding style

Use java for java, awk for awk and K&R for everything else.

K&R uses 4 space tabs.

#+BEGIN_SRC emacs-lisp

(setq c-default-style "linux")

  (setq c-default-style '((java-mode . "java")

                          (awk-mode . "awk")

                          (other . "k&r")))

#+END_SRC



** Coding system

Cause we all love UTF8.

#+BEGIN_SRC emacs-lisp

(set-terminal-coding-system 'utf-8)

(set-keyboard-coding-system 'utf-8)

(set-language-environment "UTF-8")

(prefer-coding-system 'utf-8)

(setq-default indent-tabs-mode t)

(delete-selection-mode)

(global-set-key (kbd "RET") 'newline-and-indent)

  (set-terminal-coding-system 'utf-8)

  (set-keyboard-coding-system 'utf-8)

  (set-language-environment "UTF-8")

  (prefer-coding-system 'utf-8)

  (setq-default indent-tabs-mode nil

                tab-width 4

                c-basic-offset tab-width

                cperl-indent-level tab-width)

  (c-set-offset 'inline-open '0)

  (delete-selection-mode)

  (global-set-key (kbd "RET") 'newline-and-indent)

#+END_SRC

*** Smart tabs

Tabs for indentation, spaces for alignment

#+BEGIN_SRC emacs-lisp

  (use-package smart-tabs-mode

    :config

    (smart-tabs-insinuate 'c 'c++ 'java 'javascript 'cperl 'python 'ruby

                          'nxml))

#+END_SRC



** Move to beginning of line ignoring whitespace

Move point back to indentation of beginning of line.

Pretty good for getting to the start of what you actually wanted.



Move point to the first non-whitespace character on this line.

If point is already there, move to the beginning of the line.

@@ -425,117 +621,211 @@
If ARG is not nil or 1, move forward ARG - 1 lines first. If

point reaches the beginning or end of the buffer, stop there.

#+BEGIN_SRC emacs-lisp

(defun prelude-move-beginning-of-line (arg)

  (interactive "^p")

  (setq arg (or arg 1))

  (defun prelude-move-beginning-of-line (arg)

    (interactive "^p")

    (setq arg (or arg 1))



  ;; Move lines first

  (when (/= arg 1)

    (let ((line-move-visual nil))

      (forward-line (1- arg))))

    ;; Move lines first

    (when (/= arg 1)

      (let ((line-move-visual nil))

        (forward-line (1- arg))))



  (let ((orig-point (point)))

    (back-to-indentation)

    (when (= orig-point (point))

      (move-beginning-of-line 1))))

    (let ((orig-point (point)))

      (back-to-indentation)

      (when (= orig-point (point))

        (move-beginning-of-line 1))))



(global-set-key (kbd "C-a") 'prelude-move-beginning-of-line)

  (global-set-key (kbd "C-a") 'prelude-move-beginning-of-line)

#+END_SRC



** Indent region or buffer

Indent, slightly different to standard tab or C-M-\.

#+BEGIN_SRC emacs-lisp

(defun indent-region-or-buffer ()

  "Indent a region if selected, otherwise the whole buffer."

  (interactive)

  (unless (member major-mode prelude-indent-sensitive-modes)

    (save-excursion

      (if (region-active-p)

  (defun indent-region-or-buffer ()

    "Indent a region if selected, otherwise the whole buffer."

    (interactive)

    (unless (member major-mode prelude-indent-sensitive-modes)

      (save-excursion

        (if (region-active-p)

            (progn

              (indent-region (region-beginning) (region-end))

              (message "Indented selected region."))

          (progn

            (indent-region (region-beginning) (region-end))

            (message "Indented selected region."))

        (progn

          (indent-buffer)

          (message "Indented buffer.")))

      (whitespace-cleanup))))

            (indent-buffer)

            (message "Indented buffer.")))

        (whitespace-cleanup))))



(global-set-key (kbd "C-c i") 'indent-region-or-buffer)

  (global-set-key (kbd "C-c i") 'indent-region-or-buffer)

#+END_SRC



** Tramp

Remote editing mode.

Hate having to re-input passwords.

#+BEGIN_SRC emacs-lisp

  (when (eq system-type 'windows-nt)

    (setq tramp-default-method "pscp"))

  (setq password-cache-expiry nil)

  (use-package tramp

    :pin gnu

    :config

    ;; (setq tramp-default-method "ssh")

    (when (eq system-type 'windows-nt)

      (setq tramp-default-method "pscp"))

    (setq password-cache-expiry nil)

    (add-to-list 'tramp-remote-path 'tramp-own-remote-path))

#+END_SRC



** COMMENT Y or N instead of yes or no

Need not type out whole word.

#+BEGIN_SRC emacs-lisp

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

#+END_SRC



** COMMENT Sublime-like minimap

Get a minimap preview of the file on the side like sublime text.

Want to make work but need to find a good way of doing so.

#+BEGIN_SRC emacs-lisp

  (use-package sublimity

    :config

    (require 'sublimity-scroll)

    (setq sublimity-scroll-weight 4

          sublimity-scroll-drift-length 3)

    (require 'sublimity-map)

    (setq sublimity-map-size 20

          sublimity-map-scale 0.3)

    (sublimity-map-set-delay nil)

    (sublimity-mode 1))



  (use-package minimap

    :config

    (minimap-mode))

#+END_SRC



** Highlight indentation

Vertical demarcations for indent levels

#+BEGIN_SRC emacs-lisp

  (use-package highlight-indentation

    :hook (prog-mode . highlight-indentation-mode))

#+END_SRC



** Auto revert mode

Update unchanged buffers if underlying file changes.

#+BEGIN_SRC emacs-lisp

  (global-auto-revert-mode)

#+END_SRC

* Mode line tweaks

Diminish is used but is included in init.el such that it can be used throughout this document

** Spaceline

A little easier to read than the default emacs mode line

A little easier to read than the default emacs mode line.

#+BEGIN_SRC emacs-lisp

    (use-package spaceline

      :ensure t

      :config

      (require 'spaceline-config)

      (setq spaceline-buffer-encoding-abbrev-p t)

      (setq spaceline-line-column-p t)

      (setq spaceline-line-p t)

      (setq powerline-default-separator (quote arrow))

      (spaceline-spacemacs-theme)

      (spaceline-helm-mode))

  (use-package spaceline

    :config

    (require 'spaceline-config)

    (setq spaceline-buffer-encoding-abbrev-p t)

    (setq spaceline-line-column-p t)

    (setq spaceline-line-p t)

    (setq powerline-default-separator (quote arrow))

    (spaceline-spacemacs-theme)

    (spaceline-helm-mode))

#+END_SRC



** No separator

*** Separator

Slightly nicer separator.

#+BEGIN_SRC emacs-lisp

(setq powerline-default-seperator nil)

  (setq powerline-default-separator nil)

#+END_SRC



** Nyan mode

Use nyan cat as a reference for buffer progression.

#+BEGIN_SRC emacs-lisp

  (use-package nyan-mode

    :config

    (nyan-mode 1))

#+END_SRC



* Programming tweaks

** Yasnippet

Add snippets, pretty useful.

Manually added snippets are in ~/.emacs.d/snippets/{mode}.

#+BEGIN_SRC emacs-lisp

    (use-package yasnippet

      :ensure t

      :diminish yas-minor-mode

      :config

      (use-package yasnippet-snippets

   :ensure t)

      (yas-reload-all)

      (yas-global-mode 1))

#+END_SRC

  (use-package yasnippet

    :diminish yas-minor-mode

    :config

    (yas-global-mode 1))



** flycheck

  (use-package yasnippet-snippets

    :after yasnippet)

#+END_SRC

** Flycheck

Basic linter. Works pretty well.

#+BEGIN_SRC emacs-lisp

  (use-package flycheck

    :ensure t

    :diminish flycheck-mode

    :config

    (global-flycheck-mode))

#+END_SRC

*** flycheck-pos-tip

Add suggestions at the cursor.

#+BEGIN_SRC emacs-lisp

(use-package flycheck-pos-tip

  :ensure t

  :after flycheck

  :config

  (flycheck-pos-tip-mode))

  (use-package flycheck-pos-tip

    :after flycheck

    :config

    (flycheck-pos-tip-mode))

#+END_SRC



** Company

Company is auto-complete for Emacs

Company is auto-complete for Emacs.

Uses various backends, more of which are added later.

#+BEGIN_SRC emacs-lisp

  (use-package company

    :ensure t

    :diminish company-mode

    :config

    (global-company-mode)

    (setq company-idle-delay 0)

    (setq company-minimum-prefix-length 3))

    (setq company-minimum-prefix-length 1))

#+END_SRC



** LSP Mode

Use LSP for completion suggestions.

Causes too much memory usage, need to debug.

Need to generate ~compile_flags~ for c/c++, can use ~bear~ but may need other tools.

#+BEGIN_SRC emacs-lisp

  (use-package lsp-mode

    :hook (((c-mode

             c++-mode

             tex-mode

             latex-mode

             TeX-mode

             LaTeX-mode

             rust-mode

             sh-mode

             ;; verilog-mode

             go-mode) . lsp))

    :init

    (setq lsp-keymap-prefix "C-c l")

    :commands lsp

    :config

    (add-hook 'lsp-mode-hook 'lsp-enable-which-key-integration)

    (setq read-process-output-max (* 1024 1024))

    (setq lsp-completion-provider :capf)

    (setq lsp-keep-workspace-alive 'nil)

    (add-to-list 'exec-path "~/.cargo/bin"))



  (use-package lsp-ui

    :commands lsp-ui-mode)



  (use-package helm-lsp

    :commands helm-lsp-workspace-symbol)

#+END_SRC



** Version control

Settings for emacs' own version control system.

*** Enable version control on the mode line

#+BEGIN_SRC emacs-lisp

  (vc-mode)

#+END_SRC



** Magit

Emacs git client.

Pretty good and offers fairly decent features.

#+BEGIN_SRC emacs-lisp

  (use-package magit

    :ensure t

    :commands magit-get-top-dir

    :bind ("C-x g" . magit-status)

    :init

@@ -584,13 +874,47 @@
       magit-process-popup-time 10

       ;; ask me if I want a tracking upstream

       magit-set-upstream-on-push 'askifnotset

       )))

       ))

    )

#+END_SRC



*** More general yes and no prompt

The default setting can miss some.

Don't redefine the regex in case this is too general.

#+BEGIN_SRC emacs-lisp

  ;;(when-let ((regex "[\[\(]]?\\([Yy]\\(es\\)?\\)[/|]\\([Nn]o?\\)[\]\)]")

  (defun magit-process-general-yn-prompt-hook (proc str)

    "Handle [y/n] prompts"

    (when-let ((beg (string-match "[\[\(]]?\\([Yy]\\(es\\)?\\)[/|]\\([Nn]o?\\)[\]\)]" str)))

      (let ;; ((max-mini-window-height 30))

          (process-send-string

           proc

           (downcase

            (concat

             (match-string

              (if (save-match-data

                    (magit-process-kill-on-abort proc

                      (y-or-n-p (substring str 0 beg)))) 1 2)

              str)

             "\n"))))))



  (add-hook 'magit-process-prompt-functions

            #'magit-process-general-yn-prompt-hook)

#+END_SRC

*** COMMENT Gerrit integration

Gerrit takes ~origin:refs/for/master~ as a destination.

Enable magit to work with its oddities.

#+BEGIN_SRC emacs-lisp

  (use-package magit-gerrit)

#+END_SRC



** CEDET

*** semantic

*** COMMENT Semantic

Parser library for code, supports many other packages.

Allows emacs to be more aware of what is being written.

#+BEGIN_SRC emacs-lisp

  (use-package semantic

    :hook (prog-mode . semantic-mode)

    :config

    (global-semanticdb-minor-mode 1)

    (global-semantic-idle-scheduler-mode 1)

@@ -598,73 +922,82 @@
    (semantic-mode 1))

#+END_SRC



*** EDE

*** COMMENT EDE

Emacs Development Environment.

Can be used to manage and create build files for a project.

#+BEGIN_SRC emacs-lisp

(use-package ede

  :config

  (global-ede-mode t))

  (use-package ede

    :config

    (global-ede-mode t))

#+END_SRC



*** gdb-many-windows

Enhances the use of GDB in emacs.

Shows register contents, variable contents and others in addition to GDB shell.

Also shows source code while debugging.

#+BEGIN_SRC emacs-lisp

(setq

 ;; use gdb-many-windows by default

 gdb-many-windows t



 ;; Non-nil means display source file containing the main routine at startup

 gdb-show-main t)

  (setq

   gdb-many-windows t

   gdb-show-main t)

#+END_SRC



*** Semantic refactor

*** COMMENT Semantic refactor

Trying to get this to work.

Should help to refactor file.

#+BEGIN_SRC emacs-lisp

(use-package srefactor

  :ensure t

  :bind (("M-RET o" . 'srefactor-lisp-one-line)

    ("M-RET m" . 'srefactor-lisp-format-sexp)

    ("M-RET d" . 'srefactor-lisp-format-defun)

    ("M-RET b" . 'srefactor-lisp-format-buffer)

    :map c-mode-base-map

         ("M-RET" . 'srefactor-refactor-at-point)

         :map c++-mode-map

         ("M-RET" . 'srefactor-refactor-at-point)))

  (use-package srefactor

    :bind (("M-RET o" . 'srefactor-lisp-one-line)

           ("M-RET m" . 'srefactor-lisp-format-sexp)

           ("M-RET d" . 'srefactor-lisp-format-defun)

           ("M-RET b" . 'srefactor-lisp-format-buffer)

           :map c-mode-base-map

           ("M-RET" . 'srefactor-refactor-at-point)

           :map c++-mode-map

           ("M-RET" . 'srefactor-refactor-at-point)))

#+END_SRC



** Language specific configs

*** C/C++

**** yasnippet

**** Flycheck

***** Flycheck clang

Add the clang backend for linting.

#+BEGIN_SRC emacs-lisp

(add-hook 'c++-mode-hook 'yas-minor-mode)

(add-hook 'c-mode-hook 'yas-minor-mode)

  (use-package flycheck-clang-analyzer

    :after flycheck

    :config

    (with-eval-after-load 'flycheck

      (require 'flycheck-clang-analyzer)

      (flycheck-clang-analyzer-setup)))

#+END_SRC



**** flycheck clang

***** Flycheck project root

Flycheck tends to fail finding the project root, giving errors about missing files.

This should remove them.

#+BEGIN_SRC emacs-lisp

(use-package flycheck-clang-analyzer

  :ensure t

  :config

  (with-eval-after-load 'flycheck

    (require 'flycheck-clang-analyzer)

     (flycheck-clang-analyzer-setup)))

#+END_SRC

  (defun setup-flycheck-project-path ()

    (let ((root (ignore-errors (projectile-project-root))))

      (when root

        (add-to-list

         (make-variable-buffer-local 'flycheck-clang-include-path)

         root)

        (add-to-list

         (make-variable-buffer-local 'flycheck-gcc-include-path)

         root))))



**** company

  (add-hook 'c-mode-hook 'setup-flycheck-project-path)

  (add-hook 'c++-mode-hook 'setup-flycheck-project-path)

#+END_SRC

**** COMMENT Company

Add header completion as well as Irony, which uses clang for suggestions.

#+BEGIN_SRC emacs-lisp

  (use-package company-c-headers

      :ensure t

      :after company

      :config

      (add-hook 'c++-mode-hook 'company-mode)

      (add-hook 'c-mode-hook 'company-mode))



  (use-package company-irony

    :ensure t

    :after company

    :config

    (add-to-list 'company-backends '(company-c-headers

                                     company-dabbrev-code

                                     company-irony)))



    (add-hook 'c++-mode-hook 'company-mode)

    (add-hook 'c-mode-hook 'company-mode))

#+END_SRC

**** COMMENT Irony

#+BEGIN_SRC emacs-lisp

  (use-package irony

    :ensure t

    :init

    (setq w32-pipe-read-delay 0)

    (setq irony-server-w32-pipe-buffer-size (* 64 1024))

@@ -672,230 +1005,524 @@
    (add-hook 'c-mode-hook 'irony-mode)

    (add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options)

    (add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options))

#+END_SRC



  (use-package company-irony

    :after irony

    :config

    (add-to-list 'company-backends '(company-c-headers

                                     company-dabbrev-code

                                     company-irony)))

#+END_SRC

**** Clang-format

Automatically format buffer on save.

#+BEGIN_SRC emacs-lisp

  (defun set-clang-format-style ()

    (if (file-exists-p (concat

                        (projectile-project-root)

                        ".clang-format"))

        (setq-local clang-format-style nil)

      (setq-local clang-format-style (concat "{BasedOnStyle: LLVM,"

                                             "IndentWidth: " (format "%s" tab-width) ","

                                             "UseTab: " (if (eq indent-tabs-mode nil)

                                                            "Never"

                                                          "AlignWithSpaces")

                                             ","

                                             "BreakBeforeBraces: Linux,"

                                             "AllowShortIfStatementsOnASingleLine: false,"

                                             "IndentCaseLabels: false}"))))



  (use-package clang-format

    :hook (c-mode-common . (set-clang-format-style)))



  ;;   (defun clang-format-on-save ()

  ;;     (add-hook 'before-save-hook 'clang-format-buffer nil t))

  ;;   (add-hook 'c-mode-hook 'clang-format-on-save nil t)

  ;;   (add-hook 'c++-mode-hook 'clang-format-on-save nil t))

#+END_SRC

*** emacs-lisp

**** eldoc

**** COMMENT Company

Add slime backend.

#+BEGIN_SRC emacs-lisp

(add-hook 'emacs-lisp-mode-hook 'eldoc-mode)

#+END_SRC

  (add-hook 'emacs-lisp-mode-hook 'company-mode)



**** yasnippet

#+BEGIN_SRC emacs-lisp

(add-hook 'emacs-lisp-mode-hook 'yas-minor-mode)

#+END_SRC

  (use-package slime

    :config

    (setq inferior-lisp-program "/usr/bin/sbcl")

    (setq slime-contribs '(slime-fancy)))



**** company

#+BEGIN_SRC emacs-lisp

(add-hook 'emacs-lisp-mode-hook 'company-mode)



(use-package slime

  :ensure t

  :config

  (setq inferior-lisp-program "/usr/bin/sbcl")

  (setq slime-contribs '(slime-fancy)))



(use-package slime-company

  :ensure t

  :init

  (use-package slime-company

    :init

    (require 'company)

    (slime-setup '(slime-fancy slime-company)))

#+END_SRC



*** x86

*** COMMENT x86

**** x86-lookup

Look up reference PDF. Use Intel manual.

#+BEGIN_SRC emacs-lisp

(use-package x86-lookup

  :ensure t

  :init

  (setq x86-lookup-pdf "D:/Coding/x86-instructions.pdf")

  :bind ("C-h x" . x86-lookup))

  (use-package x86-lookup

    :init

    (setq x86-lookup-pdf "D:/Coding/x86-instructions.pdf")

    :bind ("C-h x" . x86-lookup))

#+END_SRC



*** Latex

**** AucTex

AucTex contains many additions to make tex editing good.

#+BEGIN_SRC emacs-lisp

(use-package tex

  :ensure auctex

  :config

  (setq TeX-auto-save t)

  (setq TeX-parse-self t)

  (setq doc-view-ghostscript-program "c:/msys64/mingw64/bin/gswin32c.exe")

  (setq preview-gs-command "c:/msys64/mingw64/bin/gs.exe"))

  (use-package tex

    :ensure auctex

    :config

    (setq TeX-auto-save t

          TeX-parse-self t

          TeX-view-program-selection '((output-pdf "PDF Tools"))

          TeX-source-correlate-start-server t)

    (add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer))

#+END_SRC



**** Company

Help company complete tex math and references.

#+BEGIN_SRC emacs-lisp

  (use-package company-math

    :ensure t

    :after company

    :config

    (add-to-list 'company-backends 'company-math-symbols-unicode))

    (add-to-list 'company-backends '(company-math-symbols-unicode company-math-symbols-latex

                                                                  company-latex-commands))

    (setq company-math-allow-latex-symbols-in-faces t))



  (use-package company-reftex

    :ensure t

    :after company

    :config

    (add-to-list 'company-backends 'company-reftex))

    (add-to-list 'company-backends 'company-reftex-citations))



  (use-package company-auctex

    :ensure t

    :after company

    :config

    (company-auctex-init))



  (use-package company-bibtex

    :ensure t

    :after company

    (add-to-list 'company-backends 'company-bibtex))

#+END_SRC



**** Preview pane

#+BEGIN_SRC emacs-lisp

(use-package latex-preview-pane

  :ensure t

  :config

  (latex-preview-pane-enable))

#+END_SRC



**** TeXcount

     Word counts in latex

     #+BEGIN_SRC emacs-lisp

       (when (eq system-type 'windows-nt)

         (add-to-list 'exec-path "c:/Users/joelg/TeXcount_3_1_1")

         (setenv "PATH" (mapconcat #'identity exec-path path-separator)))

Word counts in latex.

Uses a Perl script.

#+BEGIN_SRC emacs-lisp

  (defun get-texcount-latest()

    (if (not(file-directory-p "~/.texcount"))

        (make-directory "~/.texcount"))

    (url-copy-file "https://app.uio.no/ifi/texcount/download.php?file=texcount_3_2_0_41.zip" "~/.texcount/texcount.zip" 1)

    (shell-command "unzip -o ~/.texcount/texcount.zip -d ~/.texcount")

    (add-to-list 'exec-path "~/.texcount/texcount.pl"))



       (defun texcount ()

         (interactive)

         (let*

             ( (this-file (buffer-file-name))

               (enc-str (symbol-name buffer-file-coding-system))

               (enc-opt

                (cond

                 ((string-match "utf-8" enc-str) "-utf8")

                 ((string-match "latin" enc-str) "-latin1")

                 ("-encoding=guess")

                 ) )

               (word-count

                (with-output-to-string

                  (with-current-buffer standard-output

                    (call-process "texcount" nil t nil "-0" enc-opt this-file)

                    ) ) ) )

           (message word-count)

           ) )

       (add-hook 'LaTeX-mode-hook (lambda () (define-key LaTeX-mode-map (kbd "C-c c") 'texcount)))

       (add-hook 'latex-mode-hook (lambda () (define-key latex-mode-map (kbd "C-c c") 'texcount)))

     #+END_SRC

  (if (not(or (file-exists-p "~/.texcount/texcount.pl") (file-exists-p "/usr/bin/texcount")))

      (get-texcount-latest))



  (defun texcount ()

    (interactive)

    (let*

        ( (this-file (buffer-file-name))

          (enc-str (symbol-name buffer-file-coding-system))

          (enc-opt

           (cond

            ((string-match "utf-8" enc-str) "-utf8")

            ((string-match "latin" enc-str) "-latin1")

            ("-encoding=guess")

            ) )

          (word-count

           (with-output-to-string

             (with-current-buffer standard-output

               (call-process "texcount" nil t nil "-0" enc-opt this-file)

               ) ) ) )

      (message word-count)

      ) )

  (add-hook 'LaTeX-mode-hook (lambda () (define-key LaTeX-mode-map (kbd "C-c c") 'texcount)))

  (add-hook 'latex-mode-hook (lambda () (define-key latex-mode-map (kbd "C-c c") 'texcount)))

#+END_SRC



*** PlantUML

Sets the PlantUML path for the mode to generate models.

#+BEGIN_SRC emacs-lisp

(use-package plantuml-mode

  :ensure t

  :init

  (setq plantuml-jar-path "c:/ProgramData/chocolatey/lib/plantuml/tools/plantuml.jar"))

  (use-package plantuml-mode

    :init

    (cond ((eq system-type 'windows-nt)

           (when (file-exists-p "c:/ProgramData/chocolatey/lib/plantuml/tools/plantuml.jar")

             (setq plantuml-jar-path "c:/ProgramData/chocolatey/lib/plantuml/tools/plantuml.jar")

             (setq planuml-default-exec-mode 'jar)))

          ((eq system-type 'gnu/linux)

           (when (file-exists-p "/usr/share/java/plantuml/plantuml.jar")

             (setq plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar")

             (setq planuml-default-exec-mode 'jar)))))

#+END_SRC



*** Racket

*** COMMENT Racket

**** Major mode

Set racket path in windows and enable racket mode.

#+BEGIN_SRC emacs-lisp

  (when (eq system-type 'windows-nt)

    (add-to-list 'exec-path "c:/Program Files/Racket")

    (setenv "PATH" (mapconcat #'identity exec-path path-separator)))



  (use-package racket-mode

      :ensure t

      :config

      (autoload 'racket-mode "Racket" "Racket Editing Mode" t)

      (add-to-list

       'auto-mode-alist

       '("\\.rkt$" . racket-mode))

      (setq matlab-indent-function t))

    :config

    (autoload 'racket-mode "Racket" "Racket Editing Mode" t)

    (add-to-list

     'auto-mode-alist

     '("\\.rkt$" . racket-mode)))

#+END_SRC



*** Verilog

**** Get latest version

Pull the latest version from the web

#+BEGIN_SRC emacs-lisp

  (defun get-verilog-latest()

    (interactive)

    (url-copy-file "https://www.veripool.org/ftp/verilog-mode.el" "c:/Users/joelg/.emacs.d/elpa/verilog-mode/verilog-mode.el" 1))

#+END_SRC



**** Integrate into emacs

Add updated version and integrate it with Emacs.

Use latest version from repositories.

#+BEGIN_SRC emacs-lisp

  (use-package verilog-mode

    :init

    (get-verilog-latest)

    (add-to-list 'load-path "~/.emacs.d/elpa/verilog-mode/verilog-mode.el")

    :pin gnu

    :config

    (autoload 'verilog-mode "verilog-mode" "Verilog mode" t )

    (add-to-list 'auto-mode-alist '("\\.[ds]?vh?\\'" . verilog-mode)))

    (add-to-list 'auto-mode-alist '("\\.[ds]?va?h?\\'" . verilog-mode))

    (setq-default verilog-align-ifelse t

                  verilog-auto-delete-trailing-whitespace t

                  verilog-auto-inst-param-value t

                  verilog-auto-lineup 'all

                  verilog-auto-newline nil

                  verilog-auto-save-policy nil

                  verilog-auto-template-warn-unused t

                  verilog-auto-endcomments nil

                  verilog-highlight-grouping-keywords t

                  verilog-highlight-modules t

                  verilog-tab-to-comment t

                  verilog-indent-begin-after-if nil

                  verilog-indent-lists nil

                  verilog-case-indent 4

                  verilog-cexp-indent 0

                  verilog-indent-level 4

                  verilog-indent-level-behavioral 4

                  verilog-indent-level-declaration 4

                  verilog-indent-level-directive 4

                  verilog-indent-level-module 4))

#+END_SRC

#+END_SRC

*** COMMENT MATLAB

Mode for editing MATLAB m-files.

#+BEGIN_SRC emacs-lisp

  (use-package matlab

    :ensure matlab-mode

    :config

    (autoload 'matlab-mode "matlab" "Matlab Editing Mode" t)

    (add-to-list

     'auto-mode-alist

     '("\\.m$" . matlab-mode))

    (setq matlab-indent-function t)

    (setq matlab-shell-command "matlab")

    (matlab-cedet-setup))

#+END_SRC



*** COMMENT MIPS

For editing MIPS assembly.

#+BEGIN_SRC emacs-lisp

  (use-package mips-mode

    :mode "\\.mips$")

#+END_SRC



*** COMMENT IPython notebooks

Allow emacs to view and use IPython notebooks

#+BEGIN_SRC emacs-lisp

  (use-package ein)

#+END_SRC



*** Rust

**** Major mode

Get the major mode for rust files.

#+BEGIN_SRC emacs-lisp

  (use-package rust-mode

    :config

    ;; style guide suggests spaces not tabs

    (add-hook 'rust-mode-hook (lambda () (setq indent-tabs-mode nil)))

    (setq rust-format-on-save t))



  (use-package toml-mode)

#+END_SRC

**** Cargo integration

Integrate Cargo, rust's package manager.

#+BEGIN_SRC emacs-lisp

  (use-package cargo

    :hook

    (rust-mode . cargo-minor-mode))

#+END_SRC

**** Flycheck

Linting with flycheck.

#+BEGIN_SRC emacs-lisp

  (use-package flycheck-rust

    :config

    (add-hook 'flycheck-mode-hook #'flycheck-rust-setup))

#+END_SRC

*** Go

**** Major mode

#+BEGIN_SRC emacs-lisp

  (use-package go-mode

    :config

    (add-hook 'before-save-hook #'gofmt-before-save))

#+END_SRC



**** Flycheck

#+BEGIN_SRC emacs-lisp

  (use-package flycheck-golangci-lint

    :config

    (add-hook 'flycheck-mode-hook #'flycheck-golangci-lint-setup))

#+END_SRC

**** Company

#+BEGIN_SRC emacs-lisp

  (use-package company-go)

#+END_SRC

* Org mode

** Up to date org

Pull the latest org mode from the repository, rather than the org which comes with emacs.

#+BEGIN_SRC emacs-lisp

    (use-package org

      :ensure t

      :pin org)

  (use-package org

    :ensure org-contrib)

#+END_SRC



** Small tweaks

Small quality of life changes to org-mode.

#+BEGIN_SRC emacs-lisp

(setq org-src-fontify-natively t)

(setq org-src-tab-acts-natively t)

(setq org-confirm-babel-evaluate nil)

(setq org-export-with-smart-quotes t)

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

(add-hook 'org-mode-hook 'org-indent-mode)

(diminish 'org-indent-mode)

(diminish 'visual-line-mode)

  (setq org-src-fontify-natively t

        org-src-tab-acts-natively t

        org-confirm-babel-evaluate nil

        org-export-with-smart-quotes t

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

  (add-hook 'org-mode-hook 'org-indent-mode)

  (diminish 'org-indent-mode)

  (diminish 'visual-line-mode)

#+END_SRC

*** Spell checking for code and latex

#+BEGIN_SRC emacs-lisp

  (add-to-list 'ispell-skip-region-alist '("#\\+BEGIN_SRC" . "#\\+END_SRC"))

  (add-to-list 'ispell-skip-region-alist '("\\$" . "\\$"))

  (add-to-list 'ispell-skip-region-alist '("\\$\\$" . "\\$\\$"))

#+END_SRC



** Line wrapping

Enable line wrapping for long lines.

#+BEGIN_SRC emacs-lisp

  (add-hook 'org-mode-hook

         '(lambda ()

       (visual-line-mode 1)))

            '(lambda ()

               (visual-line-mode 1)))

#+END_SRC



** org-bullets

** Fancy org points

Use bullets of different colours and styles instead of the "\*\*\*" to denote indentation levels.

#+BEGIN_SRC emacs-lisp

(use-package org-bullets

  :ensure t

  :config

    (add-hook 'org-mode-hook (lambda () (org-bullets-mode))))

  (use-package org-superstar

    :config

    (add-hook 'org-mode-hook (lambda () (org-superstar-mode 1))))

#+END_SRC



** Org Babel

Allows the execution of code from within an org buffer.

Code output can also be input to the buffer.

*** Languages

Add C to org babel supported languages

Add a bunch of languages to org babel supported languages

#+BEGIN_SRC emacs-lisp

    (org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t)

                                                             (C . t)

                                                             (python . t)

                                                             (latex . t)

                                                             (scheme . t)

                                                             (gnuplot . t)

                                                             (matlab . t)

                                                             (plantuml . t)

                                                             (fortran . t)

                                                             (java . t)

                                                             (plantuml . t)))

  (org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t)

                                                           (C . t)

                                                           (python . t)

                                                           (latex . t)

                                                           (scheme . t)

                                                           (gnuplot . t)

                                                           (matlab . t)

                                                           (fortran . t)

                                                           (java . t)

                                                           (plantuml . t)))

#+END_SRC



**** Plantuml path

**** PlantUML path

Org uses its own path for some reason.

#+BEGIN_SRC emacs-lisp

  (setq org-plantuml-jar-path plantuml-jar-path)

#+END_SRC



*** Async export

Allow the editing of files while execution of blocks is occurring.

Needs :async tag in src header.

#+BEGIN_SRC emacs-lisp

  (use-package ob-async)

#+END_SRC



** Latex preview fragments match colour

Make the previews match theme colour of Emacs.

Gets very annoying very quickly without it.

#+BEGIN_SRC emacs-lisp

  (let ((dvipng--plist (alist-get 'dvipng org-preview-latex-process-alist)))

    (plist-put dvipng--plist :use-xcolor t)

    (plist-put dvipng--plist :image-converter '("dvipng -D %D -T tight -o %O %f")))

#+END_SRC



** Org export additions

*** Pandoc

Call pandoc on org buffer from org export.

Need to add ~#+OPTIONS: H:99~ to enable large level header exports.

#+BEGIN_SRC emacs-lisp

  (when (executable-find "pandoc")

    (use-package ox-pandoc))

#+END_SRC



*** COMMENT Dokuwiki Wiki

Allow export to dokuwiki markup from org.

#+BEGIN_SRC emacs-lisp

  (use-package ox-wk)

#+END_SRC



* COMMENT EMMS

Emacs media manager.

I come back to it every now and again as an MPD front-end, but haven't quite gotten the hang of it.

#+BEGIN_SRC emacs-lisp

  (use-package emms-setup

    :ensure emms

    :init

    (add-to-list 'load-path "~/elisp/emms/")

    :config

    (emms-all)

    (emms-default-players)

    (setq emms-source-file-directory "~/Music/"))

#+END_SRC



* COMMENT Org Blog

I use org to write my blog and use org-static-blog to generate the HTML.

** Org static blog config

Basic configuration for site.

Copied and modified from the example configuration.

#+BEGIN_SRC emacs-lisp

  (use-package org-static-blog

    :config

    (setq org-static-blog-publish-title "Joel's Site")

    (setq org-static-blog-publish-url "https://blog.joelg.cf/")

    (setq org-static-blog-publish-directory "/backup/home/joel/Downloads/Chizi123.github.io/")

    (setq org-static-blog-posts-directory "/backup/home/joel/Downloads/Chizi123.github.io/posts/")

    (setq org-static-blog-drafts-directory "/backup/home/joel/Downloads/Chizi123.github.io/drafts/")

    (setq org-static-blog-enable-tags t)

    (setq org-export-with-toc nil)

    (setq org-export-with-section-numbers nil)



    ;; This header is inserted into the <head> section of every page:

    ;;   (you will need to create the style sheet at

    ;;    ~/projects/blog/static/style.css

    ;;    and the favicon at

    ;;    ~/projects/blog/static/favicon.ico)

    (setq org-static-blog-page-header

          "<meta name=\"author\" content=\"Joel Grunbaum\">

      <meta name=\"referrer\" content=\"no-referrer\">

      <link href= \"static/style.css\" rel=\"stylesheet\" type=\"text/css\" />

      <link rel=\"icon\" href=\"static/favicon.png\">

      <script async src=\"https://www.googletagmanager.com/gtag/js?id=UA-147303155-2\"></script>

      <script>

        window.dataLayer = window.dataLayer || [];

        function gtag(){dataLayer.push(arguments);}

        gtag('js', new Date());

        gtag('config', 'UA-147303155-2');

      </script>

      ")



    ;; This preamble is inserted at the beginning of the <body> of every page:

    ;;   This particular HTML creates a <div> with a simple linked headline

    (setq org-static-blog-page-preamble

          "<div class=\"header\">

        <a href=\"https://blog.joelg.cf\">Joel's Site - Personal site and constant work in progress</a>

        <div class=\"sitelinks\">

          <a href=\"https://blog.joelg.cf/about-me.html\">About Me</a> |

          <a href=\"https://github.com/Chizi123\">Github</a> |

          <a href=\"https://facebook.com/joel.grun.5\">Facebook</a>

        </div>

      </div>")



    ;; This postamble is inserted at the end of the <body> of every page:

    ;;   This particular HTML creates a <div> with a link to the archive page

    ;;   and a licensing stub.

    (setq org-static-blog-page-postamble

          "<div id=\"archive\">

        <a href=\"https://blog.joelg.cf/archive.html\">Other posts</a>

      </div>

      <br>

      <center><button id=\"disqus_button\" onclick=\"load_disqus()\">Load Disqus Comments</button></center>

    <div id=\"disqus_thread\"></div>

    <script type=\"text/javascript\">

      function load_disqus() {

          var dsq = document.createElement('script');

          dsq.type = 'text/javascript';

          dsq.async = true;

          dsq.src = 'https://joelg-cf.disqus.com/embed.js';

          (document.getElementsByTagName('head')[0] || document.getElementsByTagName('body')[0]).appendChild(dsq);

          document.getElementById('disqus_button').style.visibility = 'hidden';

      };

    </script>"))

#+END_SRC



** Sitemap addition

Creates a sitemap.xml for the blog based on the generated HTML files output in the final directory.

#+BEGIN_SRC emacs-lisp

  (defun blog-publish()

    (interactive)

    (org-static-blog-publish)

    (setq n 0)

    (setq site "https://blog.joelg.cf/")

    (setq posts (directory-files org-static-blog-publish-directory))

    (generate-new-buffer "sitemap.xml.gen")

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

    (while (< n (length (directory-files org-static-blog-publish-directory)))

      (setq curr (nth n posts))

      (if (string-match "\\(html\\)" curr)

          (if (string-match "index.html" curr)

              (with-current-buffer "sitemap.xml.gen" (insert (concat "\t<url>\n\t\t<loc>" site "</loc>\n\t</url>\n")))

            (with-current-buffer "sitemap.xml.gen" (insert (concat "\t<url>\n\t\t<loc>" site curr "</loc>\n\t</url>\n")))))

      (setq n (1+ n)))

    (with-current-buffer "sitemap.xml.gen" (insert "</urlset>"))

    (with-current-buffer "sitemap.xml.gen" (write-region (point-min) (point-max) (concat org-static-blog-publish-directory "sitemap.xml")) t)

    (kill-buffer "sitemap.xml.gen"))

#+END_SRC



** Emacs-htmlize

Allow org features to be exported to HTML for site.

#+BEGIN_SRC emacs-lisp

  (use-package htmlize

    :defer t)

#+END_SRC



* COMMENT Journaling

** Noteworthy entries

I write weekly journal entries recapping my week.

These files are in org mode.

This is inspired by org-static-blog.

#+BEGIN_SRC emacs-lisp

  (defun journal-create-new-post ()

    "Create a new entry, prompt for title and insert header"

    (interactive)

    (let ((title (read-string "Title: ")))

      (find-file (concat "~/Documents/Journal/entry/"

                         (read-string "Filename: "

                                      (concat (format-time-string "%Y-%m-%d-" (current-time))

                                              (replace-regexp-in-string "\s" "-" (downcase title))

                                              ".org"))))

      (insert "#+title: " title "\n"

              "#+date: " (format-time-string "<%Y-%m-%d %H:%M>") "\n"

              "#+filetags: ")))

#+END_SRC

*** Publish entries

Use org-publish to collate entries into a single unit.

#+BEGIN_SRC emacs-lisp

  (setq org-publish-project-alist

        '(("Journal"

           :base-directory "~/Documents/Journal/entry/"

           :publishing-directory "~/Documents/Journal/out/"

           :publishing-function org-html-publish-to-html

           ;;:htmlized-source t

           :section-numbers nil

           :html-preamble t

           :html-validation-link nil



           :auto-sitemap t

           :sitemap-sort-files anti-chronologically

           :sitemap-file-entry-format "%d - %t"

           :sitemap-title "Home"

           :sitemap-filename "index.html"

           :sitemap-function org-publish-sitemap)))

#+END_SRC