gave up on meow / god mode, just using ';' now
This commit is contained in:
@@ -1,165 +1,259 @@
|
||||
;;; config.el -*- lexical-binding: t; -*-
|
||||
;; config.el -*- lexical-binding: t; -*-
|
||||
|
||||
;; ============================================================
|
||||
;; Custom & Packages Loading
|
||||
;; ============================================================
|
||||
(let ((custom-dir (expand-file-name "custom/" user-emacs-directory)))
|
||||
(when (file-directory-p custom-dir)
|
||||
(mapc #'load (directory-files custom-dir t "\\.el$"))))
|
||||
|
||||
;; (let ((pkg-dir (expand-file-name "packages/" user-emacs-directory)))
|
||||
;; (when (file-directory-p pkg-dir)
|
||||
;; (mapc #'load (directory-files pkg-dir t "\\.el$"))))
|
||||
(dolist (file (directory-files custom-dir nil "\\.el$"))
|
||||
(load (expand-file-name (file-name-sans-extension file) custom-dir)))))
|
||||
|
||||
(add-to-list 'load-path (expand-file-name "packages/" user-emacs-directory))
|
||||
;;(add-to-list 'load-path (expand-file-name "custom/" user-emacs-directory))
|
||||
(add-to-list 'custom-theme-load-path (expand-file-name "themes/" user-emacs-directory))
|
||||
|
||||
(require 'visuals-packages) ;;ui, eye candy
|
||||
(require 'editing-packages) ;;text editing
|
||||
(require 'system-packages) ;; emacs itself
|
||||
(require 'tutilities-packages) ;; tertiary utilities
|
||||
(require 'completion-packages) ;; ui, functional
|
||||
(add-hook
|
||||
'after-init-hook
|
||||
(lambda ()
|
||||
(require 'visuals-packages) ; ui, eye candy
|
||||
(require 'editing-packages) ; text editing
|
||||
(require 'system-packages) ; emacs itself
|
||||
(require 'tutilities-packages) ; tertiary utilities
|
||||
(require 'completion-packages) ; ui, functional
|
||||
(require 'dev-packages) ; lsp, treesitter
|
||||
)
|
||||
)
|
||||
;; ============================================================
|
||||
;; Keybindings
|
||||
;; ============================================================
|
||||
|
||||
(use-package general
|
||||
:config
|
||||
(general-def
|
||||
:keymaps 'global
|
||||
"C-S-c" #'my/system-copy
|
||||
"C-S-x" #'my/system-cut
|
||||
"C-S-v" #'my/system-paste
|
||||
"C-z" #'undo
|
||||
"C-S-z" #'undo-redo
|
||||
"C-k" #'avy-kill-whole-line
|
||||
"C-r" #'recenter-top-bottom
|
||||
"C-b" #'scroll-down-command
|
||||
"C-<backspace>" #'my/delete-word-backward
|
||||
|
||||
"M-w" #'clipetty-kill-ring-save
|
||||
)
|
||||
(general-def
|
||||
:keymaps 'override
|
||||
"M-g g" #'avy-goto-line
|
||||
"C-s C-f" #'avy-goto-char-timer
|
||||
"C-s C-s C-f" #'my/avy-char-region
|
||||
"C-s C-S-s" #'my/avy-line-region
|
||||
"C-s w" #'my/vterm-sync-here
|
||||
"C-x C-b" #'buffer-table
|
||||
"C-s C-l" #'consult-line
|
||||
"C-s C-e" #'expreg-expand
|
||||
)
|
||||
|
||||
(general-define-key
|
||||
:keymaps 'global
|
||||
"C-w" #'delete-window))
|
||||
"C-l" nil ; recenter
|
||||
"C-n" nil ; next line
|
||||
"C-p" nil ; previous line
|
||||
"C-f" nil ; forward chard
|
||||
"C-o" nil ; idk
|
||||
"C-t" nil ; transpose
|
||||
;"C-m" nil can't be rebound because is same as ret
|
||||
"C->" nil ;end of buffer
|
||||
"C-<" nil ;start of buffer
|
||||
)
|
||||
|
||||
(general-def
|
||||
:keymaps 'global
|
||||
"C-S-c" #'my/system-copy
|
||||
"C-S-x" #'my/system-cut
|
||||
"C-S-v" #'my/system-paste
|
||||
"C-z" #'undo
|
||||
"C-M-z" #'undo-redo
|
||||
"C-k" #'avy-kill-whole-line
|
||||
"C-r" #'recenter-top-bottom
|
||||
"C-b" #'scroll-down-command
|
||||
"C-<backspace>" #'my/delete-word-backward
|
||||
"M-<backspace>" #'my/delete-word-backward
|
||||
"M-s M-s" #'scroll-lock-mode
|
||||
"C-w" #'delete-window
|
||||
|
||||
"C-x m" #'switch-to-minibuffer
|
||||
|
||||
"M-w" #'clipetty-kill-ring-save
|
||||
; "C-x S-v" #'shrink-window
|
||||
; "C-x v" #'enlarge-window
|
||||
)
|
||||
(general-def
|
||||
:keymaps 'override
|
||||
"C-s C-s C-f" #'my/avy-char-region ; search select find
|
||||
"C-s C-s C-l" #'my/avy-line-region ; search select line
|
||||
"C-s C-e" #'expreg-expand ; selection expand
|
||||
"C-s C-c" #'expreg-contract ; selection contract
|
||||
|
||||
"C-s f" #'kirigami-toggle-fold ; fold
|
||||
)
|
||||
|
||||
(general-def
|
||||
:keymaps 'override
|
||||
|
||||
"C-f C-r" #'buffer-table ; recent buffer
|
||||
"C-f C-f" #'avy-goto-char-timer ; find
|
||||
"C-f C-l" #'consult-line ; line
|
||||
"C-f g" #'avy-goto-line ; goto
|
||||
|
||||
)
|
||||
|
||||
(general-def
|
||||
:keymaps 'override
|
||||
"C-s s" #'shell-pop ; shell
|
||||
)
|
||||
)
|
||||
|
||||
;; 1. Make single ';' trigger Control for the very next keypress
|
||||
(define-key key-translation-map (kbd ";") 'event-apply-control-modifier)
|
||||
|
||||
;; 2. Bind C-; to insert a literal semicolon directly
|
||||
(global-set-key (kbd "C-;") (lambda () (interactive) (insert ";")))
|
||||
|
||||
|
||||
;; ============================================================
|
||||
;; Core Settings & UI
|
||||
;; 2. Native Emacs & System Configuration
|
||||
;; ============================================================
|
||||
(setq kill-ring-max 1
|
||||
select-enable-clipboard nil
|
||||
select-enable-primary nil
|
||||
save-interprogram-paste-before-kill nil
|
||||
;;xterm-extra-capabilities '(getSelection setSelection modifyOtherKeys)
|
||||
mouse-drag-copy-region nil
|
||||
|
||||
tab-width 4
|
||||
truncate-lines nil
|
||||
display-line-numbers-type t
|
||||
cursor-type 'bar
|
||||
savehist-additional-variables '(kill-ring search-ring)
|
||||
recentf-max-saved-items 75
|
||||
|
||||
global-auto-revert-non-file-buffers t
|
||||
|
||||
undo-limit 60000000
|
||||
undo-strong-limit 90000000
|
||||
undo-outer-limit 120000000
|
||||
)
|
||||
|
||||
|
||||
(setq-default
|
||||
tab-width 4
|
||||
js-indent-level 4
|
||||
typescript-indent-level 4
|
||||
typescript-ts-mode-indent-offset 4
|
||||
typescript-ts-mode-indent-offset 4)
|
||||
|
||||
;; Modes
|
||||
(global-hl-line-mode t )
|
||||
(global-display-line-numbers-mode 1)
|
||||
(hl-line-mode 1)
|
||||
(savehist-mode 1)
|
||||
(global-clipetty-mode)
|
||||
(global-auto-revert-mode)
|
||||
(yas-global-mode t)
|
||||
|
||||
;; Fonts
|
||||
(set-face-attribute 'default nil :family "Noto Sans Mono" :height 120)
|
||||
(set-face-attribute 'variable-pitch nil :family "Noto Sans" :height 140)
|
||||
|
||||
;; Apply variable pitch to specific modes
|
||||
(dolist (hook '(markdown-mode-hook org-mode-hook json-mode-hook))
|
||||
(add-hook hook (lambda () (buffer-face-set '(:family "Noto Sans" :height 140)))))
|
||||
|
||||
(add-to-list 'auto-mode-alist '("\\.qd$" . markdown-mode))
|
||||
(add-to-list 'auto-mode-alist '("\\.ino$" . c++-mode))
|
||||
(add-to-list 'term-file-aliases '("xterm-256" . "xterm"))
|
||||
|
||||
;; Recentf cleanup
|
||||
(with-eval-after-load 'recentf
|
||||
(run-at-time nil 600 #'recentf-cleanup)
|
||||
(setq recentf-exclude '(".*/$")))
|
||||
|
||||
;; ============================================================
|
||||
;; Native Emacs Configuration
|
||||
;; ============================================================
|
||||
(use-package emacs
|
||||
:ensure nil
|
||||
:custom
|
||||
(mason-setup)
|
||||
(tab-always-indent 'complete)
|
||||
;; --- Completion & Search ---
|
||||
(completion-ignore-case t)
|
||||
(read-file-name-completion-ignore-case t)
|
||||
(read-buffer-completion-ignore-case t)
|
||||
(text-mode-ispell-word-completion nil)
|
||||
|
||||
;; --- Backup & Auto-save ---
|
||||
;; Centralize all backup files to a single directory to avoid cluttering projects
|
||||
(backup-directory-alist '(("." . "~/MyEmacsBackups")))
|
||||
(auto-save-list-file-prefix "~/MyEmacsBackups")
|
||||
(backup-by-copying t)
|
||||
(create-lockfiles nil)
|
||||
(make-backup-files nil)
|
||||
|
||||
;; --- Miscellaneous ---
|
||||
(tab-always-indent 'complete)
|
||||
|
||||
:hook
|
||||
(prog-mode . hs-minor-mode)
|
||||
)
|
||||
|
||||
;; Tree-sitter & LSP tweaks (Core transformative changes)
|
||||
(with-eval-after-load 'treesit
|
||||
(setq treesit-font-lock-level 4))
|
||||
;; (with-eval-after-load 'typescript-ts-mode
|
||||
;; (setq typescript-ts-mode-indent-offset 2)
|
||||
;; (defvaralias 'typescript-indent-level 'typescript-ts-mode-indent-offset))
|
||||
;; ============================================================
|
||||
;; 3. Core Settings & UI
|
||||
;; ============================================================
|
||||
|
||||
(use-package mason
|
||||
:config
|
||||
(mason-setup))
|
||||
(setq
|
||||
;; --- Clipboard & Interprogram ---
|
||||
;; Disable automatic clipboard integration to maintain a manual 'copy-paste' workflow
|
||||
kill-ring-max 1
|
||||
select-enable-clipboard nil
|
||||
select-enable-primary nil
|
||||
save-interprogram-paste-before-kill nil
|
||||
mouse-drag-copy-region nil
|
||||
selection-coding-system 'utf-8
|
||||
|
||||
(use-package lsp-mode
|
||||
:hook ((prog-mode . lsp-deferred) ;try to automatically start lsp-mode when prog-mode
|
||||
(typescript-ts-mode . lsp-deferred)
|
||||
(js-ts-mode . lsp-deferred)
|
||||
(tsx-ts-mode . lsp-deferred)
|
||||
(arduino-mode . lsp-deferred)
|
||||
(lsp-mode . lsp-enable-which-key-integration))
|
||||
:commands lsp
|
||||
:config
|
||||
(add-to-list 'lsp-language-id-configuration '(arduino-mode . "cpp"))
|
||||
(lsp-register-client
|
||||
(make-lsp-client
|
||||
:new-connection (lsp-stdio-connection '("clangd" "--header-insertion=never"))
|
||||
:activation-fn (lsp-activate-on "arduino")
|
||||
:server-id 'lsp-arduino-clangd
|
||||
)))
|
||||
;; --- Visuals & UI ---
|
||||
cursor-type 'bar
|
||||
display-line-numbers-type t
|
||||
truncate-lines nil ; Enable line wrapping
|
||||
fast-but-imprecise-scrolling t
|
||||
ring-bell-function 'ignore ; Silence the system bell
|
||||
|
||||
|
||||
;; --- File & Buffer Handling ---
|
||||
find-file-visit-truename t
|
||||
vc-follow-symlinks t
|
||||
recentf-max-saved-items 100
|
||||
history-length 300
|
||||
savehist-additional-variables '(kill-ring search-ring)
|
||||
|
||||
;; --- Undo System ---
|
||||
;; Expand undo limits for large files/sessions
|
||||
undo-limit 60000000
|
||||
undo-strong-limit 90000000
|
||||
undo-outer-limit 120000000
|
||||
|
||||
;; --- Dired Settings ---
|
||||
dired-listing-switches "-lha" ; Show hidden files and detailed info
|
||||
dired-dwim-target t
|
||||
dired-create-destination-dirs 'ask
|
||||
dired-clean-up-buffers-too nil
|
||||
dired-auto-revert-buffer t
|
||||
|
||||
;; --- Other ---
|
||||
delete-by-moving-to-trash (not noninteractive)
|
||||
remote-file-name-inhibit-delete-by-moving-to-trash t
|
||||
package-quickstart t
|
||||
diff-font-lock-prettify t
|
||||
)
|
||||
|
||||
(setq-default
|
||||
;; Standardize indentation across major modes
|
||||
tab-width 4
|
||||
js-indent-level 4
|
||||
typescript-indent-level 4
|
||||
typescript-ts-mode-indent-offset 4
|
||||
selection-coding-system 'utf-8
|
||||
cursor-type 'bar
|
||||
)
|
||||
|
||||
;; ============================================================
|
||||
;; Theming
|
||||
;; 5. Hooks, Modes & Theming
|
||||
;; ============================================================
|
||||
(my/apply-theme (selected-frame))
|
||||
;;(add-hook 'window-setup-hook (lambda () (my/apply-theme (selected-frame))))
|
||||
(add-hook 'after-make-frame-functions 'my/apply-theme)
|
||||
|
||||
(add-hook
|
||||
'after-init-hook
|
||||
(lambda ()
|
||||
;; --- Modes ---
|
||||
(recentf-mode t) ; save/load recent files
|
||||
(global-display-line-numbers-mode 1) ; always display line numbers
|
||||
(global-hl-line-mode 0) (hl-line-mode 0) ; handled by god mode toggle
|
||||
(savehist-mode 1)
|
||||
(global-clipetty-mode t) ; copy-paste in terminal
|
||||
(global-auto-revert-mode t) ; automatically refresh buffer
|
||||
(yas-global-mode t) ; yasnippets
|
||||
(repeat-mode 1) ; repeat key without modifier
|
||||
(electric-pair-mode t) ; automatically handle pairs
|
||||
(jit-spell-mode t) ; spellcheck
|
||||
(fringe-mode '(0 . 8)) ; fringe only on right edge
|
||||
(delete-selection-mode 1)
|
||||
(auto-revert-mode t)
|
||||
|
||||
;; --- Special UI Settings ---
|
||||
(setq ispell-program-name "hunspell"
|
||||
ispell-dictionary "en_US,nl_NL")
|
||||
|
||||
;; Ensure help opens in a side window rather than replacing current buffer
|
||||
(setq display-buffer-alist
|
||||
(cons '("Help" . (display-buffer-in-side-window
|
||||
:side 'bottom
|
||||
:style 'overriding
|
||||
:window-height 0.3))
|
||||
display-buffer-alist))
|
||||
|
||||
(setq minibuffer-prompt-properties
|
||||
'(read-only t intangible t cursor-intangible t face minibuffer-prompt))
|
||||
)
|
||||
)
|
||||
|
||||
;; Dired Customization
|
||||
(with-eval-after-load 'dired
|
||||
(add-hook 'dired-mode-hook
|
||||
(lambda ()
|
||||
(define-key dired-mode-map (kbd "a") 'dired-up-directory)
|
||||
(define-key dired-mode-map (kbd "v") 'dirvish-move))))
|
||||
|
||||
;; Recentf Maintenance
|
||||
(with-eval-after-load 'recentf
|
||||
(run-at-time nil 600 #'recentf-cleanup)
|
||||
(setq recentf-exclude '(".*/$")))
|
||||
|
||||
;; General Hooks
|
||||
(add-hook 'find-file-hook #'recentf-save-list)
|
||||
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
|
||||
|
||||
;; Mode-specific fonts
|
||||
(dolist (hook '(markdown-mode-hook org-mode-hook json-mode-hook))
|
||||
(add-hook hook (lambda () (buffer-face-set '(:family "Noto Sans" :height 140)))))
|
||||
|
||||
;; File Associations
|
||||
(add-to-list 'auto-mode-alist '("\\.qd$" . markdown-mode))
|
||||
(add-to-list 'auto-mode-alist '("\\.ino$" . c++-mode))
|
||||
(add-to-list 'auto-mode-alist '("\\.ts$" . typescript-ts-mode))
|
||||
(add-to-list 'term-file-aliases '("xterm-256" . "xterm"))
|
||||
|
||||
;; Visual Finalization
|
||||
(add-hook
|
||||
'window-setup-hook
|
||||
(lambda ()
|
||||
(set-face-attribute 'default nil :family "Noto Sans Mono" :height 120)
|
||||
(set-face-attribute 'variable-pitch nil :family "Noto Sans" :height 140)
|
||||
(my/apply-theme (selected-frame))))
|
||||
|
||||
(setq nerd-icons-font-family "Symbols Nerd Font Mono")
|
||||
|
||||
Reference in New Issue
Block a user