init.el

;;; init.el --- Emacs init script -*- lexical-binding: t -*-
;;; Commentary:
;;; This file loads when Emacs first boots up
;;; Code:

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

;;   =====================================
;;  == Quality of life improvements... ==
;; =====================================

;; Maximized on startup
(add-to-list 'default-frame-alist '(fullscreen . maximized))

;; Font
;; NOTE: add `:font "Fira Code"` or similar to change font
(set-face-attribute 'default t :height 100)

;; Disable menu and toolbars
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(blink-cursor-mode -1)
(setq visible-bell t)

;; Theme
(use-package catppuccin-theme
  :ensure t)
(load-theme 'catppuccin :no-confirm)
(setq catppuccin-flavor 'macchiato)
(catppuccin-reload)

;; Modeline
;; (NOTE: run `M-x nerd-icons-install-fonts')
(use-package doom-modeline
  :ensure t
  :init (doom-modeline-mode 1))

;; Parens completion (Emacs native)
(electric-pair-mode 1)

;; Enable line numbers for all prog/text modes
(defun enable-line-numbers ()
  "Enable line numbers in a major mode."
  (display-line-numbers-mode t))
(add-hook 'prog-mode-hook #'enable-line-numbers)

;; Set exec-path from shell PATH
(use-package exec-path-from-shell
  :ensure t
  :config
  (when (memq window-system '(mac ns x))
    (exec-path-from-shell-initialize)))

;; Git integration
(use-package magit
  :ensure t
  :init
  (message "Loading Magit!")
  :config
  (message "Loaded Magit!")
  :bind (("C-x g" . magit-status)
         ("C-x C-g" . magit-status)))

;; M-x VS Code
;; (Use autocompletion in all programming modes, set LSP keybindings)
(use-package company
  :ensure t
  :hook (prog-mode . company-mode)
  :config
  (setq company-idle-delay 0.1
	company-minimum-prefix-length 1))

(use-package eglot
  :bind (:map eglot-mode-map
	      ("C-c d" . eldoc)
	      ("C-c a" . eglot-code-actions)
	      ("C-c r" . eglot-rename)))

;; Which key does what again?
(use-package which-key
  :ensure t
  :config
  (which-key-mode))

;; Syntax checking
(use-package flycheck
  :ensure t
  :init (global-flycheck-mode))


;;   =====================
;;  == EVIL Config >:3 ==
;; =====================

(use-package evil
  :ensure t
  :init
  (setq evil-want-integration t) ;; This is optional since it's already set to t by default.
  (setq evil-want-keybinding nil)
  :config
  (evil-mode 1))

(use-package evil-collection
  :after evil
  :ensure t
  :config
  (evil-collection-init))

;;   ===============
;;  == Languages ==
;; ===============
;; NOTE: use M-x treesit-install-language-grammar for new languages

;; C
(use-package c-ts-mode
  :hook ((c-ts-mode . eglot-ensure))
  :mode (("\\.c\\'" . c-ts-mode))
  :bind (:map c-ts-mode-map
	      ("<f5>" . recompile)
	      ("<f6>" . eglot-format)))

;; Rust
(use-package rust-ts-mode
  :hook ((rust-ts-mode . eglot-ensure))
  :mode (("\\.rs\\'" . rust-ts-mode)))

;; Python
(use-package python-ts-mode
  :hook ((python-ts-mode . eglot-ensure))
  :mode (("\\.py\\'" . python-ts-mode))
  :interpreter ("ipython" . python-ts-mode))

(use-package conda
  :ensure t
  :config
  (setq-default conda-env-home-directory
	(expand-file-name "~/miniforge3")))

;; Scheme
(use-package geiser-guile :ensure t)
(use-package geiser-chicken :ensure t)
(use-package geiser-mit :ensure t)
(use-package geiser-chez :ensure t)
(use-package geiser-racket :ensure t)

;;   ======================
;;  == No touch zone ;3 ==
;; ======================
(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.
 '(package-selected-packages
   '(conda magit flycheck evil which-key catppuccin-theme company)))
(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.
 )
(provide 'init)
;;; init.el ends here