path: root/init.el

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

;; Pick up config from lisp/
(add-to-list 'load-path (expand-file-name "lisp" user-emacs-directory))

;; Always load newest byte code
(setopt load-prefer-newer t)

;; Reduce frequency of garbage collection
(setopt gc-cons-threshold (* 128 1024 1024))

;; Tune processes for better performance
(setopt read-process-output-max (* 4 1024 1024)
        process-adaptive-read-buffering nil)

;; Define file for all custom configuration
(setopt custom-file (locate-user-emacs-file "custom.el"))
(when (file-exists-p custom-file)
  (load custom-file))

;; Remove extraneous UI elements
(setopt inhibit-startup-message t
        inhibit-splash-screen t
        ring-bell-function 'ignore
        use-file-dialog nil)

;; Insert tabs as spaces, render tabs as 2 spaces
(setopt indent-tabs-mode nil
        tab-width 2)

;; Disable line wrapping for code
(add-hook 'prog-mode-hook (lambda ()
                            (visual-line-mode -1)
                            (toggle-truncate-lines 1)))

;; Disable emacs generated files (.#emacsa8932) (#file#) (file~)
(setopt create-lockfiles nil
        auto-save-default nil
        make-backup-files nil)

;; Conditionally enable HTTP proxy before package init
(when-let* ((proxy (getenv "FWDPROXY")))
  (setopt url-proxy-services
          `(("no_proxy" . "^localhost")
            ("http"     . ,proxy)
            ("https"    . ,proxy))))

(require 'package)

(add-to-list 'package-archives
             '("MELPA"  . "https://melpa.org/packages/")
             '("NONGNU" . "https://elpa.nongnu.org/nongnu/"))

(package-initialize)

(when (fboundp 'display-line-numbers-mode)
  (setopt display-line-numbers-width 3
          display-line-numbers-type 'relative)
  (add-hook 'prog-mode-hook 'display-line-numbers-mode)
  (add-hook 'text-mode-hook 'display-line-numbers-mode))

(when (boundp 'display-fill-column-indicator)
  (setopt display-fill-column-indicator-character ?┊
          fill-column 80)
  (add-hook 'prog-mode-hook 'display-fill-column-indicator-mode))

(when (fboundp 'show-paren-mode)
  (setopt show-paren-delay 0)
  (add-hook 'prog-mode-hook 'show-paren-mode))

(when (fboundp 'repeat-mode)
  (add-hook 'after-init-hook 'repeat-mode))

;; Properly parse ANSI escape codes in compile mode
(when (fboundp 'ansi-color-compilation-filter)
  (add-hook 'compilation-filter-hook 'ansi-color-compilation-filter))

;; Automatically scroll compile output when buffer is full
(setopt compilation-scroll-output t)

;; Bind recompile globally
(global-set-key [f6] 'recompile)

(setopt enable-recursive-minibuffers t)

;; General editor preferences
(setopt column-number-mode t
        case-fold-search t
        scroll-preserve-screen-position 'always
        truncate-lines nil
        truncate-partial-width-windows nil
        buffers-menu-max-size 30)

;; Deletes selection when typing
(add-hook 'after-init-hook 'delete-selection-mode)

;; Update buffers when they change from outside emacs
(when (fboundp 'global-auto-revert-mode)
  (setopt global-auto-revert-non-file-buffers t
          auto-revert-verbose nil)
  (add-hook 'after-init-hook 'global-auto-revert-mode))

;; (when (fboundp 'which-key-mode)
;;   (add-hook 'after-init-hook 'which-key-mode))

(when (fboundp 'fido-vertical-mode)
  (add-hook 'after-init-hook 'fido-vertical-mode))

(add-hook 'before-save-hook #'delete-trailing-whitespace)

(setopt completion-styles '(initials flex)
        completions-max-height 10
        completions-format 'one-column
        completions-auto-select t)

;; Don't resize the frame when we change font size
(setopt frame-inhibit-implied-resize t)

(defun my-configure-font ()
  (interactive)
  (let ((font "Iosevka"))
    (when (member font (font-family-list))
      (set-face-attribute 'default nil :font font :height 124)
      (set-face-attribute 'fixed-pitch nil :family font))))

;; Loads font correctly whether using emacs daemon or standalone process
(if (daemonp)
    (add-hook 'server-after-make-frame-hook #'my-configure-font)
  (my-configure-font))

;; TRAMP performance tuning
(setopt remote-file-name-inhibit-locks t
        remote-file-name-inhibit-auto-save-visited t
        tramp-use-scp-direct-remote-copying t
        tramp-copy-size-limit (* 1024 1024)
        tramp-verbose 2)

(connection-local-set-profile-variables
 'remote-direct-async-process
 '((tramp-direct-async-process . t)))

(connection-local-set-profiles
 '(:application tramp :protocol "scp")
 'remote-direct-async-process)

;; (use-package mu4e
;;   :ensure nil
;;   :custom
;;   (setq mu4e-get-mail-command "mbsync -a"
;;         message-kill-buffer-on-exit t ;; don't keep message buffers
;;         mu4e-confirm-quit nil         ;; don't ask to quit
;;         mu4e-change-filenames-when-moving t))

(load-theme 'modus-vivendi t)

(set-face-attribute 'default nil :foreground "#dadada" :background "#000")
(set-face-attribute 'font-lock-keyword-face nil :foreground "#dadada" :weight 'bold)
(set-face-attribute 'font-lock-type-face nil :foreground "#dadada")
(set-face-attribute 'font-lock-string-face nil :foreground "#999999")
(set-face-attribute 'font-lock-constant-face nil :foreground "#999999")
(set-face-attribute 'font-lock-builtin-face nil :foreground "#dadada")
(set-face-attribute 'font-lock-comment-face nil :foreground "#707070" :slant 'italic)
(set-face-attribute 'font-lock-doc-face nil :foreground "#707070" :slant 'italic)
(set-face-attribute 'font-lock-function-name-face nil :foreground "#dadada")
(set-face-attribute 'font-lock-variable-name-face nil :foreground "#dadada")
(set-face-attribute 'font-lock-preprocessor-face nil :foreground "#dadada")
(set-face-attribute 'minibuffer-prompt nil :foreground "#dadada" :weight 'bold)

;; (set-face-attribute 'envrc-mode-line-none-face nil :foreground "#999999")
;; (set-face-attribute 'envrc-mode-line-on-face nil :foreground "#999999")

(use-package marginalia
  :ensure t
  :hook after-init)

(use-package consult
  :ensure t
  :bind (("C-x /" . consult-ripgrep)
         ([remap goto-line] . consult-goto-line)
         ([remap switch-to-buffer] . consult-buffer)
         ([remap comint-history-isearch-backward-regexp] . consult-history)
         ([remap eshell-previous-matching-input] . consult-history))
  :custom
  (completion-in-region-function #'consult-completion-in-region)
  (xref-show-xrefs-function #'consult-xref)
  (xref-show-definitions-function #'consult-xref))

(with-eval-after-load 'dired
  (set-face-attribute 'dired-directory nil :foreground "#dadada" :weight 'bold)

  (setopt dired-recursive-copies 'always
          dired-recursive-deletes 'always
          delete-by-moving-to-trash t
          dired-dwim-target t
          dired-kill-when-opening-new-dired-buffer t
          dired-listing-switches "--group-directories-first -alhv"))

(use-package nix-mode
  :ensure t
  :mode "\\.nix\\'")

(use-package rust-mode
  :ensure t
  :mode "\\.rs\\'")

(use-package tuareg
  :ensure t
  :mode ("\\.\\(ml[dipy]?\\)\\'" . tuareg-mode))

(use-package dune
  :ensure t
  :after tuareg)

(use-package haskell-mode
  :ensure t
  :mode "\\.hs\\'")

(use-package python-mode
  :ensure t
  :mode ("\\.py\\'" "\\.bzl\\'"
         "\\.m?cconf\\'" "\\.cinc\\'" "\\.tw\\'"
         "BUCK" "PACKAGE"))

(use-package erlang
  :ensure t
  :mode ("\\.[eh]rl\\'" . erlang-mode)
  :custom
  (project-vc-extra-root-markers '("rebar.config")))

(use-package typst-ts-mode
  :ensure t
  :mode "\\.typ\\'")

(use-package geiser
  :ensure t)

(use-package geiser-guile
  :ensure t)

(use-package paredit
  :ensure t
  :bind (:map paredit-mode-map ("RET" . nil))
  :hook ((emacs-lisp-mode
          eval-expression-minibuffer-setup-hook
          lisp-mode
          lisp-interaction-mode
          geiser-repl-mode
          ielm-mode
          scheme-mode)
         . enable-paredit-mode))

(use-package kdl-mode
  :ensure t
  :mode "\\.kdl\\'")

(use-package terraform-mode
  :ensure t
  :mode "\\.tf\\'")

(use-package magit
  :ensure t)

(use-package flymake
  :ensure nil
  :custom
  (flymake-show-diagnostics-at-end-of-line t)
  (flymake-wrap-around t)
  (flymake-autoresize-margins t))
(use-package eat
  :ensure t
  :hook ((eshell-first-time-mode . eat-eshell-mode)))

(with-eval-after-load 'eglot
  (add-to-list 'eglot-server-programs
               '(erlang-mode . ("elp" "server"))))

(use-package eglot
  :custom
  (eglot-ignored-server-capabilities
   '(:inlayHintProvider
     :documentHighlightProvider
     :colorProvider
     :documentOnTypeFormattingProvider
     :documentRangeFormattingProvider
     :foldingRangeProvider))
  (eglot-code-action-indications '(mode-line))
  :bind (:map eglot-mode-map
              ("C-c c a" . eglot-code-actions)
              ("C-c c r" . eglot-rename)
              ("C-c c f" . eglot-format)
              ("C-c c z" . eglot-reconnect)))

(use-package envrc
  :ensure t
  :hook (after-init . envrc-global-mode))

;; Start eshell unless evaluating init.el
(unless (string-equal "init.el" (format "%s" (current-buffer)))
  (eshell))