diff --git a/.gitignore b/.gitignore index 068d9ff..e71cc7a 100644 --- a/.gitignore +++ b/.gitignore @@ -6,6 +6,7 @@ /recentf /org-roam.db /projects +/bookmarks *~ *.*~ diff --git a/lisp/init-better-default.el b/lisp/init-better-default.el index 312179d..6e94370 100644 --- a/lisp/init-better-default.el +++ b/lisp/init-better-default.el @@ -25,8 +25,19 @@ (setq make-backup-files nil) (setq use-short-answers t) (setq frame-title-format "Emacs: %b") + (setq visible-bell 1) +(setq-default delete-by-moving-to-trash t + x-stretch-cursor t + window-combination-resize t) + +(global-subword-mode 1) + +(setq undo-limit 80000000 + auto-save-default t + password-cache-expiry nil) + (setq custom-file (expand-file-name "~/.emacs.d/custom.el")) (add-hook 'elpaca-after-init-hook (lambda () (load custom-file 'no-error 'no-message))) diff --git a/lisp/init-coding.el b/lisp/init-coding.el index ca3c5ae..cec4819 100644 --- a/lisp/init-coding.el +++ b/lisp/init-coding.el @@ -47,4 +47,6 @@ :config (treesit-auto-add-to-auto-mode-alist 'all)) +(use-package systemd) + (provide 'init-coding) diff --git a/lisp/init-completion.el b/lisp/init-completion.el index 001ba51..80ffa68 100644 --- a/lisp/init-completion.el +++ b/lisp/init-completion.el @@ -234,7 +234,7 @@ :autoload (cape-wrap-silent) :init ;; Add `completion-at-point-functions', used by `completion-at-point'. - ;; (add-to-list 'completion-at-point-functions #'cape-dabbrev) + (add-to-list 'completion-at-point-functions #'cape-dabbrev) (add-to-list 'completion-at-point-functions #'cape-file) (add-to-list 'completion-at-point-functions #'cape-elisp-block) (add-to-list 'completion-at-point-functions #'cape-keyword) diff --git a/lisp/init-edit.el b/lisp/init-edit.el index fb8b63c..8184614 100644 --- a/lisp/init-edit.el +++ b/lisp/init-edit.el @@ -38,5 +38,8 @@ (let ((yas-buffer-local-condition ''(require-snippet-condition . auto))) (yas-expand))))) +(setq-default abbrev-mode t) +(setq abbrev-file-name (expand-file-name "abbrev.el" user-emacs-directory)) + (provide 'init-edit) diff --git a/lisp/init-llm.el b/lisp/init-llm.el index 8dbcf57..ca7772c 100644 --- a/lisp/init-llm.el +++ b/lisp/init-llm.el @@ -7,6 +7,7 @@ :config (setq gptel-model 'claude-sonnet-4.5) (setq gptel-backend (gptel-make-gh-copilot "Copilot")) + (setq gptel-default-mode #'org-mode) (setq gptel-display-buffer-action nil) ; if user changes this, popup manager will bow out ) diff --git a/lisp/init-org.el b/lisp/init-org.el index f4b2337..d265c98 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -11,14 +11,12 @@ :branch "dev") :hook (org-mode . org-indent-mode) :hook (org-mode . org-cdlatex-mode) - :hook (org-mode . visual-line-mode) :config ;; (org-capture-init) (add-to-list 'org-modules 'org-habit) (setq org-directory "~/org/") (add-to-list 'org-agenda-files "~/org") (setq org-highlight-latex-and-related '(native latex entities)) - (setq org-hide-emphasis-markers t) (setq org-pretty-entities t) (setq org-pretty-entities-include-sub-superscripts nil) @@ -40,7 +38,22 @@ (setq org-hide-emphasis-markers t org-pretty-entities t)) :config - (setq org-modern-table nil)) + (setq org-modern-table-vertical 1 + org-modern-table-horizontal 0.2 + org-modern-todo-faces + '(("TODO" :inverse-video t :inherit org-todo) + ("PROJ" :inverse-video t :inherit +org-todo-project) + ("STRT" :inverse-video t :inherit +org-todo-active) + ("[-]" :inverse-video t :inherit +org-todo-active) + ("HOLD" :inverse-video t :inherit +org-todo-onhold) + ("WAIT" :inverse-video t :inherit +org-todo-onhold) + ("[?]" :inverse-video t :inherit +org-todo-onhold) + ("KILL" :inverse-video t :inherit +org-todo-cancel) + ("NO" :inverse-video t :inherit +org-todo-cancel)) + org-modern-list '((43 . "➤") + (45 . "–") + (42 . "•")) + )) (use-package org-modern-indent :ensure (org-modern-indent :type git :host github :repo "jdtsmith/org-modern-indent") @@ -48,7 +61,13 @@ (add-hook 'org-mode-hook #'org-modern-indent-mode 90)) (use-package org-appear - :defer) + :hook (org-mode . org-appear-mode) + :config + (setq org-appear-autoemphasis t + org-appear-autosubmarkers t + org-appear-autolinks nil) + (run-at-time nil nil #'org-appear--set-elements) + ) (use-package hl-todo :hook (prog-mode . hl-todo-mode) diff --git a/lisp/init-utils.el b/lisp/init-utils.el index 59c24fb..a09fe17 100644 --- a/lisp/init-utils.el +++ b/lisp/init-utils.el @@ -6,6 +6,7 @@ :bind ("C-h M-m" . which-key-show-major-mode) :hook (elpaca-after-init . which-key-mode) :init (setq which-key-max-description-length 30 + which-key-idle-delay 0.5 which-key-lighter nil which-key-show-remaining-keys t) :config