add a bunch of niceties from the newcomers presets

This commit is contained in:
2026-09-02 05:01:07 -04:00
parent fa991d0b0d
commit a106228d98

73
init.el
View File

@@ -9,9 +9,14 @@
(load-theme 'deeper-blue)
(defun hgh/emacs-directory (path)
(concat user-emacs-directory path))
(load-file (hgh/emacs-directory "utils.el"))
(when (string= system-type "darwin")
(setq manual-program "gman")
(setq dired-use-ls-dired nil)
(setq-default manual-program "gman")
(setq-default dired-use-ls-dired nil)
(setq mac-command-modifier 'control))
(keymap-global-set "M-o" #'other-window)
@@ -35,16 +40,11 @@
(grep-apply-setting 'grep-command "rg --no-heading")
(grep-apply-setting 'grep-find-command nil)
(defun hgh/emacs-directory (path)
(concat user-emacs-directory path))
(setq
org-default-notes-file "~/inbox.org"
org-todo-keywords '((sequence "TODO" "INPROGRESS" "DONE"))
custom-file (hgh/emacs-directory "custom.el")
make-backup-files nil
dired-dwim-target t
manual-program "gman"
speedbar-window-default-width 25
speedbar-window-max-width 25
duplicate-line-final-position -1
@@ -52,7 +52,8 @@
competions-detailed t
auth-sources '("~/.authinfo")
tab-bar-show 1
ring-bell-function 'ignore)
ring-bell-function 'ignore
pixel-scroll-mode t)
(require 'project)
(setq project-switch-commands '((project-find-file "Find file" "f")
@@ -68,25 +69,37 @@
(add-to-list 'load-path work-dir)
(load-file (expand-file-name "work.el" work-dir))))
(load-file (hgh/emacs-directory "utils.el"))
(setopt
use-short-answers t
use-dialog-box nil
use-package-enable-imenu-support t
display-line-numbers-type 'relative
completion-styles '(basic))
completion-styles '(basic)
save-interprogram-paste-before-kill t
imenu-auto-rescan t
column-number-mode t
frame-resize-pixelwise t
window-resize-pixelwise t
mode-line-compact 'long
savehist-mode t
minibuffer-visible-completions t
completions-detailed t
completions-group t
completion-eager-update t
shell-command-prompt-show-cwd t
(electric-pair-mode 1)
(fido-mode 1)
(global-completion-preview-mode 1)
(tab-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
(global-hl-line-mode 1)
(global-eldoc-mode 1)
(global-display-line-numbers-mode 1)
(global-auto-revert-mode 1)
electric-pair-mode t
fido-mode t
global-completion-preview-mode t
tab-bar-mode nil
tool-bar-mode nil
scroll-bar-mode nil
global-hl-line-mode t
global-eldoc-mode t
global-display-line-numbers-mode t
global-auto-revert-mode t)
(defun hgh/untabify-buffer ()
(interactive)
@@ -131,6 +144,13 @@
(exec-path-from-shell-initialize)
(use-package dired
:ensure nil
:custom
(dired-dwim-target t)
(dired-auto-revert-buffer t)
(dired-mouse-drag-files t))
(use-package diminish
:demand t
:config
@@ -247,15 +267,15 @@
dumber-jump-find-rules)
(push
'(:language "jai" :type "variable"
:supports ("ag" "grep" "rg" "git-grep")
:regex "\\bJJJ\\s*(:|:\\s*=|::)"
:tests ("test: Type" "test : Type = Val" "test :: Val"))
:supports ("ag" "grep" "rg" "git-grep")
:regex "\\bJJJ\\s*(:|:\\s*=|::)"
:tests ("test: Type" "test : Type = Val" "test :: Val"))
dumber-jump-find-rules)
(push
'(:language "jai" :type "type"
:supports ("ag" "grep" "rg" "git-grep")
:regex "\\bJJJ\\s*::"
:tests ("test ::"))
:supports ("ag" "grep" "rg" "git-grep")
:regex "\\bJJJ\\s*::"
:tests ("test ::"))
dumber-jump-find-rules))
(use-package eglot
@@ -300,6 +320,7 @@
(use-package dart-mode)
(use-package flymake
:hook (prog-mode)
:custom
(flymake-wrap-around t))