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

Move some Windows config things, add keybind for eval defun

Browse Source
This commit is contained in:
James Dixon 2025-05-24 10:43:18 -04:00
parent 2beee3348e
commit 6b7f2706d1
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
config/emacs/.config/emacs/init.el
View File

@ -9,6 +9,7 @@
;;; Code: ;;; Code:
;;; ;;;
;;; User Info ;;; User Info
(setq user-full-name "James Dixon") (setq user-full-name "James Dixon")
(setq user-mail-address "notjamesdixon@gmail.com") (setq user-mail-address "notjamesdixon@gmail.com")
@ -35,14 +36,15 @@
(setq visible-bell 1) ; Flash when the bell rings (no sound) (setq visible-bell 1) ; Flash when the bell rings (no sound)
(setq frame-resize-pixelwise t) ; Yes, I would like to be able to **resize** emacs frame, thanks! (setq frame-resize-pixelwise t) ; Yes, I would like to be able to **resize** emacs frame, thanks!
(setq window-resize-pixelwise nil) ; Not for windows inside emacs though (setq window-resize-pixelwise nil) ; Not for windows inside emacs though
(winner-mode 1) ; Record the changes in window configuration (undo/redo window changes)
;; Mark and go-to modes ;; Mark and go-to modes
(transient-mark-mode 1) ; Easier starting of marks/regions (transient-mark-mode 1) ; Easier starting of marks/regions
(delete-selection-mode 1) ; Easier deleting of marks/regions (delete-selection-mode 1) ; Easier deleting of marks/regions
(global-goto-address-mode 1) ; Make links and addresses go-to able (global-goto-address-mode 1) ; Make links and addresses go-to able
;; Allow for shorter responses: "y" for yes and "n" for no. ;; (setq use-short-answers t)
(fset 'yes-or-no-p 'y-or-n-p) (fset 'yes-or-no-p 'y-or-n-p) ; Allow for shorter responses: "y" for yes and "n" for no.
;; Show paren differently ;; Show paren differently
(setq show-paren-delay 0.1 (setq show-paren-delay 0.1
@ -365,6 +367,7 @@
;; Eval Keybinds ;; Eval Keybinds
":" 'eval-expression ":" 'eval-expression
"p" 'execute-extended-command "p" 'execute-extended-command
"x" 'eval-defun
"e" 'eval-last-sexp "e" 'eval-last-sexp
"E" 'eval-print-last-sexp "E" 'eval-print-last-sexp
"b" 'eval-buffer "b" 'eval-buffer
@ -505,6 +508,7 @@
("REVIEW" font-lock-keyword-face bold) ("REVIEW" font-lock-keyword-face bold)
("NOTE" success bold) ("NOTE" success bold)
("DEPRECATED" font-lock-doc-face bold)))) ("DEPRECATED" font-lock-doc-face bold))))
; TODO: look into todo integrations
;; Colorize color names in buffers ;; Colorize color names in buffers
;; https://github.com/emacsmirror/rainbow-mode ;; https://github.com/emacsmirror/rainbow-mode
@ -686,24 +690,24 @@
(set-auto-mode))))) (set-auto-mode)))))
;; LLM support (must configure with api keys) ;; LLM support (must configure with api keys)
(use-package gptel ;; (use-package gptel
:straight t) ;; :straight t)
;; (setq gemini-api-key (funcall (lambda (prompt) (read-passwd prompt)) "Enter Gemini API key: ")) ;; (setq gemini-api-key (funcall (lambda (prompt) (read-passwd prompt)) "Enter Gemini API key: "))
;; (gptel-make-gemini "Gemini" :key (getenv "GEMINI_API_KEY") :stream t) ;; (gptel-make-gemini "Gemini" :key (getenv "GEMINI_API_KEY") :stream t)
;; (gptel-make-openai "OpenAI" :key (getenv "OPENAI_KEY") :stream t) ;; (gptel-make-openai "OpenAI" :key (getenv "OPENAI_KEY") :stream t)
(gptel-make-gemini "Gemini" :stream t :key gptel-api-key) ;; (gptel-make-gemini "Gemini" :stream t :key gptel-api-key)
(gptel-make-openai "OpenAI" :stream t :key gptel-api-key) ;; (gptel-make-openai "OpenAI" :stream t :key gptel-api-key)
;;; Platform Specifics ;;; Platform Specifics
;; for Win32 ;; for Win32
;; TODO: check if fonts exists before setting
(if (eq system-type 'windows-nt)
(set-frame-font "Cascadia Code 12" nil t))
;; on windows, make pwsh the default shell
(when (eq system-type 'windows-nt) (when (eq system-type 'windows-nt)
;; Powershell
(use-package powershell
:straight t)
(set-frame-font "Cascadia Code 12" nil t)
(let ((xlist (let ((xlist
'( '(
"C:/Program Files/PowerShell/7/pwsh.exe" "C:/Program Files/PowerShell/7/pwsh.exe"