Sandy's .emacs.d

(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)

;; Instea of putting *~ backups in current directory,
;; put them in local .saves
(setq backup-directory-alist `(("." . ".saves")))

;; Just to stop spamming backup files
(setq delete-old-versions t
      kept-new-versions 6
      kept-old-versions 2
      version-control t)

;; Give emacs some RAW power, yes
(setq gc-cons-threshold 100000000)
(setq read-process-output-max (* 1024 1024)) ;; 1mb

(setq lsp-log-io nil) ; if set to true can cause a performance hit

;; Configure LSP-UI by https://emacs-lsp.github.io/lsp-ui/
;; Optional - provides fancier overlays.
(use-package lsp-ui
  :ensure t
  :commands lsp-ui-mode)

;; Sideline options
(setq lsp-ui-sideline-show-diagnostics t)
(setq lsp-ui-sideline-show-hover nil)
(setq lsp-ui-sideline-show-code-actions t)
(setq lsp-ui-sideline-update-mode nil)

(setq lsp-clients-clangd-args '("--header-insertion-decorators=0"))

(require 'rjsx-mode)
(add-to-list 'auto-mode-alist '("\\.jsx\\'" . rjsx-mode))
(add-to-list 'auto-mode-alist '("\\.tsx\\'" . rjsx-mode))

(use-package lsp-mode
  :hook ((go-mode . lsp)
         (rust-mode . lsp)
         (c++-mode . lsp)
         (c-mode . lsp)
         (js-mode . lsp)
         (html-mode . lsp)
         (python-mode . lsp)
         (haskell-mode . lsp)
         (elm-mode . lsp)
         (js-mode . lsp)
         (ruby-mode . lsp)
         ;; (sh-mode . lsp)
         (rjsx-mode . lsp)
         (zig-mode . lsp)
         (css-mode . lsp)
         (java-mode . lsp)
         (lsp-mode . lsp-enable-which-key-integration))
  :commands lsp)

(use-package lsp-pyright
  :ensure t
  :hook (python-mode . (lambda ()
                         (require 'lsp-pyright)
                         (lsp))))  ; or lsp-deferred

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

(global-set-key (kbd "C-c f") 'lsp-find-definition)
(global-set-key (kbd "C-c b") 'lsp-find-references)

;; Optional - provides snippet support.
(use-package yasnippet
  :ensure t
  :commands yas-minor-mode
  :hook ((go-mode . yas-minor-mode)
         (c++-mode . yas-minor-mode)))

;; Set up before-save hooks to format buffer and add/delete imports.
;; Make sure you don't have other gofmt/goimports hooks enabled.
(defun lsp-go-install-save-hooks ()
  (add-hook 'before-save-hook #'lsp-format-buffer t t)
  (add-hook 'before-save-hook #'lsp-organize-imports t t))
(add-hook 'go-mode-hook #'lsp-go-install-save-hooks)

(lsp-register-custom-settings
 '(("gopls.completeUnimported" t t)
   ("gopls.staticcheck" t t)))

;;Company mode is a standard completion package that works well with lsp-mode.
;;company-lsp integrates company mode completion with lsp-mode.
;;completion-at-point also works out of the box but doesn't support snippets.

(use-package company
  :ensure t
  :config
  (setq company-idle-delay 0)
  (setq company-minimum-prefix-length 1)
  :bind ("M-<tab>" . company-complete))

(use-package company-lsp
  :ensure t
  :commands company-lsp)

;; (require 'company-box)
;; (add-hook 'company-mode-hook 'company-box-mode)

;; Set the python interpreter right to ARM python3
;; (setq python-shell-interpreter "/opt/homebrew/Caskroom/miniconda/base/envs/naked-snake/bin/python3.9")
;; (setq lsp-pyright-python-executable-cmd python-shell-interpreter)

(lsp-register-custom-settings
 `(("python.pythonPath" "/opt/homebrew/bin/python3")))

(setq lsp-ui-doc-enable t)
(setq lsp-ui-doc-delay 0.1)
(setq lsp-ui-doc-header nil)
(setq lsp-ui-doc-show-with-cursor t)
(setq lsp-ui-doc-show-with-mouse t)

;; Add the zig lsp mode executable path for zls
(setq lsp-zig-zls-executable "/Users/thecsw/gits/zls/zig-out/bin/zls")

