rc

;; Copyright © 2018 Maarten Vangeneugden

;; Author: Maarten Vangeneugden <contact_me@maartenv.be>

;; URL: https://maartenv.be

;;

;; Welcome to Ghent Emacs.

;;

;; This is the configuration file for Ghent Emacs, a GNU Emacs derivative

;; developed in the city of Ghent, Belgium, by a student of Engineering

;; Informatics at Ghent University.

;;

;; License: GPLv3+

;; USAGE:

;; This configuration file uses the use-package declaration, that means the

;; settings are a bit different from what you'd normally do in a GNU Emacs

;; init.el file. Consult https://github.com/jwiegley/use-package for info on how

;; to correctly write package configuration.

(eval-when-compile

  (require 'use-package))

;(require 'diminish)                ;; if you use :diminish

(require 'bind-key)                ;; if you use any :bind variant

(custom-set-variables

 ;; custom-set-variables was added by Custom.

 ;; If you edit it by hand, you could mess it up, so be careful.

 ;; Your init file should contain only one such instance.

 ;; If there is more than one, they won't work right.

 '(custom-safe-themes

   '("78e6be576f4a526d212d5f9a8798e5706990216e9be10174e3f3b015b8662e27" "d9646b131c4aa37f01f909fbdd5a9099389518eb68f25277ed19ba99adeb7279" "8b58ef2d23b6d164988a607ee153fd2fa35ee33efc394281b1028c2797ddeebb" "f9aede508e587fe21bcfc0a85e1ec7d27312d9587e686a6f5afdbb0d220eab50" "83ae405e25a0a81f2840bfe5daf481f74df0ddb687f317b5e005aa61261126e9" "c433c87bd4b64b8ba9890e8ed64597ea0f8eb0396f4c9a9e01bd20a04d15d358" "a24c5b3c12d147da6cef80938dca1223b7c7f70f2f382b26308eba014dc4833a" "732b807b0543855541743429c9979ebfb363e27ec91e82f463c91e68c772f6e3" "a2cde79e4cc8dc9a03e7d9a42fabf8928720d420034b66aecc5b665bbf05d4e9" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" "bd7b7c5df1174796deefce5debc2d976b264585d51852c962362be83932873d9" default))

 '(inhibit-startup-screen t)

 '(package-selected-packages

 '(spaceline-inflation 1 t nil "Customized with use-package spaceline")

 '(spaceline-toggle-buffer-size-off nil t nil "Customized with use-package spaceline"))

;(custom-set-faces

 ;; custom-set-faces was added by Custom.

 ;; If you edit it by hand, you could mess it up, so be careful.

 ;; Your init file should contain only one such instance.

 ;; If there is more than one, they won't work right.

 ;'(default ((((class color) (min-colors 89)) (:foreground "#ffffff" :background "#263238")))))

 '(package-selected-packages

;; To get rid of those FUCKING ANNOYING BACKUP FILES FUCKING HELL DUDE

(setq backup-directory-alist '(("." . "~/.emacs.d/backup"))

  backup-by-copying t    ; Don't delink hardlinks

  version-control t      ; Use version numbers on backups

  delete-old-versions t  ; Automatically delete excess backups

  kept-new-versions 20   ; how many of the newest versions to keep

  kept-old-versions 5    ; and how many of the old

  )

;; And yes I copied it from SO, suck it: https://stackoverflow.com/questions/2680389/how-to-remove-all-files-ending-with-made-by-emacs

;; Disables the use of tabs, replaces them with spaces

(setq-default indent-tabs-mode nil)

;; Activate UTF-8 throughout Ghent Emacs

(prefer-coding-system 'utf-8)

(set-default-coding-systems 'utf-8)

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

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

(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))

;; Line numbering config

(global-display-line-numbers-mode)

(setq display-line-numbers-mode t)

(setq display-line-numbers-widen t)

(setq display-line-numbers-type 'relative)

(setq display-line-numbers-current-absolute t)

(setq mouse-wheel-scroll-amount '(1 ((shift) . 1)))

(setq scroll-step 1)

(setq scroll-margin 10) ;; Keeps 10 lines above and down always visible if still left

;; Enable line breaks in all modes at column 80

(setq-default auto-fill-function 'do-auto-fill)

(setq-default fill-column 80)

(setq ring-bell-function 'ignore) ;; Disables the FUCKING ANNOYING BEEPS HOLY SHIT

;; Setup packages

;(package-initialize)

(require 'package)

(setq package-enable-at-startup nil)

(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/"))

(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))

(unless (package-installed-p 'use-package)

  (package-refresh-contents)

(package-install 'use-package))

(setq use-package-always-ensure t)

;; Next two lines allow foregoing :ensure t on all packages

;; :ensure t simply makes sure that, if a package isn't installed on this

;; machine, it's automatically fetched and installed.

;; This doesn't keep packages up-to-date, cfr. auto-package-update for that

(require 'use-package-ensure)

(setq use-package-always-ensure t)

;; Package for automatic updating of all the other packages

(use-package auto-package-update

  :config

  (setq auto-package-update-delete-old-versions t)

  (setq auto-package-update-hide-results t)

  (auto-package-update-maybe))

;; Easier keybindings so we can do more lazy loading

(use-package general

  :ensure t

  :config

  (general-create-definer my-leader-def

	;; :prefix my-leader

	:prefix "SPC")

  (general-create-definer local-leader-def

	;; :prefix local-leader

	:prefix ","))

(use-package dashboard

  :init

  (setq dashboard-banner-logo-title "") ; It's nicer to just not have a title text.

  (setq dashboard-startup-banner "~/ghent-emacs.png")

  :config

  (dashboard-setup-startup-hook))

;; AUCTeX configuration

;; Partly inspired by https://piotr.is/2010/emacs-as-the-ultimate-latex-editor/

;;;;(use-package auctex

  ;;:init

  ;;(setq TeX-auto-save t)

  ;;(setq TeX-parse-self t)

  ;;(setq Tex-save-query nil)

  ;;)

;; Updates all packages automatically

(use-package auto-package-update

  :config

  (setq auto-package-update-delete-old-versions t)

  (setq auto-package-update-hide-results t)

  (auto-package-update-maybe))

;; UI settings

(tool-bar-mode -1)

(menu-bar-mode -1)

(toggle-scroll-bar -1)

;; Tabs and width

(setq-default tab-width 4)

(setq-default c-basic-offset 4)

(use-package spaceline

    :init

    (setq frame-char-height 35)

    (setq powerline-height 35)

    :custom

     (spaceline-toggle-buffer-size-off)

     ;(setq powerline-height 21)

  (spaceline-inflation 1)

  (powerline-default-separator 'slant)

  :config

  (spaceline-spacemacs-theme)

  (setq spaceline-highlight-face-func 'spaceline-highlight-face-evil-state)) 

(use-package monokai-theme

    :init

    (load-theme 'monokai)

    :config

    (setq monokai-variable-pitch-mode t))

;; When using solarized as theme, put in :config

;; (setq x-underline-at-descent-line t)

;; Which will block an ugly line being drawn trhough the modeline.

;(add-hook 'org-mode-hook '(lambda () (setq fill-column 80)))

;(add-hook 'org-mode-hook 'auto-fill-mode)

;; (Programming) languages

(use-package dante

  :ensure t

  :after haskell-mode

  :commands 'dante-mode

  :init

  (add-hook 'haskell-mode-hook 'dante-mode)

  (add-hook 'haskell-mode-hook 'flycheck-mode))

(use-package clojure-mode

  :ensure t

  )

;(use-package anaconda-mode

  ;:ensure t

  ;:hook python-mode

  ;:config

  ;(use-package company-anaconda

    ;:ensure t

    ;:config

    ;(eval-after-load "company"

      ;'(add-to-list 'company-backends 'company-anaconda))))

;; HTML/CSS/Django

(use-package web-mode

  :ensure t

  :mode "\\.html?\\.djhtml\\'"

  :init

  (add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode))

  (setq web-mode-markup-indent-offset 4)

  (setq web-mode-css-indent-offset 4)

  (setq web-mode-code-indent-offset 4)

  ;(setq web-mode-engines-alist

;	'(("django"    . "\\.html\\"))) ;; FIXME this doesn't work yet. IDK why.

  :custom ;; Next lines disable all the automatic completion stuff that I didn't explicitely ask for

  (web-mode-enable-auto-pairing nil)

  (web-mode-enable-auto-closing nil)

  (web-mode-enable-auto-expanding nil)

  (web-mode-enable-auto-opening nil)

  (web-mode-enable-auto-quoting nil))

(use-package ycmd-mode

  :ensure ycmd

  ;:hook (after-init . global-ycmd-mode)

  :hook (haskell-mode elisp-mode python-mode c-mode c++-mode) ; Add the modes of the languages where YCM

                                      ; needs to kick in

  :init

  ; Old paths

  ;(set-variable 'ycmd-server-command `("/usr/bin/python" ,(file-truename "/usr/share/vim/vimfiles/third_party/ycmd/ycmd/")))

  ;(set-variable 'ycmd-global-config "/home/simba/.emacs.d/lang/ycm_conf.py")

  (set-variable 'ycmd-server-command `("python" ,(file-truename "~/ycmd/ycmd")))

  (set-variable 'ycmd-global-config (file-truename "~/Repositories/rc/.ycm_extra_conf.py"))

  (set-variable 'ycmd-global-modes 'all) ; Activates YCMD in 'all' major modes,

                                        ; not only those in ycmd-file-type-map

  ;(set-variable 'ycmd-extra-conf-whitelist '("/home/jorrit/Dev/*"))

  :config

  (setq url-show-status nil)  ; Makes those FUCKING annoying messages SHUT THE HELL UP

  (setq request-message-level -1)

  (use-package flycheck-ycmd

	:ensure t

	:commands (flycheck-ycmd-setup)

	:hook (ycmd-mode . flycheck-ycmd-setup)

	:init

	(setq flycheck-clang-language-standard "c++11")

	(when (not (display-graphic-p))

      (setq flycheck-indication-mode nil))))

(use-package company

 :hook (after-init . global-company-mode)

 :init

 (company-tng-configure-default)  ; Use <TAB> to scroll in completion options

 (setq company-minimum-prefix-length 2)

 (setq company-idle-delay 0.0)

 :config

 (use-package company-ycmd-mode

	:ensure company-ycmd

	:commands (company-ycmd-setup)

	:hook (ycmd-mode . company-ycmd-setup))

 (use-package company-flx

              :ensure t

              :config

              (company-flx-mode +1)))

(use-package clang-format

  :ensure t

  :general

  (local-leader-def

   :states 'normal

   :modes '(c-mode-map c++-mode-map)

   "b" '(:ignore t :which-key "clang")

   "bf" 'clang-format-buffer)

  :init

  (setq-default clang-format-style "{BasedOnStyle: llvm, IndentWidth: 4}"))

(use-package srefactor

  :ensure t

  :commands (srefactor-refactor-at-point)

  :hook ((c-mode c++-mode) . semantic-mode)

  :general

  (local-leader-def

   :states 'normal

   :keymaps '(c++-mode-map c-mode-map)

   "r" 'srefactor-refactor-at-point))

;; eViL-mode

(use-package evil

  :hook (after-init . evil-mode)

  :bind (:map evil-normal-state-map ;; Scrolls over lines correctly

              ("j" . evil-next-visual-line)

              ("k" . evil-previous-visual-line))

  :general

  (my-leader-def

	:states 'normal

    "b" '(:ignore t :which-key "buffer")

    "g" '(:ignore t :which-key "magit")

    "f" '(:ignore t :which-key "files")

	"bk" 'kill-this-buffer

	"bd" 'kill-other-buffers

	"bh" 'switch-to-home-buffer

	"br" 'revert-buffer

	"h" 'split-window-vertically

	"v" 'split-window-horizontally)

  (local-leader-def

	:states 'normal

    ;; General lang options

	"c" 'compile)

  :init

  (setq evil-find-skip-newlines t) ;; Allows f/F/t/T to search beyond CR/LF

  (setq evil-set-undo-system 'undo-tree) ;; Sets EViL up to use undo (after a

  ;; weird 2020 patch)

  (setq evil-want-C-u-scroll t)) ;; Activates c-u scroll to above.

;; About smooth-scrolling: I'd normally just use some variables for scrolling

;; but they all fail with org-mode. This package fixes everything that's wrong for me.

(use-package smooth-scrolling

   :config

   (smooth-scrolling-mode 1))

(use-package org

  :ensure t

  :pin "org"

  ; FIXME This causes some errors with bind-keys or what have you. Commented

  ; until it is fixed.

  ;:bind (:bind-keymap

  ;        ("C-c x" . org-todo-state-map)

  ;       :map org-todo-state-map

  ;        ("x" . #'(lambda nil (interactive) (org-todo "CANCELLED")))

  ;        ("d" . #'(lambda nil (interactive) (org-todo "DONE")))

  ;        ("f" . #'(lambda nil (interactive) (org-todo "DEFERRED")))

  ;        ("l" . #'(lambda nil (interactive) (org-todo "DELEGATED")))

  ;        ("s" . #'(lambda nil (interactive) (org-todo "STARTED")))

  ;        ("w" . #'(lambda nil (interactive) (org-todo "WAITING"))))

;         :map org-mode-map

;          ("C-c x" . org-todo-state-map))

   :init

  (define-key mode-specific-map [?a] 'org-agenda)

  :custom

  ;; Because I use XeLaTeX (it's objectively better), some variables need to be

  ;; set so org-mode knows what to call.

  ;; Okay, so you cán export asynchronous so compiling your PDF doesn't lock up

  ;; the editor completely, but for one reason or another, you MUST set the

  ;; async-debug to nil. Otherwise it will constantly "exit abnormally" without

  ;; reason. This fixes it, who knows why.

  (org-export-async-debug nil)

  (org-latex-compiler 'xelatex)  ; Makes sure the XeLaTeX compiler is used

  ; Tells Org to use dvisvgm because dvipng does not support XeLaTeX's output format

  (org-preview-latex-default-process 'dvisvgm)

  ; This edits the preview process so it works correctly with XeLaTeX.

  ; Changes: 

  ; - "latex" to "xelatex" 

  ; - Added the "-no-pdf" flag so it prints an XDV file instead of PDF.

  ; - change input type from dvi to xdv

  ; - Only leave the dvisvgm option because I don't need the others

  (org-preview-latex-process-alist

   (quote

    ((dvisvgm :programs

              ("xelatex" "dvisvgm")

              :description "dvi > svg" :message "you need to install the programs: xelatex and dvisvgm." :use-xcolor t :image-input-type "xdv" :image-output-type "svg" :image-size-adjust

              (1.7 . 1.5)

              :latex-compiler

              ("xelatex -interaction nonstopmode -no-pdf -output-directory %o %f")

              :image-converter

              ("dvisvgm %f -n -b min -c %S -o %O")))))

  ;; Sets the formatting options. I only changed :scale to 1.6, but I don't know

  ;; how to change only thát, so for now I'm configuring the entire variable

  (org-format-latex-options (quote

   (:foreground default :background default :scale 1.6 :html-foreground "Black" :html-background "Transparent" :html-scale 1.0 :matchers

             ("begin" "$1" "$" "$$" "\\(" "\\["))))

  ;; Sets the directory in which the preview fragments are stored to the /tmp

  ;; folder. Otherwise it clutters up the folder in which the source resides

  ;; with what are essentially cache files.

  (org-preview-latex-image-directory "/tmp/ltximg/")

  ;; Following customizations are in regard to org-agenda configuration.

  (org-agenda-files (quote ("~/shared/planning/planning.org")))

  (org-default-notes-file "~/shared/planning/notes.org")

  (org-agenda-span 62)

  (org-deadline-warning-days 14)

  (org-agenda-show-all-dates t)

  (org-agenda-skip-deadline-if-done t)

  (org-agenda-skip-scheduled-if-done t)

  (org-agenda-start-on-weekday nil)

  (org-reverse-note-order t)

  (org-fast-tag-selection-single-key (quote expert))

  (org-agenda-custom-commands

    (quote (("d" todo "DELEGATED" nil)

      ("c" todo "DONE|DEFERRED|CANCELED" nil)

      ("w" todo "WAITING" nil)

      ("W" agenda "" ((org-agenda-ndays 21)))

      ("A" agenda ""

        ((org-agenda-skip-function

          (lambda nil

      (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]")))

        (org-agenda-ndays 1)

        (org-agenda-overriding-header "Today's Priority #A tasks: ")))

      ("u" alltodo ""

        ((org-agenda-skip-function

          (lambda nil

      (org-agenda-skip-entry-if (quote scheduled) (quote deadline)

              (quote regexp) "\n]+>")))

        (org-agenda-overriding-header "Unscheduled TODO entries: "))))))

  (org-capture-store-without-prompt t)

  (org-capture-templates

    (quote ((116 "* TODO %?\n  %u" "~/Repositories/private/org/planning.org" "Tasks")

      (110 "* %u %?" "~/Repositories/private/org/notes.org" "Notes"))))

  (capture-annotation-functions (quote (org-capture-annotation)))

  (capture-handler-functions (quote (org-capture-handler))))

  ;:general

  ;(local-leader-def

  ;  :states 'normal

  ;  :keymaps 'org-mode-map

;	"e" 'org-export-dispatch

;	"x" 'org-table-export

;	"." 'org-time-stamp

;	"t" 'org-twbs-export-to-html

;	"s" 'org-schedule

;	"d" 'org-deadline

;	"'" 'org-edit-special)

;  :config

;  ;; log todo items with timestamp

;  (setq org-log-done 'time))

;; XXX: I've opted not to use Cider for now because Clojure-mode and Company

;; already give enough completion and fast enough that I don't really feel like

;; I need this for now. I'll add it later when it's more useful.

(use-package cider

  :ensure t)

;  :ensure t

;  :hook clojure-mode)

  ;:mode "\\.clj\\'")

;; TODO See what can be deleted from helm config while still having all the

;; wanted functionality

(use-package helm

  :ensure t

  :hook (after-init . helm-mode)

  :commands (helm-autoresize-mode)

  :init

  ;; (defvar helm-google-suggest-use-curl-p)

  (defvar helm-ff-search-library-in-sexp)

  (defvar helm-echo-input-in-header-line)

  (defvar helm-ff-file-name-history-use-recentf)

  :general

  (general-define-key

   "M-x" 'helm-M-x

   "M-:" 'helm-eval-expression

   "C-c h" 'helm-command-prefix)

  (general-define-key

   :keymaps 'helm-map

   "<tab>" 'helm-execute-persistent-action

   "C-i" 'helm-execute-persistent-action

   "C-z" 'helm-select-action)

  (my-leader-def

	:states 'normal

	"bb" 'helm-buffers-list

	"ff" 'helm-find-files

	"p" 'helm-show-kill-ring)

  :config

  (setq helm-split-window-inside-p           t ; open helm buffer inside current window, not occupy whole other window

	helm-move-to-line-cycle-in-source     t ; move to end or beginning of source when reaching top or bottom of source.

	helm-ff-search-library-in-sexp        t ; search for library in `require' and `declare-function' sexp.

	helm-scroll-amount                    8 ; scroll 8 lines other window using m-<next>/m-<prior>

	helm-ff-file-name-history-use-recentf t

	helm-echo-input-in-header-line t)

  ;; hide some autogenerated files from helm

  (setq helm-ff-skip-boring-files t)

  ;; (add-to-list 'helm-boring-file-regexp-list "\\~$")

  (setq helm-autoresize-max-height 0)

  (setq helm-autoresize-min-height 20)

  (helm-autoresize-mode 1))

(use-package rainbow-delimiters

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

;; Font settings, ligatures and symbol config

(set-frame-font "Hack 13" nil t)

(use-package pretty-mode

    :ensure t

    :init

    (global-pretty-mode t)

    (pretty-deactivate-groups

     '(:equality :ordering :ordering-double :ordering-triple

                 :arrows :arrows-twoheaded :punctuation

                 :logic :sets))

    (pretty-activate-groups

     '(:sub-and-superscripts :greek :arithmetic-nary)))

(global-prettify-symbols-mode 1)

(add-hook

 'python-mode-hook

 (lambda ()

   (mapc (lambda (pair) (push pair prettify-symbols-alist))

         '(;; Syntax

           ("def" .      #x2131)

           ("not" .      #x2757)

           ("in" .       #x2208)

           ("not in" .   #x2209)

           ("return" .   #x27fc)

           ("yield" .    #x27fb)

           ("for" .      #x2200)

           ;; Base Types

           ("int" .      #x2124)

           ("float" .    #x211d)

           ("str" .      #x1d54a)

           ("True" .     #x1d54b)

           ("False" .    #x1d53d)

           ;; Mypy

           ("Dict" .     #x1d507)

           ("List" .     #x2112)

           ("Tuple" .    #x2a02)

           ("Set" .      #x2126)

           ("Iterable" . #x1d50a)

           ("Any" .      #x2754)

           ("Union" .    #x22c3)))))

;; Settings for having an LaTeX beamer class export tool

(unless (boundp 'org-export-latex-classes)

(setq org-export-latex-classes nil))

(add-to-list 'org-export-latex-classes

;; beamer class, for presentations

'("beamer"

    "\\documentclass[11pt]{beamer}\n

    \\mode<{{{beamermode}}}>\n

    \\usetheme{{{{beamertheme}}}}\n

    \\usecolortheme{{{{beamercolortheme}}}}\n

    \\beamertemplateballitem\n

    \\setbeameroption{show notes}

    \\usepackage[utf8]{inputenc}\n

    \\usepackage[T1]{fontenc}\n

    \\usepackage{hyperref}\n

    \\usepackage{color}

    \\usepackage{listings}

    \\lstset{numbers=none,language=[ISO]C++,tabsize=4,

frame=single,

basicstyle=\\small,

showspaces=false,showstringspaces=false,

showtabs=false,

keywordstyle=\\color{blue}\\bfseries,

commentstyle=\\color{red},

}\n

    \\usepackage{verbatim}\n

    \\institute{{{{beamerinstitute}}}}\n          

    \\subject{{{{beamersubject}}}}\n"

    ("\\section{%s}" . "\\section*{%s}")

    ("\\begin{frame}[fragile]\\frametitle{%s}"

    "\\end{frame}"

    "\\begin{frame}[fragile]\\frametitle{%s}"

    "\\end{frame}")))

;; Adds a letter class, for formal letters

(add-to-list 'org-export-latex-classes

'("letter"

    "\\documentclass[11pt]{letter}\n

    \\usepackage[utf8]{inputenc}\n

    \\usepackage[T1]{fontenc}\n

    \\usepackage{color}"

    ("\\section{%s}" . "\\section*{%s}")

    ("\\subsection{%s}" . "\\subsection*{%s}")

    ("\\subsubsection{%s}" . "\\subsubsection*{%s}")

    ("\\paragraph{%s}" . "\\paragraph*{%s}")

    ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))

;(require 'ycmd)

;(add-hook 'after-init-hook #'global-ycmd-mode)

(custom-set-faces

 ;; custom-set-faces was added by Custom.

 ;; If you edit it by hand, you could mess it up, so be careful.

 ;; Your init file should contain only one such instance.

 ;; If there is more than one, they won't work right.

 )