maxamundsen/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

emac

Browse Source
This commit is contained in:
Max Amundsen
2025-12-23 00:31:31 -05:00
parent 2c6824c63b
commit 982009bee5
1 changed files with 28 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
.emacs.d/init.el
View File

@@ -14,6 +14,7 @@
(add-to-list 'auto-mode-alist '("\\.jai\\'" . jai-mode)) (add-to-list 'auto-mode-alist '("\\.jai\\'" . jai-mode))
(require 'stupid-indent-mode) (require 'stupid-indent-mode)
(require 'xah-find) (require 'xah-find)
(require 'multiple-cursors)
;; default indentation settings ;; default indentation settings
(setq-default indent-tabs-mode t) (setq-default indent-tabs-mode t)
@@ -51,8 +52,8 @@
;; general settings ;; general settings
(setq-default inhibit-startup-screen t) (setq-default inhibit-startup-screen t)
(add-to-list 'default-frame-alist '(width . 140)) (add-to-list 'default-frame-alist '(width . 200))
(add-to-list 'default-frame-alist '(height . 50)) (add-to-list 'default-frame-alist '(height . 75))
(show-paren-mode 1) (show-paren-mode 1)
(delete-selection-mode 1) (delete-selection-mode 1)
(setq cua-auto-tabify-rectangles nil) ;; Don't tabify after rectangle commands (setq cua-auto-tabify-rectangles nil) ;; Don't tabify after rectangle commands
@@ -118,7 +119,7 @@
(global-set-key (kbd "M-j") 'my-duplicate-line) (global-set-key (kbd "M-j") 'my-duplicate-line)
(global-set-key (kbd "<f9>") 'bookmark-jump) (global-set-key (kbd "<f9>") 'bookmark-jump)
(global-set-key (kbd "<f10>") 'bookmark-set) (global-set-key (kbd "<f10>") 'bookmark-set)
(global-set-key (kbd "<f11>") (lambda () (interactive) (find-file user-init-file))) (global-set-key (kbd "<f11>") 'toggle-frame-maximized)
(global-set-key (kbd "<home>") 'my-smart-home) (global-set-key (kbd "<home>") 'my-smart-home)
(global-set-key (kbd "<end>") 'move-end-of-line) (global-set-key (kbd "<end>") 'move-end-of-line)
(setq mac-command-modifier 'control) (setq mac-command-modifier 'control)
@@ -136,6 +137,19 @@
(define-key minibuffer-local-filename-completion-map (kbd "C-2") 'my-find-file-right-pane) (define-key minibuffer-local-filename-completion-map (kbd "C-2") 'my-find-file-right-pane)
(define-key isearch-mode-map (kbd "<return>") 'isearch-repeat-forward) (define-key isearch-mode-map (kbd "<return>") 'isearch-repeat-forward)
(define-key isearch-mode-map (kbd "S-<return>") 'isearch-repeat-backward) (define-key isearch-mode-map (kbd "S-<return>") 'isearch-repeat-backward)
(define-key isearch-mode-map (kbd "<backspace>") 'isearch-del-char)
(setq isearch-wrap-pause 'no)
;; multiple cursors (vscode-style)
(setq mc/always-run-for-all t)
(global-set-key (kbd "C-d") 'mc/mark-next-like-this-word)
(global-set-key (kbd "C-S-d") 'mc/mark-previous-like-this-word)
(global-set-key (kbd "C-S-a") 'mc/mark-all-like-this)
(global-set-key (kbd "C-S-<mouse-1>") 'mc/add-cursor-on-click)
(global-set-key (kbd "C-M-<up>") (lambda () (interactive) (mc/mark-previous-lines 1)))
(global-set-key (kbd "C-M-<down>") (lambda () (interactive) (mc/mark-next-lines 1)))
(define-key mc/keymap (kbd "<escape>") 'mc/keyboard-quit)
(define-key mc/keymap (kbd "<return>") nil)
;; custom bind minor mode ;; custom bind minor mode
;; this allows binding keys that override all other modes ;; this allows binding keys that override all other modes
@@ -160,7 +174,7 @@
:init-value t :init-value t
:lighter "") :lighter "")
;; don't enable override keymap in minibuf ;; don't enable override keymap in minibuffer
(defun my-minibuffer-setup-hook () (defun my-minibuffer-setup-hook ()
(my-keys-minor-mode 0)) (my-keys-minor-mode 0))
(add-hook 'minibuffer-setup-hook 'my-minibuffer-setup-hook) (add-hook 'minibuffer-setup-hook 'my-minibuffer-setup-hook)
@@ -238,7 +252,7 @@
(defun my-set-light-theme () (defun my-set-light-theme ()
"Apply light color theme." "Apply light color theme."
(set-face-attribute 'default nil :foreground "#2E3440" :background "#FFFEF9") (set-face-attribute 'default nil :foreground "#2E3440" :background "honeydew")
(set-face-attribute 'font-lock-comment-face nil :foreground "#8B7355") (set-face-attribute 'font-lock-comment-face nil :foreground "#8B7355")
(set-face-attribute 'font-lock-string-face nil :foreground "#2E8B57") (set-face-attribute 'font-lock-string-face nil :foreground "#2E8B57")
(set-face-attribute 'font-lock-keyword-face nil :foreground "#0000CD") (set-face-attribute 'font-lock-keyword-face nil :foreground "#0000CD")
@@ -254,7 +268,8 @@
(progn (my-set-light-theme) (setq my-dark-theme-p nil)) (progn (my-set-light-theme) (setq my-dark-theme-p nil))
(my-set-dark-theme) (setq my-dark-theme-p t))) (my-set-dark-theme) (setq my-dark-theme-p t)))
;; global zoom ;; global zoom (without resizing window)
(setq frame-inhibit-implied-resize t)
(defvar my-default-font-height (face-attribute 'default :height)) (defvar my-default-font-height (face-attribute 'default :height))
(defun my-global-zoom-in () (defun my-global-zoom-in ()
@@ -321,9 +336,11 @@
(defun my-file-manager-command () (defun my-file-manager-command ()
(interactive) (interactive)
(cond ((eq system-type 'windows-nt) (cond ((eq system-type 'windows-nt)
(shell-command "explorer.exe .")) (shell-command "explorer.exe ."))
((eq system-type 'gnu/linux) ((eq system-type 'darwin)
(shell-command "setsid -f nautilus . >/dev/null 2>&1")))) (shell-command "open ."))
((eq system-type 'gnu/linux)
(shell-command "setsid -f nautilus . >/dev/null 2>&1"))))
;; open terminal or cmd prompt ;; open terminal or cmd prompt
(defun my-terminal-emulator-command () (defun my-terminal-emulator-command ()
@@ -404,5 +421,7 @@ Use in `isearch-mode-end-hook'."
'(widget-field-face ((t (:foreground "white"))) t) '(widget-field-face ((t (:foreground "white"))) t)
'(widget-single-line-field-face ((t (:background "darkgray"))) t)) '(widget-single-line-field-face ((t (:background "darkgray"))) t))
(add-to-list 'default-frame-alist '(cursor-color . "lightgreen"))
(global-font-lock-mode 1) (global-font-lock-mode 1)
(my-set-dark-theme) (my-set-dark-theme)