;; Enable dashboard
(require 'dashboard)
;; Add the hook
(dashboard-setup-startup-hook)
;; Set the dashboard as the default buffer
(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
;; Set the title
(setq dashboard-banner-logo-title "Sandy's Emacs")
;; Set the banner
(setq dashboard-startup-banner 'logo)
(setq dashboard-show-shortcuts nil)
(setq dashboard-week-agenda nil)
(setq dashboard-items '((recents  . 5)
                        (projects . 5)))
(setq dashboard-set-heading-icons t)

(global-set-key (kbd "C-x g") 'magit-status)

;; Default to ssh when using tramp
(setq tramp-default-method "ssh")

;; Fuzzy command complete on M-x
;(global-set-key (kbd "M-x") 'smex)

;; I like lush and use it by default
(load-theme 'lush t)
;;(load-theme 'uwu t)

(setq org-capture-templates
      '(("c" "Cookbook" entry (file "~/org/cookbook.org")
         "%(org-chef-get-recipe-from-url)"
         :empty-lines 1)
        ("m" "Manual Cookbook" entry (file "~/org/cookbook.org")
         "* %^{Recipe title: }\n  :PROPERTIES:\n  :source-url:\n  :servings:\n  :prep-time:\n  :cook-time:\n  :ready-in:\n  :END:\n** Ingredients\n   %?\n** Directions\n\n")))

(setq org-startup-folded t)

;; Add the Unicode bullets package
(require 'org-bullets)
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))

;; Add timestamp when marked DONE
(setq org-log-done 'time)

;; Use org-ref
(setenv "PATH" (concat (getenv "PATH") ":/Library/TeX/texbin"))
(setenv "PATH" (concat (getenv "PATH") ":/Users/thecsw/Library/Python/3.9/bin"))
(require 'org)
(require 'ox-latex)

(define-key org-mode-map (kbd "C-c ]") 'org-ref-insert-cite-link)

(require 'bibtex)

(setq bibtex-autokey-year-length 4
        bibtex-autokey-name-year-separator "-"
        bibtex-autokey-year-title-separator "-"
        bibtex-autokey-titleword-separator "-"
        bibtex-autokey-titlewords 2
        bibtex-autokey-titlewords-stretch 1
        bibtex-autokey-titleword-length 5
        org-ref-bibtex-hydra-key-binding (kbd "H-b"))

(define-key bibtex-mode-map (kbd "H-b") 'org-ref-bibtex-hydra/body)

(add-to-list 'org-latex-packages-alist '("" "minted"))
(setq org-latex-listings 'minted)

(setq org-latex-custom-lang-environments
      '(
        (emacs-lisp "common-lispcode")
        ))
(setq org-latex-minted-options
      '(("frame" "lines")
        ("fontsize" "\\footnotesize")
        ;;   ("linenos" "")
        ("obeytabs" "")
        ("mathescape" "")
        ("numbersep" "5pt")
        ("numbersep" "2mm")
        ("xleftmargin" "0.25in")))

;; Build nonstopmode with xelatex
(setq org-latex-pdf-process
      '("xelatex -shell-escape -8bit -interaction nonstopmode -output-directory %o %b %f"
        "bibtex %b"
        "makeindex %b"
        "xelatex -shell-escape -8bit -interaction nonstopmode -output-directory %o %b %f"
        "xelatex -shell-escape -8bit -interaction nonstopmode -output-directory %o %b %f"))

(setq org-src-fontify-natively t)

(org-babel-do-load-languages
 'org-babel-load-languages
 '((R . t)
   (latex . t)))

(setf (nth 4 org-emphasis-regexp-components) 10)
(load-library "org")

;; Press C-c c to open git-messenge
(global-set-key (kbd "C-c c") 'git-messenger:popup-message)
(custom-set-variables
 '(git-messenger:use-magit-popup t))

(setq olivetti-body-width 80)

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

(global-set-key (kbd "<f5>") #'deadgrep)

(global-anzu-mode +1)

(put 'narrow-to-region 'disabled nil)

(which-key-mode)

(projectile-mode +1)
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)

(add-hook 'gemini-mode-hook '(lambda () (setq fill-column 80)))
(add-hook 'gemini-mode-hook 'turn-on-auto-fill)

(setq org-highlight-latex-and-related '(latex script entities))

(add-to-list 'org-latex-classes
             '("sandy-article"
               "\\documentclass[12pt]{article}
\\usepackage{graphicx}
\\usepackage{grffile}
\\usepackage{longtable}
\\usepackage{wrapfig}
\\usepackage{rotating}
\\usepackage[normalem]{ulem}
\\usepackage{amsmath}
\\usepackage{textcomp}
\\usepackage{amssymb}
\\usepackage{capt-of}
\\usepackage{hyperref}
\\usepackage{minted}
\\usepackage{amsmath}
\\usepackage{amssymb}
\\usepackage{setspace}
\\usepackage{subcaption}
\\usepackage{mathtools}
\\usepackage{xfrac}
%\\usepackage{geometry}
\\usepackage[left=1.4in, right=1.4in, bottom=1in]{geometry}
\\usepackage{marginnote}
\\usepackage[utf8]{inputenc}
\\usepackage{color}
\\usepackage{epsf}
\\usepackage{tikz}
\\usepackage{graphicx}
\\usepackage{pslatex}
\\usepackage{hyperref}

%\\usepackage{beton}
%\\usepackage{euler}
%\\usepackage[OT1]{fontenc}

%\\usepackage[T1]{fontenc}
%\\usepackage{newpxtext,eulerpx}

\\usepackage[p]{scholax}
\\usepackage[scaled=1.075,ncf,vvarbb]{newtxmath}

% this fixes wack monospace fonts and issues
\\usepackage[nomath,variablett]{lmodern}

\\usepackage{textgreek}
\\renewcommand*{\\textgreekfontmap}{%
{phv/*/*}{LGR/neohellenic/*/*}%
{*/b/n}{LGR/artemisia/b/n}%
{*/bx/n}{LGR/artemisia/bx/n}%
{*/*/n}{LGR/artemisia/m/n}%
{*/b/it}{LGR/artemisia/b/it}%
{*/bx/it}{LGR/artemisia/bx/it}%
{*/*/it}{LGR/artemisia/m/it}%
{*/b/sl}{LGR/artemisia/b/sl}%
{*/bx/sl}{LGR/artemisia/bx/sl}%
{*/*/sl}{LGR/artemisia/m/sl}%
{*/*/sc}{LGR/artemisia/m/sc}%
{*/*/sco}{LGR/artemisia/m/sco}%
}
\\makeatletter
\\newcommand*{\\rom}[1]{\\expandafter\\@slowromancap\\romannumeral #1@}
\\makeatother
\\DeclarePairedDelimiterX{\\infdivx}[2]{(}{)}{%
#1\\;\\delimsize\\|\\;#2%
}
\\newcommand{\\infdiv}{D\\infdivx}
\\DeclarePairedDelimiter{\\norm}{\\left\\lVert}{\\right\\rVert}
\\DeclarePairedDelimiter{\\ceil}{\\left\\lceil}{\\right\\rceil}
\\DeclarePairedDelimiter{\\floor}{\\left\\lfloor}{\\right\\rfloor}
\\def\\Z{\\mathbb Z}
\\def\\R{\\mathbb R}
\\def\\C{\\mathbb C}
\\def\\N{\\mathbb N}
\\def\\Q{\\mathbb Q}
\\def\\noi{\\noindent}
\\onehalfspace
\\usemintedstyle{bw}
[NO-DEFAULT-PACKAGES]
[NO-PACKAGES]"
               ("\\section{%s}" . "\\section*{%s}")
               ("\\subsection{%s}" . "\\subsection*{%s}")
               ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
               ("\\paragraph{%s}" . "\\paragraph*{%s}")
               ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))

;;;(set-frame-font "InputMono 10" nil t)
(set-face-attribute 'default nil :height 130)

(add-hook 'after-init-hook 'global-color-identifiers-mode)

(when (memq window-system '(mac ns x))
  (exec-path-from-shell-initialize))

;; ---------------------------------------------------------------------
;; GNU Emacs / N Λ N O - Emacs made simple
;; Copyright (C) 2020 - N Λ N O developers
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; ---------------------------------------------------------------------

(setq default-frame-alist
      (append (list
               '(font . "MonacoB:size=13")
               ;; '(font . "Roboto Mono Emacs Regular:size=14")
               '(min-height . 1)  '(height     . 40)
               '(min-width  . 1) '(width      . 95)
               '(vertical-scroll-bars . nil)
               '(internal-border-width . 30)
               '(left-fringe    . 0)
               '(right-fringe   . 0)
               '(tool-bar-lines . 0)
               '(menu-bar-lines . 0))))

;; on OSX, type the line below (in terminal) to get a 1 pixel border
;; defaults write com.apple.universalaccess increaseContrast -bool YES

;; To control anti-aliasing on OSX:
;; defaults write org.gnu.Emacs AppleFontSmoothing -int 0 (none)
;; defaults write org.gnu.Emacs AppleFontSmoothing -int 1 (light)
;; defaults write org.gnu.Emacs AppleFontSmoothing -int 2 (medium)
;; defaults write org.gnu.Emacs AppleFontSmoothing -int 3 (strong)


;; Fix bug on OSX in term mode & zsh (spurious % after each command)
(add-hook 'term-mode-hook
          (lambda () (setq buffer-display-table (make-display-table))))

(setq inhibit-startup-screen t
      inhibit-startup-message t
      inhibit-startup-echo-area-message t
      initial-scratch-message nil)
(tool-bar-mode 0)
(tooltip-mode 0)
(menu-bar-mode 0)
;; (global-hl-line-mode 1)
(setq x-underline-at-descent-line t)

;; Vertical window divider
(setq window-divider-default-right-width 3)
(setq window-divider-default-places 'right-only)
(window-divider-mode 1)

;; No ugly button for checkboxes
(setq widget-image-enable nil)

;; Hide org markup for README
(setq org-hide-emphasis-markers t)

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

(ctrlf-mode +1)

(global-hl-line-mode +1)

(setq package-native-compile t)
;;(native-compile-async "~/.emacs.d/elpa" 'recursively) ;; <-- danger zone

(require 'telephone-line)

(setq telephone-line-primary-left-separator 'telephone-line-cubed-left
      telephone-line-secondary-left-separator 'telephone-line-cubed-hollow-left
      telephone-line-primary-right-separator 'telephone-line-cubed-right
      telephone-line-secondary-right-separator 'telephone-line-cubed-hollow-right)

(setq telephone-line-primary-right-separator 'telephone-line-abs-left
      telephone-line-secondary-right-separator 'telephone-line-abs-hollow-left)

(setq telephone-line-height 20
      telephone-line-evil-use-short-tag t)

(telephone-line-mode 1)

;; (powerline-nano-theme)

(setq neo-smart-open t)
(global-set-key [f8] 'neotree-toggle)
(setq neo-global--do-autorefresh t)
(setq neo-window-width 28)

(setq neo-theme (if (display-graphic-p) 'icons 'arrow))

;; Enable richer annotations using the Marginalia package
(use-package marginalia
  ;; Either bind `marginalia-cycle` globally or only in the minibuffer
  :bind (("M-A" . marginalia-cycle)
         :map minibuffer-local-map
         ("M-A" . marginalia-cycle))

  ;; The :init configuration is always executed (Not lazy!)
  :init

  ;; Must be in the :init section of use-package such that the mode gets
  ;; enabled right away. Note that this forces loading the package.
  (marginalia-mode))

(all-the-icons-completion-mode)

;; Use https://github.com/iyefrat/all-the-icons-completion for icons
(add-hook 'marginalia-mode-hook #'all-the-icons-completion-marginalia-setup)

(selectrum-mode +1)

;; to make sorting and filtering more intelligent
(selectrum-prescient-mode +1)

;; to save your command history on disk, so the sorting gets more
;; intelligent over time
(prescient-persist-mode +1)

(require 'centaur-tabs)
(centaur-tabs-mode t)
(global-set-key (kbd "C-<prior>")  'centaur-tabs-backward)
(global-set-key (kbd "C-<next>") 'centaur-tabs-forward)

(centaur-tabs-headline-match)

(setq centaur-tabs-style "box")
(setq centaur-tabs-height 20)
(setq centaur-tabs-set-icons t)
(setq centaur-tabs-set-bar 'under)
(setq x-underline-at-descent-line t)
(setq centaur-tabs-set-modified-marker t)
(setq centaur-tabs-show-navigation-buttons t)
(setq centaur-tabs-set-modified-marker t)
(setq centaur-tabs-modified-marker "*")
(setq centaur-tabs-close-button " ×")

(yas-global-mode 1)

(global-set-key (kbd "C-/") 'undo-only)
(global-set-key (kbd "C-?") 'undo-redo)

(global-undo-tree-mode)

;; (add-to-list 'load-path (expand-file-name "/Users/thecsw/.emacs.d/elpa/origami-20200331.1019/origami.el/"))
(global-origami-mode)

(bind-key "C-c g" 'origami-open-all-nodes)
(bind-key "C-c r" 'origami-close-all-nodes)
(bind-key "C-c t" 'origami-recursively-toggle-node)
(bind-key "C-c n" 'origami-next-fold)
(bind-key "C-c u" 'origami-previous-fold)  

(setq max-lisp-eval-depth 10000)
(setq max-specpdl-size 10000)

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

(with-eval-after-load 'company
  ;; disable inline previews
  (delq 'company-preview-if-just-one-frontend company-frontends))

(define-key copilot-completion-map (kbd "<tab>") 'copilot-accept-completion)
(define-key copilot-completion-map (kbd "TAB") 'copilot-accept-completion)

(define-key dired-mode-map (kbd "h") #'dired-gitignore-mode)
;; (add-hook 'dired-mode-hook 'dired-gitignore-mode)