391 lines
12 KiB
Plaintext
391 lines
12 KiB
Plaintext
;;; package --- Summary: Emacs init
|
|
;;; Commentary:
|
|
;; Main features are LSP support and Evil mode
|
|
|
|
;;; Code:
|
|
|
|
;; ===========================
|
|
;; Package Management Setup
|
|
;; ===========================
|
|
(require 'package)
|
|
|
|
;; Add MELPA, Org, and GNU package archives
|
|
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
|
("org" . "https://orgmode.org/elpa/")
|
|
("gnu" . "https://elpa.gnu.org/packages/")))
|
|
|
|
(package-initialize)
|
|
|
|
;; Refresh package list if it's not already available
|
|
(unless package-archive-contents
|
|
(package-refresh-contents))
|
|
|
|
;; Install use-package if it's not already installed
|
|
(unless (package-installed-p 'use-package)
|
|
(package-install 'use-package))
|
|
|
|
(require 'use-package)
|
|
(setq use-package-always-ensure t) ;; Always ensure packages are installed
|
|
|
|
;; ===========================
|
|
;; Theme Configuration
|
|
;; ===========================
|
|
|
|
;; Define your preferred light and dark themes
|
|
(setq dark-theme 'zenburn)
|
|
(setq light-theme 'solarized-light)
|
|
|
|
;; Install Themes
|
|
(use-package solarized-theme
|
|
:ensure t)
|
|
|
|
(use-package zenburn-theme
|
|
:ensure t)
|
|
|
|
(defun my/get-system-appearance ()
|
|
(cond
|
|
;; ---------------------------
|
|
;; macOS
|
|
;; ---------------------------
|
|
((eq system-type 'darwin)
|
|
(if (string= (shell-command-to-string "defaults read -g AppleInterfaceStyle 2>/dev/null") "Dark\n")
|
|
'dark
|
|
'light))
|
|
|
|
;; ---------------------------
|
|
;; Windows
|
|
;; ---------------------------
|
|
((eq system-type 'windows-nt)
|
|
;; NOTE: For Windows 10/11, “AppsUseLightTheme” is under:
|
|
;; HKCU\Software\Microsoft\Windows\CurrentVersion\Themes\Personalize
|
|
;; Value of 1 => Light, 0 => Dark
|
|
(let ((output (shell-command-to-string
|
|
"reg query \"HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\" /v AppsUseLightTheme 2>nul")))
|
|
(cond
|
|
((string-match "0x1" output) 'light)
|
|
((string-match "0x0" output) 'dark)
|
|
(t nil))))
|
|
|
|
;; ---------------------------
|
|
;; GNOME-based Linux
|
|
;; ---------------------------
|
|
((eq system-type 'gnu/linux)
|
|
;; If you're on GNOME 42+, `color-scheme` often shows 'prefer-dark' or 'prefer-light'.
|
|
;; If the user is using an older system or a different DE, this may fail or return an empty string.
|
|
(let ((gsettings-output (string-trim
|
|
(shell-command-to-string
|
|
"gsettings get org.gnome.desktop.interface color-scheme 2>/dev/null"))))
|
|
(cond
|
|
((string-match "dark" gsettings-output) 'dark)
|
|
((string-match "light" gsettings-output) 'light)
|
|
(t nil))))
|
|
|
|
;; ---------------------------
|
|
;; Otherwise, undetermined
|
|
;; ---------------------------
|
|
|
|
(t nil)))
|
|
|
|
(defun my/set-theme-based-on-appearance ()
|
|
"Set Emacs theme based on system appearance if possible, otherwise fallback."
|
|
(let ((appearance (my/get-system-appearance)))
|
|
;; Disable all currently enabled themes to prevent conflicts
|
|
(mapc #'disable-theme custom-enabled-themes)
|
|
(pcase appearance
|
|
('dark
|
|
(load-theme dark-theme t))
|
|
('light
|
|
(load-theme light-theme t))
|
|
(_
|
|
;; If we cannot detect the theme, default to light
|
|
(load-theme light-theme t)))))
|
|
|
|
|
|
;; Apply theme at startup
|
|
(my/set-theme-based-on-appearance)
|
|
|
|
;; ===========================
|
|
;; UI Customizations
|
|
;; ===========================
|
|
|
|
;; Use ibuffer, instead of Buffer-menu-mode.
|
|
(global-set-key (kbd "C-x C-b") 'ibuffer)
|
|
|
|
;; Replace yes-no prompts to y-n
|
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
|
|
|
;; Disable unnecessary UI elements
|
|
(tool-bar-mode -1) ;; Hide the toolbar
|
|
(menu-bar-mode -1) ;; Hide the menu bar
|
|
(scroll-bar-mode -1) ;; Hide the scroll bar
|
|
|
|
;; Enable useful UI features
|
|
(column-number-mode 1) ;; Show column numbers
|
|
(global-display-line-numbers-mode 1) ;; Enable global line numbers
|
|
|
|
;; Enable visual line mode globally
|
|
(global-visual-line-mode 1)
|
|
|
|
;; Disable line numbers for some modes
|
|
(dolist (mode '(dired-mode-hook
|
|
doc-view-mode-hook
|
|
eshell-mode-hook
|
|
comint-mode-hook
|
|
inferior-python-mode-hook
|
|
org-mode-hook
|
|
shell-mode-hook
|
|
term-mode-hook))
|
|
(add-hook mode (lambda () (display-line-numbers-mode 0))))
|
|
|
|
;; Complete parentheses, quotes, etc
|
|
(electric-pair-mode 1)
|
|
|
|
;; Set Default Font to Iosevka 18pt
|
|
;;(set-face-attribute 'default nil :family "Iosevka" :height 150)
|
|
;; Set font
|
|
(set-face-attribute 'default nil
|
|
:family "JetBrains Mono Nerd Font"
|
|
:height 140
|
|
:weight 'normal
|
|
:width 'normal)
|
|
;; Line spacing
|
|
(setq-default line-spacing 0)
|
|
|
|
;; Backup files -> ~/.emacs.d/backups/
|
|
(setq backup-directory-alist `(("." . "~/.emacs.d/backups"))
|
|
backup-by-copying t ;; Don't delink hardlinks
|
|
version-control t ;; Use version numbers on backups
|
|
delete-old-versions t ;; Automatically delete excess backups
|
|
kept-new-versions 6
|
|
kept-old-versions 2)
|
|
|
|
;; ===========================
|
|
;; macOS Specific Settings
|
|
;; ===========================
|
|
(when (eq system-type 'darwin)
|
|
;; Use Command key as Meta
|
|
(setq mac-command-modifier 'meta
|
|
mac-option-modifier 'none)
|
|
|
|
;; Better font rendering on macOS
|
|
(setq ns-use-srgb-colorspace t)
|
|
;; Add homebrew
|
|
(add-to-list 'exec-path "/opt/homebrew/bin")
|
|
)
|
|
|
|
;; ===========================
|
|
;; Evil Mode Configuration
|
|
;; ===========================
|
|
(use-package evil
|
|
:ensure t
|
|
:init
|
|
(setq evil-want-integration t
|
|
evil-want-keybinding nil)
|
|
:config
|
|
(evil-mode 1)
|
|
|
|
;; Force modes to start in Emacs state
|
|
;;(dolist (mode '(;;Buffer-menu-mode
|
|
;;;;ibuffer-mode
|
|
;;dired-mode
|
|
;;help-mode
|
|
;;bookmark-bmenu-mode
|
|
;;gnus-summary-mode
|
|
;;gnus-group-mode
|
|
;;package-menu-mode))
|
|
;;(evil-set-initial-state mode 'emacs))
|
|
|
|
;; Correct keybindings for minibuffer maps using actual keymap objects
|
|
(dolist (keymap '(minibuffer-local-map
|
|
minibuffer-local-ns-map
|
|
minibuffer-local-completion-map
|
|
minibuffer-local-must-match-map
|
|
minibuffer-local-isearch-map))
|
|
(define-key (symbol-value keymap) [escape] 'minibuffer-keyboard-quit))
|
|
|
|
;; Set escape to quit in Evil states
|
|
(with-eval-after-load 'evil-maps
|
|
(define-key evil-normal-state-map [escape] 'keyboard-quit)
|
|
(define-key evil-visual-state-map [escape] 'keyboard-quit))
|
|
|
|
(keymap-global-set "C-u" 'evil-scroll-up))
|
|
|
|
(use-package evil-collection
|
|
:after evil
|
|
:ensure t
|
|
:config
|
|
(evil-collection-init))
|
|
|
|
;;(defun my/buffer-menu-evil-fix ()
|
|
;;"Disable Evil's C-n and C-p in `Buffer-menu-mode'."
|
|
;;(evil-define-key 'normal Buffer-menu-mode-map
|
|
;;(kbd "C-n") nil
|
|
;;(kbd "C-p") nil))
|
|
;;
|
|
;;(add-hook 'buffer-menu-mode-hook #'my/buffer-menu-evil-fix)
|
|
|
|
;; ===========================
|
|
;; Additional Packages
|
|
;; ===========================
|
|
|
|
;; Skip helm for now, since it interferes with evil
|
|
;;(use-package helm
|
|
;;:ensure t
|
|
;;:init
|
|
;;(setq helm-display-function #'helm-default-display-buffer) ;; Fix potential display issues
|
|
;;:config
|
|
;;(helm-mode 1)
|
|
;;(define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action) ;; Better navigation
|
|
;;(define-key helm-map (kbd "C-z") 'helm-select-action)) ;; Show actions list
|
|
|
|
;; Install and enable Company Mode globally
|
|
(use-package company
|
|
:init
|
|
(global-company-mode 1)
|
|
:config
|
|
;; Integrate Company with LSP
|
|
(setq company-minimum-prefix-length 1
|
|
company-idle-delay 0.0)) ;; Show completions immediately
|
|
|
|
|
|
(use-package projectile
|
|
:init
|
|
(projectile-mode)
|
|
:config
|
|
(setq projectile-project-root-files '(".git" ".lsp-root"))
|
|
;;(setq projectile-project-root-files-bottom-up '(".git" ".clangd"))
|
|
(projectile-mode +1))
|
|
|
|
;; Install and bind Magit
|
|
(use-package magit
|
|
:bind ("C-x g" . magit-status))
|
|
|
|
;; Install and enable Which-Key
|
|
(use-package which-key
|
|
:config
|
|
(which-key-mode))
|
|
|
|
(use-package rainbow-delimiters
|
|
:ensure t
|
|
:hook (prog-mode . rainbow-delimiters-mode))
|
|
|
|
;; ===========================
|
|
;; LSP Configuration
|
|
;; ===========================
|
|
(use-package lsp-mode
|
|
:hook ((python-mode . lsp)
|
|
(kotlin-mode . lsp)
|
|
(c++-mode . lsp)
|
|
(c-mode . lsp)
|
|
(rust-mode . lsp))
|
|
:commands lsp
|
|
:config
|
|
(setq lsp-prefer-flymake nil)
|
|
(setq lsp-enable-snippet t)
|
|
(setq lsp-headerline-breadcrumb-enable nil)
|
|
|
|
;; Enhanced project root detection with debug logging
|
|
(defun my/lsp-get-project-root ()
|
|
"Find the project root by locating the nearest .git directory with validation."
|
|
(let* ((current-file (or (buffer-file-name) default-directory))
|
|
(root-dir (locate-dominating-file current-file ".git"))
|
|
(valid-root (when root-dir
|
|
(expand-file-name root-dir))))
|
|
(when valid-root
|
|
(message "[LSP] Detected project root: %s" valid-root)
|
|
valid-root)))
|
|
|
|
;; Set project root detection for C/C++ before LSP initializes
|
|
(add-hook 'c-mode-hook (lambda ()
|
|
(setq-local lsp-project-root-function #'my/lsp-get-project-root)
|
|
(message "[LSP] C mode root: %s" (my/lsp-get-project-root))))
|
|
|
|
(add-hook 'c++-mode-hook (lambda ()
|
|
(setq-local lsp-project-root-function #'my/lsp-get-project-root)
|
|
(message "[LSP] C++ mode root: %s" (my/lsp-get-project-root))))
|
|
|
|
;; Configure ignored directories for better performance
|
|
(setq lsp-file-watch-ignored '("[/\\\\]\\.git$"
|
|
"[/\\\\]build$"
|
|
"[/\\\\]bin$"
|
|
"[/\\\\]tests$")))
|
|
|
|
(use-package lsp-ui
|
|
:commands lsp-ui-mode
|
|
:config
|
|
(setq lsp-ui-doc-enable t
|
|
lsp-ui-doc-delay 0.2
|
|
lsp-ui-sideline-enable t
|
|
lsp-ui-imenu-enable t))
|
|
|
|
(use-package lsp-treemacs
|
|
:commands lsp-treemacs-errors-list)
|
|
|
|
(use-package flycheck
|
|
:init (global-flycheck-mode))
|
|
|
|
;; ===========================
|
|
;; Language-Specific Configurations
|
|
;; ===========================
|
|
|
|
;; Python
|
|
(use-package lsp-pyright
|
|
:ensure t
|
|
:custom (lsp-pyright-langserver-command "pyright") ;; or basedpyright
|
|
:hook (python-mode . (lambda ()
|
|
(require 'lsp-pyright)
|
|
(lsp)))) ; or lsp-deferred
|
|
(use-package python
|
|
:ensure nil
|
|
:hook (python-mode . lsp)
|
|
:config
|
|
(setq python-shell-interpreter "python3")
|
|
)
|
|
|
|
(use-package poetry :ensure t)
|
|
|
|
;; Kotlin
|
|
(use-package kotlin-mode
|
|
:mode "\\.kt\\'"
|
|
:config
|
|
)
|
|
|
|
;; C++
|
|
(use-package cc-mode
|
|
:ensure nil
|
|
:config
|
|
)
|
|
|
|
;; Rust
|
|
(use-package rust-mode
|
|
:hook (rust-mode . lsp)
|
|
:config
|
|
(setq rust-format-on-save t)
|
|
)
|
|
|
|
;; ===========================
|
|
;; C/C++ Line Length Configuration
|
|
;; ===========================
|
|
(defun my/c-mode-line-limit ()
|
|
"Set 80-character line limit for C/C++ files."
|
|
(setq fill-column 80)
|
|
(display-fill-column-indicator-mode 1)
|
|
)
|
|
(add-hook 'c-mode-hook #'my/c-mode-line-limit)
|
|
|
|
(message "Emacs init loaded.")
|
|
(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.
|
|
'(helm-minibuffer-history-key "M-p")
|
|
'(package-selected-packages
|
|
'(helm-evil rainbow-delimiters rainbow-delimiter catppuccin-theme lsp-pyright zenburn-theme which-key solarized-theme rust-mode projectile poetry magit lsp-ui lsp-treemacs kotlin-mode helm flycheck evil-collection dracula-theme company better-defaults)))
|
|
(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.
|
|
)
|