;; -*- lexical-binding: t -*-

;; Bootstrap straight.el for package management
(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
      (bootstrap-version 5))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))
;; Disable package.el from loading at startup
(setq package-enable-at-startup nil)

;; Ensure custom writes to specific file
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
(load custom-file 'noerror 'nomessage)

;; Change the location of file backups/locks into the emacs.d/backups/
(setq backup-directory-alist
      `(("." . ,(concat user-emacs-directory "backups"))))

;;;; VISUAL

;; Disable Scroll bar, menubar
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)

;; Set custom font to Julia-Mono
(custom-set-faces
 '(default ((t (:family "JuliaMono"
			:height 150
			:weight normal)))))

;; Set location of custom theme dir
(setq custom-theme-directory (concat user-emacs-directory "themes"))
(load-theme 'UniverseHighContrast)

;;;; END VISUAL

;;;; PACKAGE INSTALL AND CONFIG

;; Set the packagemanager of use-package
(setq straight-use-package-by-default t)

;; Default to lazy loading
(setq use-package-always-defer t)
;; Ensure use-package.el is installed
(straight-use-package 'use-package)

;; Load font ligatures, fancy arrows etc.
(use-package ligature
  :straight (ligature
	     :package "ligature"
	     :host github
	     :type git
	     :repo "mickeynp/ligature.el")
  :config
  ;; Enable the "www" ligature in every possible major mode
  (ligature-set-ligatures 't '("www"))
  ;; Enable traditional ligature support in eww-mode, if the
  ;; `variable-pitch' face supports it
  (ligature-set-ligatures 'eww-mode '("ff" "fi" "ffi"))
  ;; Enable all Cascadia Code ligatures in programming modes
  (ligature-set-ligatures 'prog-mode '("|||>" "<|||" "<==>" "<!--" "####" "~~>" "***" "||=" "||>"
                                       ":::" "::=" "=:=" "===" "==>" "=!=" "=>>" "=<<" "=/=" "!=="
                                       "!!." ">=>" ">>=" ">>>" ">>-" ">->" "->>" "-->" "---" "-<<"
                                       "<~~" "<~>" "<*>" "<||" "<|>" "<$>" "<==" "<=>" "<=<" "<->"
                                       "<--" "<-<" "<<=" "<<-" "<<<" "<+>" "</>" "###" "#_(" "..<"
                                       "..." "+++" "/==" "///" "_|_" "www" "&&" "^=" "~~" "~@" "~="
                                       "~>" "~-" "**" "*>" "*/" "||" "|}" "|]" "|=" "|>" "|-" "{|"
                                       "[|" "]#" "::" ":=" ":>" ":<" "$>" "==" "=>" "!=" "!!" ">:"
                                       ">=" ">>" ">-" "-~" "-|" "->" "--" "-<" "<~" "<*" "<|" "<:"
                                       "<$" "<=" "<>" "<-" "<<" "<+" "</" "#{" "#[" "#:" "#=" "#!"
                                       "##" "#(" "#?" "#_" "%%" ".=" ".-" ".." ".?" "+>" "++" "?:"
                                       "?=" "?." "??" ";;" "/*" "/=" "/>" "//" "__" "~~" "(*" "*)"
                                       "\\\\" "://"))
  ;; Enables ligature checks globally in all buffers. You can also do it
  ;; per mode with `ligature-mode'.
  (global-ligature-mode t))

;; Ensure shell variables are loaded
(use-package exec-path-from-shell :demand
	     :init
	     (exec-path-from-shell-initialize)
	     )

;; Profiling
;; (use-package esup)

;; Prevents emacs and packages from messily writing to dirs
(use-package no-littering
	     :demand t)

;; Version control
(use-package magit)

;;;; Nix Related

;; Nix direnv support
(use-package direnv
  :demand t
  :config
  (direnv-mode))

(use-package nix-mode)

;;;; End Nix Related

;;;; Web Related
(use-package web-mode
  :mode
  (
   ".phtml$"
   ".html?$"
   ".djtml$"
   ".jsx?$"
   ".tsx?$"
   )
  )

(use-package php-mode)
;;;; End Web related

;;;; Yaml
(use-package yaml-mode)

;;;; Company Related
(use-package company :demand t
	     :bind
	     (("C-<tab>" . company-complete))
	     :custom-face
	     (company-preview ((t (:background "#000000" :foreground "#ffffff"))))
	     (company-preview-common ((t (:inherit company-preview :foreground "#ff00cf"))))
	     (company-preview-search ((t (:inherit company-preview :background "black"))))
	     (company-scrollbar-bg ((t (:background "grey35"))))
	     (company-scrollbar-fg ((t (:background "#a22390"))))
	     (company-template-field ((t (:background "grey75" :foreground "black"))))
	     (company-tooltip ((t (:background "#353535" :foreground "white"))))
	     (company-tooltip-common ((t (:foreground "magenta"))))
	     (company-tooltip-mouse ((t (:inherit company-tooltip-selection))))
	     (company-tooltip-search ((t (:inherit company-tooltip-selection))))
	     (company-tooltip-search-selection ((t (:inherit company-tooltip-selection))))
	     (company-tooltip-selection ((t (:background "#4584a2" :foreground "white"))))
	     )
(add-hook 'after-init-hook 'global-company-mode)

;; LSP related
(use-package lsp-haskell)
(use-package lsp-mode
  :demand t
  :init
  (setq lsp-keymap-prefix "C-c l")
  :hook
  (
   (dart-mode . lsp)
   (python-mode . lsp)
   (c-mode . lsp)
   (c++-mode . lsp)
   (haskell-mode . lsp)
   (java-mode . lsp)
   (rust-mode . lsp)
   ;; which key support v v v
   (lsp-mode . lsp-enable-which-key-integration)
   )
  :commands lsp)

;; optionally
(use-package lsp-ui :commands lsp-ui-mode)
;; if you are helm user
(use-package helm-lsp :commands helm-lsp-workspace-symbol)
;; if you are ivy user
(use-package lsp-ivy :commands lsp-ivy-workspace-symbol)
(use-package lsp-treemacs :commands lsp-treemacs-errors-list)

;; optionally if you want to use debugger
(use-package dap-mode)
;; (use-package dap-LANGUAGE) to load the dap adapter for your language
;; optional if you want which-key integration
(use-package which-key
	     :config
	     (which-key-mode))
;; END LSP related

;; projectile
(use-package projectile
	     :commands projectile-mode)
(projectile-mode +1)
;; Recommended keymap prefix on macOS
(define-key projectile-mode-map (kbd "s-p") 'projectile-command-map)
;; projectile

;; Python
(use-package python-mode
  :straight (python-mode
	     :package "python-mode"
	     :host gitlab
	     :type git
	     :repo "python-mode-devs/python-mode"))

(setq python-shell-interpreter "ipython"
      python-shell-interpreter-args "-i --simple-prompt --InteractiveShell.display_page=True")

;; Java related
(use-package lsp-java
  :hook (
	 (java-mode . lsp)
	 )
  )

;; C related
(use-package company-ctags)
(use-package company-c-headers)
(use-package meson-mode)

;; Haskell
(use-package company-ghci)
;;;; End Company Related

;; Rust related
(use-package rust-mode)
;; End Rust

;; Minecraft Functions
(use-package mcf-mode
  :straight (mcf-mode
	     :package "mcf-mode"
	     :host github
	     :type git
	     :repo "rasensuihei/mcf"))
  
;; End Minecraft Functions

;;;; FPGA Related
(use-package verilog-mode)
(use-package vhdl-mode)

;;;; Haskell Related
(use-package haskell-mode
	     :config
	     (setq haskell-mode-hook '(flyspell-prog-mode interactive-haskell-mode))
	     )
(use-package lsp-haskell)

(use-package ghci-completion)
;;;; End Haskell Related

;;;; NEURON Related
;; -- TODO
;;;; END NEURON Related

;;; Lisp / Parentheses Related
(use-package rainbow-delimiters
	     :commands rainbow-delimiters-mode
	     :hook (
		    (emacs-lisp-mode . rainbow-delimiters-mode)
		    (geiser-mode . rainbow-delimiters-mode)
		    )
	     :custom-face
	     (rainbow-delimiters-depth-1-face ((t (:foreground "#69f"))) )
	     (rainbow-delimiters-depth-2-face ((t (:foreground "#39b"))) )
	     (rainbow-delimiters-depth-3-face ((t (:foreground "#278"))) )
	     (rainbow-delimiters-depth-4-face ((t (:foreground "#281"))) )
	     (rainbow-delimiters-depth-5-face ((t (:foreground "#047"))) )
	     (rainbow-delimiters-depth-6-face ((t (:foreground "#138"))) )
	     (rainbow-delimiters-depth-7-face ((t (:foreground "#708"))) )
	     (rainbow-delimiters-depth-8-face ((t (:foreground "#920"))) )
	     )
(use-package paredit
	     :hook (
		    (emacs-lisp-mode . paredit-mode)
		    (geiser-mode . paredit-mode)
		    )
	     )
;;; End Lisp / Parentheses Related

;;;; Racket Related
(use-package geiser-racket)
;;;; End Racket Related

;;;; Org Related

;; FlySpell
(use-package flyspell)
(setq flyspell-issue-message-flag nil
      ispell-local-dictionary "en_GB"
      ispell-program-name "aspell"
      ispell-list-command "--list")

;; Completion engine
(use-package ivy-bibtex)
;; Interactive menus
(use-package helm-bibtex)
;; PDF preview etc.
(use-package pdf-tools)
;; References etc.
(use-package org-ref)

(use-package org
	     :straight (:type built-in)
	     :config
	     (require 'doi-utils)
	     (require 'org-ref)
	     (require 'org-ref-ivy)
	     (require 'org-ref-helm)
	     (require 'org-tempo)

	     (setq org-src-fontify-natively t
		   org-confirm-babel-evaluate nil
		   org-src-preserve-indentation t)
	     
	     (setq bibtex-completion-bibliography
		   (list (expand-file-name "~/Documents/Bibliography/references.bib")))

	     (setq org-ref-bibliography-notes "~/Documents/Bibliography/notes.org"
		   org-ref-default-bibliography '("~/Documents/Bibliography/references.bib")
		   org-ref-pdf-directory "~/Documents/Bibliography/bibtex-pdfs/")

	     (setq org-ref-insert-link-function 'org-ref-insert-link-hydra/body
		   org-ref-insert-cite-function 'org-ref-cite-insert-helm
		   org-ref-insert-label-function 'org-ref-insert-label-link
		   org-ref-insert-ref-function 'org-ref-insert-ref-link
		   org-ref-cite-onclick-function (lambda (_) (org-ref-citation-hydra/body)))

	     (define-key org-mode-map (kbd "C-c ]") 'org-ref-insert-link)
	     (define-key org-mode-map (kbd "s-[") 'org-ref-insert-link-hydra/body)
	     
	     (tempo-define-template
	      "Lab Template" '("#+TITLE: PHY324: LAB TITLE"n
			       "#+AUTHOR: ***REMOVED*** | ***REMOVED***"n
			       "#+DATE: \\today"n
			       "#+LATEX_HEADER: \\usepackage{natbib}"n
			       "#+LATEX_HEADER: \\usepackage{float}"n
			       "#+LATEX_CLASS: labtemplate"n
			       "#+OPTIONS: toc:nil"n
			       ""n
			       "* Abstract:"n
			       "* Introduction:"n > p
			       "* Methods:"n
			       "* Results:"n
			       "* Discussion:"n
			       "bibliographystyle:ieeetr"n
			       "bibliography:~/Documents/Bibliography/references.bib" >)
	      "<LAB" "Insert Lab Template With Headings")
	     (tempo-define-template "Fig. Caption"
				    '("" (P "Image: " image t)
				      (P "Caption: " caption t)
				      (P "Figure Name: " name t)
				      "#+CAPTION: " (s caption) > n >
				      "#+NAME: fig:" (s name) > n >
				      "#+ATTR_LaTeX: :placement [H]" > n >
				      "[[" (s image) "]]" > n > p >)
				    "<fig" "Inserts Figure with Caption")
	     (with-eval-after-load 'ox-latex
	       (add-to-list 'org-latex-packages-alist '("" "minted"))
	       (setq org-latex-listings 'minted) 
	       
	       (add-to-list 'org-latex-classes
			    '("labtemplate" "\\documentclass{labtemplate}"
			      ("\\section{%s}" . "\\section*{%s}")
			      ("\\subsection{%s}" . "\\subsection*{%s}")
			      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
			      ("\\paragraph{%s}" . "\\paragraph*{%s}")
			      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
			    )
	       
	       (setq org-latex-pdf-process
		     '("%latex -shell-escape -interaction nonstopmode -output-directory %o %f"
		       "%latex -shell-escape -interaction nonstopmode -output-directory %o %f"
		       "bibtex %b"
		       "%latex -shell-escape -interaction nonstopmode -output-directory %o %f"
		       "%latex -shell-escape -interaction nonstopmode -output-directory %o %f")))
	     )
(use-package ox-pandoc
	     :after org)
;; better TEX
(use-package auctex
	     :after org)

;; Plotting support
(use-package gnuplot)

;;Org Auto Wrap Config
(add-hook 'org-mode-hook 'auto-fill-mode)
(set-fill-column 100)
;;;; End Org Related

;; ghci-completion company-ghci
;; exec-path-from-shell nix-haskell-mode haskell-mode
;; pyvenv rainbow-mode company-ctags company-jedi
;; company-anaconda anaconda-mode matlab-mode markdown-mode company-irony-c-headers company-irony irony rust-mode company-c-headers cdlatex auctex use-package smog conda gnuplot php-mode web-mode org-ref pdf-tools chess

;;; Flutter Related
(use-package dart-mode)
(use-package lsp-dart)
;;; End Flutter Related

;;; BQN
(use-package bqn-mode
  :straight (bqn-mode
	     :package "bqn-mode"
	     :host github
	     :type git
	     :repo "museoa/bqn-mode"
	     )
  :config
  (set-face-attribute 'bqn-list-face nil :family 'unspecified)
  (set-face-attribute 'bqn-separator-face nil :family 'unspecified)
  (set-face-attribute 'bqn-arrow-face nil :family 'unspecified)
  (set-face-attribute 'bqn-function-face nil :family 'unspecified)
  (set-face-attribute 'bqn-one-modifier-face nil :family 'unspecified)
  (set-face-attribute 'bqn-two-modifier-face nil :family 'unspecified)
  (set-face-attribute 'bqn-subject-face nil :family 'unspecified)
  (set-face-attribute 'bqn-nothing-face nil :family 'unspecified)
  )

;;; END-BQN

;;;; END PACKAGES