#+TITLE: Emacs Configuration
#+AUTHOR: frosty
#+EMAIL: passedgoandgot200@gmail.com
#+OPTIONS: num:nil

* Package Bootstrapping
#+BEGIN_SRC emacs-lisp
  ;; Add MELPA to the repositories list
  (require 'package)
  (add-to-list 'package-archives
	       '("melpa" . "https://melpa.org/packages/") t)

  ;; Load packages list
  (package-initialize)

  ;; Setup `use-package'
  (unless (package-installed-p 'use-package)
    (package-refresh-contents)
    (package-install 'use-package))
  (eval-when-compile
    (require 'use-package))
#+END_SRC

* Look and Feel
#+BEGIN_SRC emacs-lisp
  ;; Set the theme
  (use-package ample-theme
    :ensure t
    :config (load-theme 'ample t))

  ;; Disable menu bar
  (menu-bar-mode -1)

  ;; Disable tool bar
  (tool-bar-mode -1)

  ;; Disable scroll bars
  (toggle-scroll-bar -1)

  ;; Disable splash screen
  (setq inhibit-startup-screen t)

  ;; Display line numbers
  (global-display-line-numbers-mode 1)
  (setq-default display-line-numbers-width 3)

  ;; Highlight current line
  (global-hl-line-mode 1)

  ;; Show trailing whitespace
  (setq-default show-trailing-whitespace t)

  ;; Flash mode line on bell
  (use-package mode-line-bell
    :ensure t
    :config (mode-line-bell-mode))
#+END_SRC

  #+BEGIN_SRC emacs-lisp

       ;;; Buffer input and interaction

   ;; Better mouse scrolling
   (setq mouse-wheel-progressive-speed nil)

   ;; Use short yes/no answers
   (setq-default use-short-answers t)

   ;; Auto-pair parenthesis
   (electric-pair-mode 1)

   ;; VIM emulation
   (unless (package-installed-p 'evil)
     (package-install 'evil))
   (setq
    ;; Scroll up with C-u
    evil-want-C-u-scroll t
    ;; Yank to EOL with Y
    evil-want-Y-yank-to-eol t
    ;; Create split windows below
    evil-split-window-below t
    ;; Create vsplit windows to the right
    evil-vsplit-window-right t)
   (require 'evil)
   (evil-mode 1)

   ;; Automatically trim trailing whitespace on save
   (add-hook 'before-save-hook 'delete-trailing-whitespace)

       ;;; General interface

   ;; Completion UI
   (unless (package-installed-p 'vertico)
     (package-install 'vertico))
   (require 'vertico)
   (vertico-mode 1)

   ;; Improve directory navigation
   (define-key vertico-map (kbd "RET") #'vertico-directory-enter)
   (define-key vertico-map (kbd "DEL") #'vertico-directory-delete-word)
   (define-key vertico-map (kbd "M-d") #'vertico-directory-delete-char)

       ;;; Extended completion utilities
   (unless (package-installed-p 'consult)
     (package-install 'consult))
   (global-set-key [rebind switch-to-buffer] #'consult-buffer)
   (global-set-key (kbd "C-c j") #'consult-line)
   (global-set-key (kbd "C-c i") #'consult-imenu)
   (setq read-buffer-completion-ignore-case t
	 read-file-name-completion-ignore-case t
	 completion-ignore-case t)

       ;;; LSP Support
   (unless (package-installed-p 'eglot)
     (package-install 'eglot))

   ;; Enable LSP support by default in programming buffers
   (add-hook 'prog-mode-hook #'eglot-ensure)

   ;; Create a memorable alias for `eglot-ensure'.
   (defalias 'start-lsp-server #'eglot)

   ;; Completion style
   (unless (package-installed-p 'orderless)
     (package-install 'orderless))
   (require 'orderless)
   (setq completion-styles '(orderless basic)
	 completion-category-overrides '((file (styles basic partial-completion))))

   ;; Persist history over restarts
   (require 'savehist)
   (savehist-mode 1)


       ;;; Inline static analysis

   ;; Enabled inline static analysis
   (add-hook 'prog-mode-hook #'flymake-mode)

   ;; Display messages when idle, without prompting
   (setq help-at-pt-display-when-idle t)

   ;; Message navigation bindings
   (with-eval-after-load 'flymake
     (define-key flymake-mode-map (kbd "C-c n") #'flymake-goto-next-error)
     (define-key flymake-mode-map (kbd "C-c p") #'flymake-goto-prev-error))

       ;;; Pop-up completion
   (unless (package-installed-p 'corfu)
     (package-install 'corfu))

   ;; Enable autocompletion by default in programming buffers
   (add-hook 'prog-mode-hook #'corfu-mode)

   ;; Enable automatic completion.
   (setq corfu-auto t)



       ;;; Git client
   (unless (package-installed-p 'magit)
     (package-install 'magit))

   ;; Bind the `magit-status' command to a convenient key.
   (global-set-key (kbd "C-c g") #'magit-status)

       ;;; Indication of local VCS changes
   (unless (package-installed-p 'diff-hl)
     (package-install 'diff-hl))

   ;; Enable `diff-hl' support by default in programming buffers
   (add-hook 'prog-mode-hook #'diff-hl-mode)



       ;;; Go Support
   (unless (package-installed-p 'go-mode)
     (package-install 'go-mode))

       ;;; JSON Support
   (unless (package-installed-p 'json-mode)
     (package-install 'json-mode))

       ;;; Lua Support
   (unless (package-installed-p 'lua-mode)
     (package-install 'lua-mode))

       ;;; Rust Support
   (unless (package-installed-p 'rust-mode)
     (package-install 'rust-mode))

       ;;; YAML Support
   (unless (package-installed-p 'yaml-mode)
     (package-install 'yaml-mode))

       ;;; Markdown support
   (unless (package-installed-p 'markdown-mode)
     (package-install 'markdown-mode))





       ;;; EditorConfig support
   (unless (package-installed-p 'editorconfig)
     (package-install 'editorconfig))

   ;; Enable EditorConfig
   (editorconfig-mode t)

       ;;; In-Emacs Terminal Emulation
   (unless (package-installed-p 'eat)
     (package-install 'eat))

   ;; Close the terminal buffer when the shell terminates.
   (setq eat-kill-buffer-on-exit t)

   ;; Enable mouse-support.
   (setq eat-enable-mouse t)

       ;;; Jump to arbitrary positions
   (unless (package-installed-p 'avy)
     (package-install 'avy))
   (global-set-key (kbd "C-c z") #'avy-goto-word-1)

   ;; Store automatic customisation options elsewhere
   (setq custom-file (locate-user-emacs-file "custom.el"))
   (when (file-exists-p custom-file)
     (load custom-file))

#+END_SRC