;; Use more memory to reduce garbage collection calls
(setq gc-cons-threshold (* 8 1024 1024)) ;; 8 MB

;; Default changes
(setq inhibit-startup-message t)
(scroll-bar-mode -1)
(tool-bar-mode -1)
(tooltip-mode -1)
(menu-bar-mode -1)
(setq visible-bell t)
(setq warning-minimum-level :error)
(global-visual-line-mode)
(setq initial-major-mode 'org-mode) ;; Scratch buffer is org mode
;; Line Numbers
(global-display-line-numbers-mode t)
(column-number-mode)

;; Disable line num on these modes
(dolist (mode '(term-mode-hook
		shell-mode-hook
		treemacs-mode-hook
		eshell-mode-hook))
  (add-hook mode (lambda () (display-line-numbers-mode 0))))
 
;; set up use-package
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/"))
(package-initialize)

(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

(setq use-package-always-ensure t)
(setq use-package-expand-minimally t)

;; Ivy
(use-package ivy
  :ensure t
  :diminish
  :config
  (ivy-mode 1))

(use-package counsel
  :ensure t
  :after ivy
  :bind (("M-x" . counsel-M-x)
	 ("C-x b" . counsel-ibuffer)
	 ("C-x C-f" . counsel-find-file)
	 :map minibuffer-local-map
	 ("C-r" . 'counsel-minibuffer-history))
  :config
  (setq ivy-initial-inputs-alist nil)) ;; Don't start searches with ^

(use-package ivy-rich
  :ensure t
  :config (ivy-rich-mode 1))

;; Evil Mode
(use-package evil
  :ensure t
  :init (setq evil-want-C-u-scroll t)
  :config
  (evil-mode 1)
  (evil-set-undo-system 'undo-redo))

(use-package evil-org
  :ensure t
  :after org
  :hook (org-mode . evil-org-mode)
  :config
  (require 'evil-org-agenda)
  (evil-org-agenda-set-keys)
  (setq evil-want-C-i-jump nil))

;; Theme
(use-package gruvbox-theme
  :ensure t
  :config (load-theme 'gruvbox-dark-hard t))
;;(load-theme 'modus-vivendi)

(use-package doom-modeline
  :ensure t
  :init (doom-modeline-mode 1)
  :config (setq doom-modeline-height 15))

;; Projects
(use-package projectile
  :ensure t
  :diminish projectile-mode
  :config (projectile-mode)
  :custom ((projectile-completion-system 'ivy))
  :bind-keymap ("C-c p" . projectile-command-map))

(use-package magit)
  :ensure t
;; TODO Look into forge for git community engagement

;; Make M-x all-the-icons-install-fonts and M-x nerd-icons-install-fonts available
(use-package all-the-icons
  :ensure t
  :if (display-graphic-p))

;; Quality of life
(use-package rainbow-delimiters
  :ensure t
  :hook (prog-mode . rainbow-delimiters-mode))

(use-package which-key
  :ensure t
  :init (which-key-mode)
  :diminish which-key-mode
  :config
  (setq which-key-idle-delay 0.3))

(use-package helpful
  :ensure t
  :custom
  (counsel-describe-function-function #'helpful-callable)
  (counsel-describe-variable-function #'helpful-variable)
  :bind
  ([remap describe-function] . counsel-describe-function)
  ([remap describe-command] . helpful-command)
  ([remap describe-variable] . counsel-describe-variable)
  ([remap describe-key] . helpful-key))

;; Org mode
(use-package org
  :ensure t)
(use-package org-roam
  :ensure t
  :hook (org-mode . company-mode)
  :custom
  (org-roam-node-display-template
      (concat "${title:*} " (propertize "${tags:20}" 'face 'org-tag)))
  (org-roam-directory "/home/warwick/Sync/wiki/org/roam/")
  (org-roam-capture-templates
   '(("d" "default" plain "%?" :target
      (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n#+date: %U\n")
      :unnarrowed t)
     ("l" "literature" plain (file "~/.emacs.d/org-roam-templates/literature.org") :target
      (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n#+date: %U\n#+filetags: :literature:\n")
      :unnarrowed t)
     ("p" "project" plain (file "~/.emacs.d/org-roam-templates/project.org") :target
      (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n#+date: %U\n#+filetags: :project:${title}:\n")
      :unnarrowed t)
     ("f" "fleeting" plain "%?" :target
      (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n#+date: %U\n#+filetags: :tofile:")
      :unnarrowed t)))
  :bind (("C-c n l" . org-roam-buffer-toggle)
         ("C-c n f" . org-roam-node-find)
         ("C-c n i" . org-roam-node-insert)
         ("C-c n c" . org-roam-capture)
         ("C-c n h" . org-idn-get-create)
         ("C-c n a" . org-roam-alias-add)
	 ("C-c n t" . org-roam-tag-add))
  :bind-keymap
  ("C-c n d" . org-roam-dailies-map)
  :config
  (require 'org-roam-dailies) ;; ensure dailies keymap is available
  (require 'org-roam-export) ;; Ensure links are exported properly
  (org-roam-db-autosync-mode 1)
  (setq org-roam-completion-everywhere t))
(use-package websocket
  :ensure t
  :after org-roam)
(use-package org-roam-ui
  :ensure t
  :bind ("C-c n u" . org-roam-ui-mode)
  :after org-roam
;;         normally we'd recommend hooking orui after org-roam, but since org-roam does not have
;;         a hookable mode anymore, you're advised to pick something yourself
;;         if you don't care about startup time, use
;;  :hook (after-init . org-roam-ui-mode)
  :config
  (setq org-roam-ui-sync-theme t
        org-roam-ui-follow t
        org-roam-ui-update-on-save t
        org-roam-ui-open-on-start t))
(use-package org-bullets
  :ensure t
  :after org
  :hook (org-mode . org-bullets-mode))
(setq org-adapt-indentation t) ;; Set up correct indent on all org mode files
;; TODO configure to be prettier

;; Tree Sitter (better syntax highlighting)
(use-package tree-sitter
  :ensure t)
(use-package tree-sitter-langs
  :ensure t
  :after tree-sitter
  :init
  (global-tree-sitter-mode)
  (add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode))

;; lsp-mode
(use-package lsp-mode
  :ensure t
  :init
  ;; set prefix for lsp-command-keymap (few alternatives - "C-l", "C-c l")
  (setq lsp-keymap-prefix "C-c l")
  :hook (;; replace XXX-mode with concrete major-mode(e. g. python-mode)
         (c-mode . lsp-deferred)
         (c++-mode . lsp-deferred)
	 (typescript-mode . lsp-deferred)
         ;; if you want which-key integration
         (lsp-mode . lsp-enable-which-key-integration))
  :commands (lsp lsp-deferred))
(use-package lsp-ui
  :ensure t
  :commands lsp-ui-mode)
;; if you are ivy user
(use-package lsp-ivy
  :ensure t
  :commands lsp-ivy-workspace-symbol)
(use-package lsp-treemacs
  :ensure t
  :commands lsp-treemacs-errors-list)
(use-package dap-mode
  :ensure t)
;; (use-package dap-LANGUAGE) to load the dap adapter for your language


;; company (useful for showing lsp-mode popups)
(use-package company
  :ensure t
  :after lsp-mode
  :hook (lsp-mode . company-mode)
  :bind
  (:map company-active-map
	("<tab>" . company-complete-selection))
  (:map lsp-mode-map
	("<tab>" . company-indent-or-complete-common))
  :custom
  (company-minimum-prefix-length 1)
  (company-idle-delay 0.0))
(use-package company-box
  :ensure t
  :hook (company-mode . company-box-mode))

;; TypeScript
(use-package typescript-mode
  :ensure t
  :mode ("\\.[jt]s\\'" "\\.[jt]sx\\'")
  :hook (typescript-mode . lsp-deferred)
  :config (setq typescript-indent-level 2))

;; C/C++
(add-hook 'c-mode-hook 'lsp)
(add-hook 'c++-mode-hook 'lsp)

;; TODO look into general for easy custom key bindings
;; TODO explore theme packages
;; TODO consider evil?

(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
   '("75b371fce3c9e6b1482ba10c883e2fb813f2cc1c88be0b8a1099773eb78a7176"
     "8363207a952efb78e917230f5a4d3326b2916c63237c1f61d7e5fe07def8d378"
     default))
 '(package-selected-packages
   '(all-the-icons company-box counsel dap-mode doom-modeline evil-org
		   gruvbox-theme helpful ivy-rich lsp-ivy lsp-treemacs
		   lsp-ui magit org-bullets org-roam-ui projectile
		   rainbow-delimiters tree-sitter-langs
		   typescript-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.
 )