From c40a8f3420f0fffd9bac538608ebb1c6d1cd76f3 Mon Sep 17 00:00:00 2001 From: Howard Abrams Date: Thu, 11 Sep 2025 09:47:38 -0700 Subject: [PATCH] All of the built-in packages are ensure nil'd Removed all straight references. --- README-MacOS.org | 7 +---- README.org | 4 +-- bootstrap.org | 4 +-- ha-applications.org | 21 ++++++++------- ha-aux-apps.org | 12 ++++----- ha-capturing-notes.org | 2 +- ha-config.org | 25 +++++++++--------- ha-dashboard.org | 5 +++- ha-demos.org | 27 ++++++++++--------- ha-display.org | 16 ++++++----- ha-email.org | 3 ++- ha-eshell.org | 52 +++++++++++++++++++----------------- ha-evil.org | 3 ++- ha-general.org | 6 ++++- ha-org-publishing.org | 12 ++++----- ha-org-word-processor.org | 9 ++++--- ha-org.org | 54 ++++++++++++++++++++++++++++---------- ha-programming-ansible.org | 10 +++---- ha-programming-clojure.org | 2 +- ha-programming-elisp.org | 7 ++++- ha-programming-haskell.org | 2 +- ha-programming-scheme.org | 6 ++--- ha-programming.org | 38 ++++++++++++++++----------- ha-remoting.org | 13 +++------ initialize | 6 +++-- 25 files changed, 196 insertions(+), 150 deletions(-) diff --git a/README-MacOS.org b/README-MacOS.org index abd5dfa..c611f8b 100644 --- a/README-MacOS.org +++ b/README-MacOS.org @@ -131,12 +131,7 @@ And if that doesn’t work, then we need to delete all packages installed by bre * Afterwards After Emacs is /kinda/ working, make sure you install *all* the fonts, that is: #+begin_example -M-x nerd-icons-install-fonts -#+end_example - -Everything golden? -#+begin_example -M-x straight-freeze-versions + M-x nerd-icons-install-fonts #+end_example Before we can build a Telegram server for [[file:ha-aux-apps.org::*Telega][Telega]], we need to install the /latest/ version: diff --git a/README.org b/README.org index 3b6fe59..938aa19 100644 --- a/README.org +++ b/README.org @@ -8,7 +8,7 @@ I’ve crafted my Emacs configuration, I cheekily call /hamacs/, in a literate p The advantage to rolling yer own is I tend to /use/ what I add, leading to less bloat. In reality, this is more fun. -Using [[https://howardism.org/Technical/Emacs/literate-devops.html][literate programming]] for my Emacs configuration gives me an easy way to /share/ my code. Feel free to steal whatever you find interesting, as sharing makes our community great. Notice that functions and features I have written begin with =ha-=, but everything else is either /stock Emacs/ or a /package/ I download using [[https://github.com/raxod502/straight.el][straight]] (see [[file:bootstrap.org][bootstrap]] for the details) and configure with [[https://github.com/jwiegley/use-package][use-package]] (see either [[https://ianyepan.github.io/posts/setting-up-use-package/][this introduction]] or [[https://www.emacswiki.org/emacs/UsePackage][this wiki page]] for those details)… meaning most blocks of code should work on its own. +Using [[https://howardism.org/Technical/Emacs/literate-devops.html][literate programming]] for my Emacs configuration gives me an easy way to /share/ my code. Feel free to steal whatever you find interesting, as sharing makes our community great. Notice that functions and features I have written begin with =ha-=, but everything else is either /stock Emacs/ or a /package/ I download using [[https://github.com/progfolio/elpaca][Elpaca]] (see [[file:bootstrap.org][bootstrap]] for the details) and configure with [[https://github.com/jwiegley/use-package][use-package]] (see either [[https://ianyepan.github.io/posts/setting-up-use-package/][this introduction]] or [[https://www.emacswiki.org/emacs/UsePackage][this wiki page]] for those details)… meaning most blocks of code should work on its own. I’ve separated my configuration into /chapters/ around particular subjects, applications and programming languages. This feature allows you, dear reader, to jump our to items of interest, but allows me to /selectively load/ individual chapters. For instance, if I’m not doing much with Ruby at work, I can remove that chapter from the list in my [[file:bootstrap.org::*Load the Rest][bootstrap]]. I also don’t load my [[file:ha-display.org][UI configuration]] when I am using the Terminal (doesn’t happen much, actually). @@ -26,7 +26,7 @@ To create [[file:~/.emacs.d/init.el][~/.emacs.d/init.el]] which starts the proce [[file:screenshots/dashboard-small.png]] ** Core Configuration - - [[file:bootstrap.org][Bootstrap]] :: configures =straight= and loads basic libraries the rest of the code depends on. It then loads the following files in order. + - [[file:bootstrap.org][Bootstrap]] :: configures =elpaca= and loads basic libraries the rest of the code depends on. It then loads the following files in order. - [[file:ha-config.org][Configuration]] :: contains /most/ of my configuration, setting up my sequence key menus, evil, etc. - [[file:ha-evil.org][Evilness]] :: configuration for using VI, er, ~vim~ keybindings in Emacs. - [[file:ha-general.org][Leader]] :: using the ~SPC~ to kick off a hierarchical order of functions. diff --git a/bootstrap.org b/bootstrap.org index f29726d..d859690 100644 --- a/bootstrap.org +++ b/bootstrap.org @@ -27,9 +27,7 @@ A literate programming file for bootstraping my Emacs Configuration. * Introduction This file contains all the variable definitions and library loading for the other files in my project. -I'm installing everything using the [[https://github.com/raxod502/straight.el#getting-started][straight.el]] for package installation and management. This is initialization code configured in [[file:initialize][initialize]], and calls to =use-package= now accepts a =:straight= parameter that allows me to retrieve special versions of some packages. - -See the details in [[https://dev.to/jkreeftmeijer/emacs-package-management-with-straight-el-and-use-package-3oc8][this essay]]. +I'm installing everything using the [[https://github.com/progfolio/elpaca/blob/master/doc/manual.md][elpaca project]] for package installation and management. I configure its initialization code in [[file:initialize][initialize]] script, and calls to =use-package= now /work through it/. * Initial Settings ** Garbage Collection Settings diff --git a/ha-applications.org b/ha-applications.org index e72b34c..a936336 100644 --- a/ha-applications.org +++ b/ha-applications.org @@ -218,10 +218,10 @@ The crucial parts of this helper function are that we "wash" the result using =a The functions below depend on [[help:magit-thing-at-point][magit-thing-at-point]], and this depends on the [[https://sr.ht/~pkal/compat/][compat]] library, so let’s grab that stuff: #+begin_src emacs-lisp :tangle no - (use-package compat - ;; :straight (:host github :repo "emacs-straight/compat")) + (use-package compat) (use-package magit-section + :after compat :commands magit-thing-at-point) #+end_src Next, let's define our first command basically doing a =git show= for some revision which defaults to the commit or branch at point or queries the user if there's none. @@ -315,7 +315,8 @@ Using the [[https://github.com/emacsmirror/gist][gist package]] to write code sn The gist project depends on the [[https://github.com/sigma/gh.el][gh library]]. There seems to be a problem with it. #+begin_src emacs-lisp :tangle no (use-package gh - ;; :straight (:host github :repo "sigma/gh.el")) + ;; :ensure (:host github :repo "sigma/gh.el") + ) #+end_src ** Forge @@ -413,6 +414,7 @@ Web pages look pretty good with EWW, but I'm having difficulty getting it to ren #+begin_src emacs-lisp (use-package eww + :ensure nil :init (setq browse-url-browser-function 'eww-browse-url browse-url-secondary-browser-function 'browse-url-default-browser @@ -484,6 +486,7 @@ Web pages look pretty good with EWW, but I'm having difficulty getting it to ren This function allows Imenu to offer HTML headings in EWW buffers, helpful for navigating long, technical documents. #+begin_src emacs-lisp :tangle no (use-package eww + :ensure nil :config (defun unpackaged/imenu-eww-headings () "Return alist of HTML headings in current EWW buffer for Imenu. @@ -511,7 +514,7 @@ Make my EWW browsers /look/ like an Org file with the [[https://github.com/cheny #+begin_src emacs-lisp (use-package shrface - ;; :straight (:host github :repo "chenyanming/shrface") + ;; :ensure (:host github :repo "chenyanming/shrface") :config (shrface-basic) ;; (shrface-trial) @@ -529,6 +532,7 @@ The following connection to EWW throws errors now. Hrm. #+begin_src emacs-lisp :tangle no (use-package eww + :ensure nil :after shrface :hook (eww-after-render #'shrface-mode)) #+end_src @@ -646,18 +650,17 @@ Instead I use Emacs' built-in directory lister (which accepts the standard, =dir #+begin_src emacs-lisp (use-package ls-lisp - ;; :straight (:type built-in) + :ensure nil :config (setq ls-lisp-use-insert-directory-program nil dired-listing-switches "-l --almost-all --human-readable --group-directories-first --no-group")) #+end_src -And [[https://www.masteringemacs.org/article/dired-shell-commands-find-xargs-replacement][this article by Mickey Petersen]] convinced me to turn on the built-in =dired-x= (just have to tell [[file:bootstrap.org::*Introduction][straight]] that knowledge): +And [[https://www.masteringemacs.org/article/dired-shell-commands-find-xargs-replacement][this article by Mickey Petersen]] convinced me to turn on the built-in =dired-x=: #+begin_src emacs-lisp - (use-package dired-x - ;; :straight (:type built-in)) + (use-package dired-x :ensure nil) #+end_src The advantage of =dired-x= is the ability to have [[https://www.emacswiki.org/emacs/DiredExtra#Dired_X][shell command guessing]] when selecting one or more files, and running a shell command on them with ~!~ or ~&~. @@ -671,7 +674,7 @@ The [[https://github.com/alexluigit/dirvish][dirvish]] project aims to make a pr I’m beginning with dirvish to use the [[https://github.com/alexluigit/dirvish/blob/main/docs/CUSTOMIZING.org][sample configuration]] and change it: #+begin_src emacs-lisp :tangle no (use-package dirvish - ;; :straight (:host github :repo "alexluigit/dirvish") + ;; :ensure (:host github :repo "alexluigit/dirvish") :init (dirvish-override-dired-mode) :custom diff --git a/ha-aux-apps.org b/ha-aux-apps.org index b7e5205..afb8d9c 100644 --- a/ha-aux-apps.org +++ b/ha-aux-apps.org @@ -31,7 +31,7 @@ The following applications are not needed. I alternate between trying to /stay i Glad to see the 2FA feature is working on the [[https://codeberg.org/martianh/mastodon.el][mastodon.el]] project, and even more glad to see the great birdland diaspora arrive in the land of the toots. #+begin_src emacs-lisp (use-package mastodon - ;; :straight (:host codeberg :repo "martianh/mastodon.el") + ;; :ensure (:host codeberg :repo "martianh/mastodon.el") :init (setq mastodon-instance-url "https://pdx.social" mastodon-active-user "howard")) @@ -95,7 +95,7 @@ Let’s turn on non-fixed-width fonts to make everything easier to read: Yet another encrypted chat/VoIP client-server, but unlike Signal and Telegram, [[matrix.org][Matrix]] is act ually open source. In other words, a project for nerds. We’ll be using Alphapapa’s latest [[https://github.com/alphapapa/ement.el][ement]] project. #+begin_src emacs-lisp (use-package ement - ;; :straight (:host github :repo "alphapapa/ement.el") + ;; :ensure (:host github :repo "alphapapa/ement.el") :config (major-mode-hydra-define ement-room-mode (:quit-key "q") ("Send" @@ -189,7 +189,7 @@ Been working on my [[https://gitlab.com/howardabrams/emacs-rpgdm][RPG DM project #+begin_src emacs-lisp (when (f-directory? "~/src/emacs-rpgdm") (use-package rpgdm - ;; :straight (:local-repo "~/src/emacs-rpgdm") + :load-path "~/src/emacs-rpgdm" :commands (rpgdm-mode rpgdm-tables-load) :init (setq rpgdm-base (expand-file-name "~/src/emacs-rpgdm")) :config (ha-leader "t D" '("rpg dm" . rpgdm-mode)))) @@ -199,7 +199,7 @@ Working on my new replacement of my DM code: #+begin_src emacs-lisp (when (f-directory? "~/src/emacs-rpgtk") (use-package rpgtk - ;; :straight (:local-repo "~/src/emacs-rpgtk") + :load-path "~/src/emacs-rpgtk" :after hydra ;; :commands (rpgtk-mode rpgtk-tables-load rpgtk-dice rpgtk-message) :custom @@ -217,7 +217,7 @@ And my [[https://gitlab.com/howardabrams/emacs-ironsworn][new Ironsworn project] (when (f-directory? "~/src/emacs-ironsworn") (use-package rpgdm-ironsworn :after rpgdm - ;; :straight (:local-repo "~/src/emacs-ironsworn") + :load-path "~/src/emacs-ironsworn" :init (setq rpgdm-ironsworn-project (expand-file-name "~/src/emacs-ironsworn") ;; Ignore org links that call my RPG functions: @@ -234,7 +234,7 @@ Why not? Let’s see if the [[https://github.com/isamert/empv.el][empv]] project What else? #+begin_src emacs-lisp (use-package empv - ;; :straight (:host github :repo "isamert/empv.el") + ;; :ensure (:host github :repo "isamert/empv.el") :general (ha-leader "a p" '(empv-map :wk "play music"))) #+end_src diff --git a/ha-capturing-notes.org b/ha-capturing-notes.org index 7d4f47d..ab741a4 100644 --- a/ha-capturing-notes.org +++ b/ha-capturing-notes.org @@ -233,7 +233,7 @@ And for even quicker work, we can have special scripts tied to special keybindin The [[https://gitlab.com/aimebertrand/org-mac-link][org-mac-link]] project makes it easy to tell Emacs to retrieve information from other apps, e.g. the URL of the opened tab in Firefox. #+begin_src emacs-lisp (use-package org-mac-link - ;; :straight (:host gitlab :repo "aimebertrand/org-mac-link") + ;; :ensure (:host gitlab :repo "aimebertrand/org-mac-link") :config (ha-leader "i" '("insert app info" . org-mac-link-get-link))) #+end_src diff --git a/ha-config.org b/ha-config.org index 1896697..a3c4c42 100644 --- a/ha-config.org +++ b/ha-config.org @@ -146,8 +146,7 @@ After reading [[https://irreal.org/blog/?p=12139][Jon Sander’s essay]] as well #+begin_src emacs-lisp (use-package emacs-everywhere - ;; :straight (:host github :repo "tecosaur/emacs-everywhere") - :ensure t) + :ensure t) ; (:host github :repo "tecosaur/emacs-everywhere") #+end_src This package /called outside of Emacs/, so I bound a keybinding to iCanHazShortcut: @@ -226,7 +225,7 @@ When I push changes to my files to Gerrit and other code review, I don’t want The [[https://www.emacswiki.org/emacs/RecentFiles][recentf]] feature has been in Emacs for a long time, but it has a problem with Tramp, as we need to turn off the cleanup feature that attempts to =stat= all the files and remove them from the =recent= accessed list if they are readable. The requires recentf to open up a remote files which blocks Emacs at the most inopportune times… like when trying to reboot the machine. #+begin_src emacs-lisp (use-package recentf - ;; :straight (:type built-in) + :ensure nil :config (setq recentf-auto-cleanup 'never) ;; disable before we start recentf! (recentf-mode 1)) @@ -341,7 +340,8 @@ The [[https://github.com/minad/vertico][vertico]] package puts the completing re My issue with Vertico is when calling =find-file=, the Return key opens =dired=, instead of inserting the directory at point. This package addresses this: #+begin_src emacs-lisp (use-package vertico-directory - ;; :straight (el-patch :files ("~/.emacs.d/straight/repos/vertico/extensions/vertico-directory.el")) + :ensure nil + :load-path "~/.emacs.d/elpaca/builds/vertico/extensions" ;; More convenient directory navigation commands :bind (:map vertico-map ("RET" . vertico-directory-enter) @@ -383,8 +383,7 @@ How does it compare? Once upon a time, I enjoyed typing ~plp~ for =package-list- #+begin_src emacs-lisp (use-package fussy - :ensure t - ;; ;; :straight (:host github :repo "jojojames/fussy") + :ensure t ; :ensure (:host github :repo "jojojames/fussy") :config (push 'fussy completion-styles) (setq completion-category-defaults nil @@ -395,9 +394,7 @@ How does it compare? Once upon a time, I enjoyed typing ~plp~ for =package-list- *** Savehist Persist history over Emacs restarts using the built-in [[https://www.emacswiki.org/emacs/SaveHist][savehist]] project. Since both Vertico and Selectrum sorts by history position, this should make the choice /smarter/ with time. #+begin_src emacs-lisp - (use-package savehist - :init - (savehist-mode)) + (savehist-mode) #+end_src *** Marginalia The [[https://github.com/minad/marginalia][marginalia]] package gives a preview of =M-x= functions with a one line description, extra information when selecting files, etc. Nice enhancement without learning any new keybindings. @@ -578,7 +575,7 @@ The [[https://github.com/minad/cape][Cape project]] deliver particular [[help:co #+BEGIN_SRC emacs-lisp :tangle no (use-package cape - ;; :straight (:host github :repo "minad/cape") + :ensure t ; (:host github :repo "minad/cape") :init (setq completion-at-point-functions (list #'cape-emoji))) #+END_SRC @@ -630,6 +627,7 @@ The [[https://www.emacswiki.org/emacs/AutoInsertMode][auto-insert]] feature is a #+begin_src emacs-lisp (use-package autoinsert + :ensure nil :init (setq auto-insert-directory (expand-file-name "templates" user-emacs-directory)) ;; Don't prompt before insertion: @@ -682,7 +680,7 @@ As I've mentioned [[http://www.howardism.org/Technical/Emacs/beep-for-emacs.html 'libnotify))) (use-package beep - ;; :straight (:local-repo "~/src/hamacs/elisp") + :load-path "~/src/hamacs/elisp" :hook (after-init . ha-random-startup-message) :commands (beep-when-finished beep-when-run-too-long) :config @@ -931,6 +929,8 @@ Since I wasn’t using all the features that [[https://github.com/bbatsov/projec #+begin_src emacs-lisp (use-package emacs + :ensure nil + :after general :config (ha-leader "p" '(:ignore t :which-key "projects") @@ -1172,7 +1172,7 @@ Also, as [[https://www.bytedude.com/gpg-in-emacs/][bytedude]] mentions, I need t #+begin_src emacs-lisp (use-package epa-file - ;; :straight (:type built-in) + :ensure nil :custom (epg-debug t) (auth-source-debug t) @@ -1188,6 +1188,7 @@ Also, as [[https://www.bytedude.com/gpg-in-emacs/][bytedude]] mentions, I need t Need to make sure that Emacs will handle the prompts, and turn it on: #+begin_src emacs-lisp (use-package epa-file + :ensure nil :config (setenv "GPG_AGENT_INFO" nil) (epa-file-enable)) diff --git a/ha-dashboard.org b/ha-dashboard.org index 89e3c97..0f7bd91 100644 --- a/ha-dashboard.org +++ b/ha-dashboard.org @@ -139,6 +139,7 @@ I would appreciate seeing if my Emacs installation has the features that I expec The [[https://github.com/emacs-dashboard/emacs-dashboard][emacs-dashboard]] project makes a nicer startup screen. #+begin_src emacs-lisp (use-package dashboard + :ensure t :init (defun ha-dashboard-version () (let ((smaller-version (replace-regexp-in-string @@ -180,7 +181,8 @@ The [[https://github.com/emacs-dashboard/emacs-dashboard][emacs-dashboard]] proj This dashboard project requires [[https://github.com/purcell/page-break-lines][page-break-lines]] (which is a nice project): #+begin_src emacs-lisp - (use-package page-break-lines) + (use-package page-break-lines + :ensure t) #+end_src * Right Side @@ -190,6 +192,7 @@ On the right side should show a list of keybindings or other hints that I want t Lots of things to learn and keep straight. Let’s try the [[https://github.com/mykyta-shyrin/cheatsheet][cheatsheet.el]] project. #+begin_src emacs-lisp (use-package cheatsheet + :ensure t :config (cheatsheet-add-group 'Text-Objects '(:key "w" :description "word") diff --git a/ha-demos.org b/ha-demos.org index b404488..f1412be 100644 --- a/ha-demos.org +++ b/ha-demos.org @@ -43,12 +43,12 @@ A literate programming file for creating and running demonstrations Once I made demonstrations /within/ Emacs with my [[https://github.com/howardabrams/demo-it][demo-it]] project. While on MELPA, I wanted to use my own cloned version to make sure I can keep debugging it. #+begin_src emacs-lisp :tangle no - (use-package demo-it - ;; :straight (:local-repo "~/src/demo-it") - ;; ;; :straight (:host github :repo "howardabrams/demo-it") - :commands (demo-it-create demo-it-start demo-it-hide-mode-line - demo-it--presentation-display-set) - :custom (demo-it--insert-test-speed :faster)) + (use-package demo-it + :load-path "~/src/demo-it" + ;; :ensure (:host github :repo "howardabrams/demo-it") + :commands (demo-it-create demo-it-start demo-it-hide-mode-line + demo-it--presentation-display-set) + :custom (demo-it--insert-test-speed :faster)) #+end_src But I feel I should replace it, and this project encapsulates the following goals: @@ -194,7 +194,7 @@ With some a startup bug that I haven’t been able to resolve, I’m not using i #+begin_src emacs-lisp :tangle no (use-package dslide - ;; :straight (dslide :host github :repo "positron-solutions/dslide") + ;; :ensure (:host github :repo "positron-solutions/dslide") :commands (dslide-deck-start dslide-deck-stop) :custom (dslide-start-from 'point) @@ -227,7 +227,7 @@ With some a startup bug that I haven’t been able to resolve, I’m not using i (dslide-stop . ha-slide-teardown))) #+end_src -Let’s try it out by loading this example.[[file:~/.emacs.d/straight/repos/dslide/test/demo.org][ demo.org]] +Let’s try it out by loading this example.[[file:~/.emacs.d/elpaca/repos/dslide/test/demo.org][demo.org]] What features do I like and want to take advantage of? - Inline Children show: =:DSLIDE_SLIDE_ACTION: dslide-slide-action-inline= @@ -244,7 +244,7 @@ Call the =ha-slide-notes-update= function automatically after updating a slide. #+BEGIN_SRC emacs-lisp :tangle no (use-package dslide - ;; :straight (dslide :host github :repo "positron-solutions/dslide") + ;; :ensure (:host github :repo "positron-solutions/dslide") :commands (dslide-narrow-hook) :hook (dslide-narrow . 'ha-slide-notes-update)) #+END_SRC @@ -256,8 +256,8 @@ The [[https://github.com/positron-solutions/moc][Master of Ceremonies]] package (use-package default-text-scale) (use-package moc - ;; :straight (:type git :host github - :repo "positron-solutions/moc")) + ;; :ensure (:host github :repo "positron-solutions/moc") + ) #+END_SRC Select text, and call =moc-focus= (call =moc-focus-quit= to stop). Highlight more text, and call =moc-focus-highlight= to brighten it, or =moc-focus-obscure= to hide it. @@ -272,7 +272,8 @@ The [[https://github.com/trevorpogue/topspace][topspace]] project can pad the to #+BEGIN_SRC emacs-lisp (use-package topspace - ;; :straight (:type git :host github :repo "trevorpogue/topspace")) + ;; :ensure (:host github :repo "trevorpogue/topspace") + ) #+END_SRC *** Showing Something associated with a Headline @@ -307,7 +308,7 @@ To do this, add =:DSLIDE_ACTIONS: dslide-action-highlight-paragraphs= to the pro #+begin_src elisp emacs-lisp :tangle no (use-package dslide - ;; :straight (:host github :repo "positron-solutions/dslide") + ;; :ensure (:host github :repo "positron-solutions/dslide") :config (defclass dslide-action-highlight-paragraphs (dslide-action) ((overlays :initform nil)) diff --git a/ha-display.org b/ha-display.org index 6803df7..4678229 100644 --- a/ha-display.org +++ b/ha-display.org @@ -88,7 +88,7 @@ either be "there or not" which resulted large jumps and large distractions. #+BEGIN_SRC emacs-lisp (use-package ultra-scroll :ensure t - ;; :straight (:type git :host github :repo "jdtsmith/ultra-scroll") + ;; :ensure (:host github :repo "jdtsmith/ultra-scroll") :config (setq scroll-conservatively 101 ; important! scroll-margin 0) @@ -99,7 +99,7 @@ Large screen, lots of windows, so where is the cursor? While I used to use =hl-l #+begin_src emacs-lisp (use-package pulsar - ;; :straight (:host github :repo "protesilaos/pulsar") + ;; :ensure (:host github :repo "protesilaos/pulsar") :ensure t :custom (pulsar-face 'pulsar-generic) @@ -162,7 +162,7 @@ Am I ever really ever satisfied with any font? I regularly change my font based #+begin_src emacs-lisp (use-package mixed-pitch - ;; :straight (:host github :repo "jabranham/mixed-pitch") + ;; :ensure (:host github :repo "jabranham/mixed-pitch") :ensure t :config (add-to-list 'mixed-pitch-fixed-pitch-faces 'org-property-value) @@ -394,7 +394,7 @@ This project replaces [[https://github.com/domtronn/all-the-icons.el][all-the-ic #+BEGIN_SRC emacs-lisp (use-package nerd-icons :ensure t - ;; :straight (nerd-icons :type git :host github :repo "rainstormstudio/nerd-icons.el") + ;; :ensure (:host github :repo "rainstormstudio/nerd-icons.el") :custom ;; The Nerd Font you want to use in GUI defaults to fixed-font: (nerd-icons-font-family ha-fixed-font)) @@ -636,14 +636,16 @@ Oh, and turn off the line highlighting: And of course, the default is /inside/ where my mind is dark and safe: #+begin_src emacs-lisp - (laptop-inside) + (use-package emacs + :ensure nil + :config (laptop-inside)) #+end_src ** Highlight Task Labels In code, if you drop a specific /text/ labels, we can highlight them with [[https://github.com/tarsius/hl-todo][hl-todo package]]: #+begin_src emacs-lisp (use-package hl-todo - ;; :straight (:host github :repo "tarsius/hl-todo") + ;; :ensure (:host github :repo "tarsius/hl-todo") :config (setq hl-todo-keyword-faces `(("TODO" . ,(face-foreground 'warning)) @@ -659,7 +661,7 @@ Suggests to bind some keys to =hl-todo-next= in order to jump from tag to tag, b #+begin_src emacs-lisp (use-package consult-todo - ;; :straight (:host github :repo "liuyinz/consult-todo") + ;; :ensure (:host github :repo "liuyinz/consult-todo") :ensure t :init (defconst consult-todo--narrow diff --git a/ha-email.org b/ha-email.org index be339f3..dbf02c5 100644 --- a/ha-email.org +++ b/ha-email.org @@ -712,6 +712,7 @@ The gods ordained that Mail and Org should dance together, so step one is compos A new option is to use [[https://github.com/jeremy-compostella/org-msg][org-msg]], so let's try it: #+begin_src emacs-lisp :noweb yes (use-package org-msg + :ensure t :init (setq org-msg-options "html-postamble:nil H:5 num:nil ^:{} toc:nil author:nil email:nil \\n:t" org-msg-startup "hidestars indent inlineimages" @@ -737,7 +738,7 @@ The idea of linking org documents to email could be nice, however, the =ol-notmu #+begin_src emacs-lisp :tangle no (use-package ol-notmuch :after org - ;; :straight (:type built-in) + :ensure nil :config (add-to-list 'org-modules 'ol-notmuch)) #+end_src To use, read a message and save a link to it with ~SPC o l~. Next, in an org document, create a link with ~, l~. Now, you can return to the message from that document with ~, o~. Regardless, I may need to store a local copy when I upgrade Org. diff --git a/ha-eshell.org b/ha-eshell.org index 4658489..b459c6c 100644 --- a/ha-eshell.org +++ b/ha-eshell.org @@ -27,10 +27,9 @@ A literate programming file for configuring the Emacs Shell. While I like [[https://github.com/akermu/emacs-libvterm][vterm]] for logging into [[file:ha-remoting.org][remote systems]], I find Emacs’ shell, =eshell=, an interesting alternative. If you find the documentation lacking, I [[http://www.howardism.org/Technical/Emacs/eshell-fun.html][documented most features]], and you might find the following helpful. -Tell straight to use the built-in =eshell=: #+begin_src emacs-lisp (use-package eshell - ;; :straight (:type built-in) + :ensure nil :hook (eshell-mode . ha-eshell-setup)) #+end_src @@ -87,6 +86,7 @@ Need to hook this when we change the directory. #+BEGIN_SRC emacs-lisp (use-package eshell + :ensure nil :hook (eshell-directory-change . ha-eshell-header-line)) #+END_SRC @@ -974,26 +974,26 @@ I think using the [[help:rx][rx]] macro with applications like =grep= is great r The problem with this trick is that =rx= outputs an Emacs-compatible regular expression, which doesn’t always match regular expressions accepted by most applications. The [[https://github.com/joddie/pcre2el][pcre2el]] project can convert from a Lisp regular expression to a [[http://www.pcre.org/][PCRE]] (Perl Compatible Regular Expression), acceptable by [[https://github.com/BurntSushi/ripgrep][ripgrep]]. - #+begin_src emacs-lisp - (use-package pcre2el - ;; :straight (:host github :repo "joddie/pcre2el") - :config - (defmacro prx (&rest expressions) - "Convert the rx-compatible regular EXPRESSIONS to PCRE. - Most shell applications accept Perl Compatible Regular Expressions." - `(rx-let ((integer (1+ digit)) - (float (seq integer "." integer)) - (b256 (seq (optional (or "1" "2")) - (regexp "[0-9]\\{1,2\\}"))) - (ipaddr (seq b256 "." b256 "." b256 "." b256)) - (time (seq digit (optional digit) ":" (= 2 digit) (optional ":" (= 2 digit)))) - (email (seq (1+ (regexp "[^,< ]")) "@" (1+ (seq (1+ (any alnum "-"))) ".") (1+ alnum))) - (date (seq (= 2 digit) (or "/" "-") (= 2 digit) (or "/" "-") (= 4 digit))) - (ymd (seq (= 4 digit) (or "/" "-") (= 2 digit) (or "/" "-") (= 2 digit))) - (uuid (seq (= 8 hex) "-" (= 3 (seq (= 4 hex) "-")) (= 12 hex))) - (guid (seq uuid))) - (rxt-elisp-to-pcre (rx ,@expressions))))) - #+end_src +#+begin_src emacs-lisp + (use-package pcre2el + :ensure t ; (:host github :repo "joddie/pcre2el") + :config + (defmacro prx (&rest expressions) + "Convert the rx-compatible regular EXPRESSIONS to PCRE. + Most shell applications accept Perl Compatible Regular Expressions." + `(rx-let ((integer (1+ digit)) + (float (seq integer "." integer)) + (b256 (seq (optional (or "1" "2")) + (regexp "[0-9]\\{1,2\\}"))) + (ipaddr (seq b256 "." b256 "." b256 "." b256)) + (time (seq digit (optional digit) ":" (= 2 digit) (optional ":" (= 2 digit)))) + (email (seq (1+ (regexp "[^,< ]")) "@" (1+ (seq (1+ (any alnum "-"))) ".") (1+ alnum))) + (date (seq (= 2 digit) (or "/" "-") (= 2 digit) (or "/" "-") (= 4 digit))) + (ymd (seq (= 4 digit) (or "/" "-") (= 2 digit) (or "/" "-") (= 2 digit))) + (uuid (seq (= 8 hex) "-" (= 3 (seq (= 4 hex) "-")) (= 12 hex))) + (guid (seq uuid))) + (rxt-elisp-to-pcre (rx ,@expressions))))) +#+end_src ** Map over Files While I like eshell’s =for= loop well enough (if I can remember the syntax), as in: #+begin_src sh :tangle no @@ -1378,7 +1378,7 @@ The [[https://codeberg.org/akib/emacs-eat][Emulate a Terminal]] project provides #+begin_src emacs-lisp :tangle no (use-package eat :after eshell - ;; :straight (:repo "https://codeberg.org/akib/emacs-eat") + :ensure t ; (:repo "https://codeberg.org/akib/emacs-eat") :hook (eshell-load . eat-eshell-visual-command-mode)) #+end_src @@ -1787,7 +1787,8 @@ Sometimes you need to change something about the current file you are editing... Here is where we associate all the functions and their hooks with =eshell=, through the magic of =use-package=. #+begin_src emacs-lisp (use-package eshell - ;; :straight (:type built-in) + :ensure nil + :defer t :custom (eshell-banner-message '(ha-eshell-banner)) :init (setq eshell-error-if-no-glob t @@ -1805,6 +1806,8 @@ Here is where we associate all the functions and their hooks with =eshell=, thro ;; Me neither, so this makes it act a bit more shell-like: eshell-prefer-lisp-functions nil) + (defvar eshell-mode-map (make-keymap) "Keybindings in Eshell") + ;; :hook ((eshell-pred-load . ha-eshell-add-predicates)) :bind (("M-!" . eshell-command) @@ -1816,6 +1819,7 @@ Note that the default list to [[elisp:(describe-variable 'eshell-visual-commands #+begin_src emacs-lisp :tangle no (use-package eshell + :ensure nil :config (add-to-list 'eshell-visual-commands "ssh")) #+end_src diff --git a/ha-evil.org b/ha-evil.org index 5479017..df501d2 100644 --- a/ha-evil.org +++ b/ha-evil.org @@ -45,7 +45,7 @@ TODO: Rebind the ~z~ keys I split the configuration of Evil mode into sections. First, global settings: #+begin_src emacs-lisp (use-package evil - :ensure t + :ensure (:wait t) :init (setq evil-undo-system 'undo-fu evil-auto-indent t @@ -402,6 +402,7 @@ When the point is /inside/ the variable assignment section, but not inside any p #+begin_src emacs-lisp (use-package align + :ensure nil :config (add-to-list 'align-rules-list `(lisp-assignments diff --git a/ha-general.org b/ha-general.org index 56bd3de..1f0abf7 100644 --- a/ha-general.org +++ b/ha-general.org @@ -549,9 +549,10 @@ And put it on the toggle menu: (ha-leader "t n" '("narrow" . ha-narrow-dwim)) #+end_src * Window Operations -While it comes with Emacs, I use [[https://www.emacswiki.org/emacs/WinnerMode][winner-mode]] to undo window-related changes: +While it comes with Emacs, I use the built-in [[https://www.emacswiki.org/emacs/WinnerMode][winner-mode]] to undo window-related changes: #+begin_src emacs-lisp (use-package winner + :ensure nil :custom (winner-dont-bind-my-keys t) :config @@ -759,6 +760,8 @@ Ways to search for information goes under the ~s~ key. The venerable sage has al Install the [[https://github.com/dajva/rg.el][rg]] package, which builds on the internal =grep= system, and creates a =*rg*= window with =compilation= mode, so ~C-j~ and ~C-k~ will move and show the results by loading those files. #+begin_src emacs-lisp + (use-package transient) + (use-package rg :config ;; Make an interesting Magit-like menu of options, which I don't use much: @@ -883,6 +886,7 @@ Remember these keys in the *Help* buffer: Let's make Info behave a little more VI-like: #+begin_src emacs-lisp (use-package info + :ensure nil :after general :general (:states 'normal :keymaps 'Info-mode-map diff --git a/ha-org-publishing.org b/ha-org-publishing.org index 7dad8fe..879a3f1 100644 --- a/ha-org-publishing.org +++ b/ha-org-publishing.org @@ -27,22 +27,20 @@ A literate programming file for publishing my website using org. * Introduction While the Emacs community have a plethora of options for generating a static website from org-formatted files, I keep my pretty simple, and use the standard =org-publish= feature. -The RSS needs UUIDs: +The RSS needs UUIDs using the [[https://github.com/emacsmirror/uuidgen][uuidgen project]].: #+BEGIN_SRC emacs-lisp results silent - (use-package uuidgen - ;; :straight (:host github :repo "emacsmirror/uuidgen")) + (use-package uuidgen) (defun org-icalendar-create-uid (&rest ignored) "Returns a UUID." (uuidgen-1)) #+END_SRC -While the following packages come with Emacs, they aren't necessarily loaded: +While the following packages come with Emacs, they aren't necessarily loaded, as [[https://github.com/emacsmirror/ox-rss][ox-rss]] has it own package: #+begin_src emacs-lisp :results silent - (use-package ox-rss - ;; :straight (:host github :repo "emacsmirror/ox-rss")) + (use-package ox-rss) (use-package org :config @@ -64,7 +62,7 @@ Render my code with my font colors: Also, we need Jack, and his HTML prowess: #+begin_src emacs-lisp (use-package jack - ;; :straight (:host github :repo "tonyaldon/jack") + ;; :ensure (:host github :repo "tonyaldon/jack") :commands (jack-html)) #+end_src diff --git a/ha-org-word-processor.org b/ha-org-word-processor.org index 725f886..f144877 100644 --- a/ha-org-word-processor.org +++ b/ha-org-word-processor.org @@ -110,7 +110,7 @@ The variable, =org-hide-emphasis-markers=, is key to pretending that Emacs can b #+begin_src emacs-lisp (use-package org-appear - :ensure (:host github :repo "awth13/org-appear") + :ensure t ; (:host github :repo "awth13/org-appear") :init (setq org-appear-trigger 'manual) :hook ((org-mode . (lambda () @@ -331,7 +331,7 @@ The [[https://github.com/minad/org-modern][org-modern]] project attempts to do a #+begin_src emacs-lisp (use-package org-modern - :ensure (:host github :repo "minad/org-modern") + :ensure t ; (:host github :repo "minad/org-modern") :after org :hook ((org-mode . org-modern-mode) (org-agenda-finalize . org-modern-agenda)) @@ -365,9 +365,10 @@ According to an idea by [[https://jft.home.blog/2019/07/17/use-unicode-symbol-to #+end_src * Padding The [[https://github.com/TonCherAmi/org-padding][org-padding]] project looks places extra space before and after headers and blocks (essentially leading), to create a more word-processor-y experience. Great idea, however, I have spent a lot of extra time entering blank lines before and after my headers and blocks: -#+begin_src emacs-lisp +#+begin_src emacs-lisp :tangle no (use-package org-padding - :ensure (:host github :repo "TonCherAmi/org-padding") + :ensure t ; (:host github :repo "TonCherAmi/org-padding") + :vc (:url "https://github.com/TonCherAmi/org-padding.git") :hook (org-mode . org-padding-mode) :config (setq org-padding-block-begin-line-padding '(0.5 . 0.3) diff --git a/ha-org.org b/ha-org.org index 9e81a61..035529b 100644 --- a/ha-org.org +++ b/ha-org.org @@ -3,7 +3,7 @@ #+date: 2020-09-18 #+tags: emacs org #+startup: inlineimages -#+lastmod: [2025-09-10 Wed] +#+lastmod: [2025-09-11 Thu] A literate programming file for configuring org-mode and those files. @@ -31,10 +31,10 @@ A literate programming file for configuring org-mode and those files. Org is a /large/ complex beast with a gazillion settings, so I discuss these later in this document. #+begin_src emacs-lisp :noweb yes (use-package org - :ensure t + :ensure nil :after general ;; TODO: Using the latest org-mode - ;; ;; :straight (:type built-in) + ;; :ensure t :mode (("\\.org" . org-mode)) :init <> @@ -280,7 +280,7 @@ Came up with a great way to search a project for Org-specific files, and wrote [ #+begin_src emacs-lisp (use-package org-find-file - ;; :straight nil + :ensure nil :config (ha-leader "f o" '("load org" . org-find-file))) #+end_src @@ -446,7 +446,7 @@ Using the [[https://graphviz.org/][graphviz project]], create charts with /textu #+begin_src emacs-lisp (use-package graphviz-dot-mode - :ensure t + :ensure t :mode "\\.dot\\'" :init (setq graphviz-dot-indent-width 2 @@ -493,7 +493,7 @@ Need to install and configure Emacs to work with [[https://plantuml.com/][PlantU After installing the [[https://github.com/skuro/plantuml-mode][plantuml-mode]], we need to reference the location: #+begin_src emacs-lisp (use-package plantuml-mode - ;; :straight (:host github :repo "skuro/plantuml-mode") + ;; :ensure (:host github :repo "skuro/plantuml-mode") :init (setq org-plantuml-jar-path (expand-file-name "~/bin/plantuml.jar"))) #+end_src @@ -546,8 +546,8 @@ Of course, since we are dealing with Emacs, where we assimilate any good idea. J #+begin_src emacs-lisp (use-package pikchr-mode - ;; :straight (:local-repo "~/src/pikchr-mode") - ;; :straight (:host github :repo "kljohann/pikchr-mode") + :load-path "~/src/pikchr-mode" + ;; :ensure (:host github :repo "kljohann/pikchr-mode") :custom (pikchr-executable "~/bin/pikchr")) #+end_src @@ -735,7 +735,7 @@ I have a special version of tweaked [[file:elisp/ox-confluence.el][Confluence ex #+begin_src emacs-lisp (use-package ox-confluence :after org - ;; :straight nil ; Located in my "elisp" directory + :ensure nil ; Located in my "elisp" directory :config (ha-leader :keymaps 'org-mode-map "o E" '("to confluence" . ox-export-to-confluence))) @@ -746,7 +746,7 @@ I have a special version of tweaked [[file:elisp/ox-confluence.el][Confluence ex I’m not afraid of HTML, but I like the idea of doing my HTML work in a Lisp-like way using the [[https://github.com/tonyaldon/jack][jack-html project]]: #+begin_src emacs-lisp (use-package jack - ;; :straight (:host github :repo "tonyaldon/jack") + ;; :ensure (:host github :repo "tonyaldon/jack") :commands (jack-html)) #+end_src @@ -803,7 +803,7 @@ I've been working on my own [[http://www.howardism.org/Technical/Emacs/focused-w (use-package async) (use-package ha-focus - ;; :straight (:type built-in) + :ensure nil :config (ha-leader "o f" '("begin focus" . ha-focus-begin) @@ -831,6 +831,32 @@ In general, /fill/ the list, by moving the point to the /end/ of some word, and The idea is that you can correct a typo /and remember/ it. Perhaps calling [[help:edit-abbrevs][edit-abbrevs]] to making any fixes to that list. +*** Flyspell +The venerable flyspell, built into Emacs. + +#+BEGIN_SRC emacs-lisp + (use-package flyspell + :ensure nil + :hook ((text-mode . flyspell-mode)) + :config + (defun ha-spell-last () + "Automatically correct the last spelling mistake." + (interactive) + (save-excursion + (flyspell-goto-next-error t) + (flyspell-auto-correct-word))) + + :bind (("s-;" . 'ha-spell-last) + (:map flyspell-mouse-map + ([down-mouse-3] . 'flyspell-correct-word) + ([mouse-3] . 'undefined)))) + #+END_SRC + + - ~M-t~ (=flyspell-auto-correct-word=) - press this while in word with typo in it to trigger auto-correct. You can press it repeatedly to cycle through the list of candidates. + - ~C-,~ (=flyspell-goto-next-error=) - go to the next typo in the current buffer + - ~C-.~ (=flyspell-auto-correct-word=) - same as =M-t= + - ~C-;~ (=flyspell-auto-correct-previous-word=) - automatically correct the last misspelled word. (you can cycle here as well) + *** jinx Once upon a time, I used [[https://www.emacswiki.org/emacs/FlySpell][flyspell]] mode to highlight the misspelled words, and the venerable [[https://www.emacswiki.org/emacs/InteractiveSpell][ispell]] for correcting. To be able to correct spelling mistakes /from a distance/, without navigation, I wrote a function that took advantage of Evil’s [[help:evil-prev-flyspell-error][evil-prev-flyspell-error]] to jump back to the last spelling mistake. @@ -852,10 +878,10 @@ And on Linux: And the Emacs interface to that: -#+begin_src emacs-lisp +#+begin_src emacs-lisp :tangle no (use-package jinx :ensure t - ;; :straight (:host github :repo "minad/jinx" :files (:defaults "jinx-mod.c" "emacs-module.h")) + ;; :ensure (:host github :repo "minad/jinx" :files (:defaults "jinx-mod.c" "emacs-module.h")) :hook (emacs-startup . global-jinx-mode) :bind (("C-;" . jinx-correct-nearest) ("s-;" . jinx-correct-nearest) @@ -1254,7 +1280,7 @@ The [[https://github.com/rnkn/olivetti][olivetti project]] sets wide margins and Trying out [[https://protesilaos.com/][Protesilaos Stavrou]]’s [[https://protesilaos.com/emacs/logos][logos project]] as a replacement for [[https://github.com/joostkremers/writeroom-mode][Writeroom-mode]]: #+begin_src emacs-lisp (use-package logos - ;; :straight (:host gitlab :repo "protesilaos/logos") + ;; :ensure (:host gitlab :repo "protesilaos/logos") :init (setq logos-outlines-are-pages t logos-outline-regexp-alist diff --git a/ha-programming-ansible.org b/ha-programming-ansible.org index 1bbffe8..33fc9d4 100644 --- a/ha-programming-ansible.org +++ b/ha-programming-ansible.org @@ -35,7 +35,7 @@ The obvious keybindings are ~M-h/j/k/l~ … but that is used … well, somewhat. #+begin_src emacs-lisp :tangle no (use-package spatial-navigate - ;; :straight (:repo "https://codeberg.org/ideasman42/emacs-spatial-navigate") + ;; :ensure (:repo "https://codeberg.org/ideasman42/emacs-spatial-navigate") :config (pretty-hydra-define spatial-navigate (:color amaranth :quit-key "q") ("Box" @@ -62,7 +62,7 @@ The [[https://github.com/antonj/Highlight-Indentation-for-Emacs][Highlight-Inden #+begin_src emacs-lisp (use-package highlight-indentation - ;; :straight (:host github :repo "antonj/Highlight-Indentation-for-Emacs") + ;; :ensure (:host github :repo "antonj/Highlight-Indentation-for-Emacs") :hook ((yaml-mode . highlight-indentation-mode) (python-mode . highlight-indentation-mode))) #+end_src @@ -119,7 +119,7 @@ Allow this mode in Org blocks: And we hook #+begin_src emacs-lisp (use-package yaml-pro - ;; :straight (:host github :repo "zkry/yaml-pro") + ;; :ensure (:host github :repo "zkry/yaml-pro") :after yaml-mode :hook ((yaml-mode . yaml-pro-mode))) #+end_src @@ -224,7 +224,7 @@ Do I consider all YAML files an Ansible file needing [[https://github.com/k1LoW/ #+begin_src emacs-lisp (use-package ansible - ;; :straight (:host gitlab :repo "emacs-ansible/emacs-ansible") + ;; :ensure (:host gitlab :repo "emacs-ansible/emacs-ansible") ;; :mode ((rx (or "playbooks" "roles") (one-or-more any) ".y" (optional "a") "ml") . ansible-mode) :config (setq ansible-vault-password-file "~/.ansible-vault-passfile") @@ -242,7 +242,7 @@ Since most Ansible files are a combination of YAML and Jinja, the [[https://gith #+BEGIN_SRC emacs-lisp (use-package poly-ansible - ;; :straight (:host github :repo "emacsmirror/poly-ansible") + ;; :ensure (:host github :repo "emacsmirror/poly-ansible") :after ansible) #+END_SRC diff --git a/ha-programming-clojure.org b/ha-programming-clojure.org index 689d2bc..bc48e5a 100644 --- a/ha-programming-clojure.org +++ b/ha-programming-clojure.org @@ -247,7 +247,7 @@ The /real problem/ is trying to remember all the [[https://github.com/clojure-em And of course, we want to put this with org blocks: #+begin_src emacs-lisp (use-package ob-clojure - ;; :straight (:type built-in) + :ensure nil :custom (org-babel-clojure-backend 'cider) :config diff --git a/ha-programming-elisp.org b/ha-programming-elisp.org index 9569eeb..1d15115 100644 --- a/ha-programming-elisp.org +++ b/ha-programming-elisp.org @@ -37,6 +37,7 @@ The [[https://github.com/tarsius/paren-face][paren-face]] project lowers the col #+begin_src emacs-lisp (use-package paren-face + :ensure t :hook (emacs-lisp-mode . paren-face-mode)) #+end_src @@ -78,6 +79,7 @@ Wilfred’s [[https://github.com/Wilfred/suggest.el][suggest]] function helps yo Wilfred’s [[https://github.com/Wilfred/elisp-def][elisp-def]] project does a better job at jumping to the definition of a symbol at the point, so: #+begin_src emacs-lisp (use-package elisp-def + :ensure t ; (:repo "https://github.com/Wilfred/elisp-def") :hook (emacs-lisp-mode . elisp-def-mode)) #+end_src This /should work/ with [[help:evil-goto-definition][evil-goto-defintion]], as that calls this list from [[help:evil-goto-definition-functions][evil-goto-definition-functions]]: @@ -284,8 +286,11 @@ These are all good, but the primary keys I need to figure out, are the s-express ** Refactoring Wilfred’s [[https://github.com/Wilfred/emacs-refactor/tree/master#elisp][emacs-refactor]] package can be helpful if you turn on =context-menu-mode= and … #+begin_src emacs-lisp + (use-package iedit) + (use-package emr - ;; ;; :straight (:host github :repo "Wilfred/emacs-refactor") + ;; :ensure (:host github :repo "Wilfred/emacs-refactor") + :after iedit :config (pretty-hydra-define+ lisp-refactor nil ("To 𝛌" diff --git a/ha-programming-haskell.org b/ha-programming-haskell.org index 78256ca..7ea9df9 100644 --- a/ha-programming-haskell.org +++ b/ha-programming-haskell.org @@ -60,7 +60,7 @@ The [[https://github.com/mihaimaruseac/hindent][hindent package]] looks interest * Haskell and Org #+begin_src emacs-lisp (use-package ob-haskell - ;; :straight (:type built-in) + :ensure nil :config (add-to-list 'org-babel-load-languages '(haskell . t))) #+end_src diff --git a/ha-programming-scheme.org b/ha-programming-scheme.org index 15d7481..8644b1d 100644 --- a/ha-programming-scheme.org +++ b/ha-programming-scheme.org @@ -57,7 +57,7 @@ The [[https://www.nongnu.org/geiser/][geiser project]] attempts to be the interf Do we need a Scheme work for Org Babel? According to [[https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-scheme.html][this document]], we just need to make sure we add the =:session= variable to start the REPL. #+begin_src emacs-lisp (use-package ob-scheme - ;; :straight (:type built-in) + :ensure nil :config (add-to-list 'org-babel-load-languages '(scheme . t))) @@ -103,7 +103,7 @@ Let’s get the book available as an Info page: Still having difficulty getting the Scheme REPL to output the results back into this document. Let’s try Racket... -Normally, I would just [[info:SICP][read the book]], however, if we want to read the [[file:~/.emacs.d/straight/build/sicp/sicp.info][sicp.info]] file, we need this, at least, temporarily: +Seems that to read the [[file:~/.emacs.d/straight/build/sicp/sicp.info][sicp.info]] file, we need this, at least, temporarily: #+begin_src emacs-lisp (add-to-list 'auto-mode-alist '("\\.info\\'" . Info-mode)) #+end_src @@ -122,7 +122,7 @@ While Racket, as a Scheme, should work with Geiser (below), let’s also get [[h Can we get Racket working with Org? #+begin_src emacs-lisp (use-package ob-racket - ;; :straight (:host github :repo "DEADB17/ob-racket") + ;; :ensure (:host github :repo "DEADB17/ob-racket") :after org :config (add-to-list 'org-babel-load-languages '(racket . t))) diff --git a/ha-programming.org b/ha-programming.org index 7059664..56a5223 100644 --- a/ha-programming.org +++ b/ha-programming.org @@ -47,6 +47,7 @@ For all programming languages, I would like to now default to absolute line numb #+begin_src emacs-lisp (use-package emacs + :ensure nil :config (defun ha-prog-mode-config () "Configure the `prog-mode'" @@ -58,7 +59,7 @@ For all programming languages, I would like to now default to absolute line numb While Emacs has options for viewing and moving around code, sometimes, we could /collapse/ all functions, and then start to expand them one at a time. For this, we could enable the built-in [[https://www.emacswiki.org/emacs/HideShow][hide-show feature]]: #+begin_src emacs-lisp :tangle no (use-package hide-show - ;; :straight (:type built-in) + :ensure nil :init (setq hs-hide-comments t hs-hide-initial-comment-block t @@ -85,7 +86,7 @@ Note: Yes, we could use [[https://github.com/mrkkrp/vimish-fold][vimish-fold]] ( We need to make sure we keep the [[https://github.com/Fuco1/smartparens][smartparens]] project always in /strict mode/, because who wants to worry about paren-matching: #+begin_src emacs-lisp (use-package smartparens - :ensure (:wait t) + :ensure t ;; (:wait t) :custom (smartparens-global-strict-mode t) @@ -111,7 +112,7 @@ I appreciate calling =hi-lock-face-symbol-at-point= (or =highlight-symbol-at-poi #+begin_src emacs-lisp (use-package auto-highlight-symbol - :ensure (:wait t) + :ensure (:wait t) :config (setq ahs-idle-interval 0.1) @@ -125,7 +126,7 @@ Instead of calling =global-auto-highlight-symbol-mode=, we should just hook it t #+begin_src emacs-lisp (use-package auto-highlight-symbol - :ensure (:wait t) + :ensure (:wait t) :hook ((prog-mode . auto-highlight-symbol-mode))) #+end_src @@ -209,6 +210,7 @@ The [[https://www.emacswiki.org/emacs/FlySpell#h5o-2][flyspell-prog-mode]] check #+begin_src emacs-lisp (use-package flyspell + :ensure nil :hook (prog-mode . flyspell-prog-mode)) #+end_src ** Linting with Flycheck @@ -216,7 +218,7 @@ Why use [[https://www.flycheck.org/][flycheck]] over the built-in =flymake=? Spe #+begin_src emacs-lisp (use-package flycheck - ;; :straight (:host github :repo "flycheck/flycheck") + ;; :ensure (:host github :repo "flycheck/flycheck") :init (setq next-error-message-highlight t) :bind (:map flycheck-error-list-mode-map @@ -401,10 +403,10 @@ In most cases,the =npm install= /usually/ works, but I may work on some sort of At this point, we can now parse stuff using: =tree-sitter parse = **** Emacs Part However, Emacs already has the ability to download and install grammars, so following instructions from Mickey Petersen’s essay on [[https://www.masteringemacs.org/article/combobulate-structured-movement-editing-treesitter][using Tree-sitter with Combobulate]]: -#+begin_src emacs-lisp +#+begin_src emacs-lisp tangle no (when (treesit-available-p) (use-package treesit - ;; :straight (:type built-in) + :ensure nil :preface (setq treesit-language-source-alist '(;; (bash "https://github.com/tree-sitter/tree-sitter-bash") @@ -426,7 +428,7 @@ However, Emacs already has the ability to download and install grammars, so foll ;; (html "https://github.com/tree-sitter/tree-sitter-html") ;; (java "https://github.com/tree-sitter/tree-sitter-java" "master" "src") ;; (javascript "https://github.com/tree-sitter/tree-sitter-javascript" "master" "src") - (json "https://github.com/tree-sitter/tree-sitter-json") + ;; (json "https://github.com/tree-sitter/tree-sitter-json") ;; (julia "https://github.com/tree-sitter/tree-sitter-julia" "master" "src") ;; (lua "https://github.com/MunifTanjim/tree-sitter-lua" "main" "src") ;; (make "https://github.com/alemuller/tree-sitter-make") @@ -481,10 +483,10 @@ And enable the languages: #+end_src *** Combobulate I like [[file:ha-programming-elisp.org::*Clever Parenthesis][Clever Parenthesis]], but can we extend that to other languages generally? After reading Mickey Petersen’s essay, [[https://www.masteringemacs.org/article/combobulate-structured-movement-editing-treesitter][Combobulate project]], I decided to try out his [[https://github.com/mickeynp/combobulate][combobulate package]]. Of course, this can only work with the underlying tooling supplied by the [[https://emacs-tree-sitter.github.io/][Tree Sitter]] → -#+begin_src emacs-lisp +#+begin_src emacs-lisp :tangle no (when (treesit-available-p) (use-package combobulate - ;; :straight (:host github :repo "mickeynp/combobulate") + :ensure t ; (:host github :repo "mickeynp/combobulate") :after treesit :hook ((yaml-ts-mode . combobulate-mode) ;; (css-ts-mode . combobulate-mode) @@ -495,9 +497,11 @@ I like [[file:ha-programming-elisp.org::*Clever Parenthesis][Clever Parenthesis] #+end_src Now, I can create an /interface/ of keystrokes to jump around like a boss: -#+begin_src emacs-lisp +#+begin_src emacs-lisp :tangle no (when (treesit-available-p) (use-package combobulate + :ensure t ; (:host github :repo "mickeynp/combobulate") + :bind (:map ) :general (:states 'visual :keymaps 'combobulate-key-map "o" '("mark node" . combobulate-mark-node-dwim)) ; Mark symbol since "o" doesn't do anything @@ -543,7 +547,7 @@ Now, I can create an /interface/ of keystrokes to jump around like a boss: Mickey’s interface is the [[help:combobulate][combobulate]] function (or ~C-c o o~), but mine is more /evil/. I can create a /helper function/ to allow me to jump to various types of—well, /types/: -#+begin_src emacs-lisp +#+begin_src emacs-lisp :tangle no (when (treesit-available-p) (use-package combobulate :config @@ -633,6 +637,8 @@ While I’m at it, let’s connect various ~g~ sequence keys to =xref-= interfac #+begin_src emacs-lisp (use-package emacs + :ensure nil + :after general :general (:states 'normal "g ." '("find def" . xref-find-definitions) @@ -734,7 +740,7 @@ The [[https://github.com/emacs-lsp/lsp-ui/blob/master/lsp-ui-imenu.el][lsp-imenu #+begin_src emacs-lisp :tangle no (use-package lsp-ui-imenu - ;; :straight nil + ;; :ensure nil :after lsp-ui :config (ha-local-leader :keymaps 'prog-mode-map @@ -1049,6 +1055,7 @@ Simple to configure languages go here. More advanced languages go into their own So many configuration files to track: #+begin_src emacs-lisp (use-package conf-mode + :ensure nil :mode (("\\.conf\\'" . conf-space-mode) ("\\.repo\\'" . conf-unix-mode) ("\\.setup.*\\'" . conf-space-mode))) @@ -1250,8 +1257,9 @@ Using [[https://polymode.github.io/][polymode]], let’s add syntax coloring to #+end_src ** ReStructured Text Support for [[https://docutils.sourceforge.io/rst.html][reStructuredText]] is [[https://www.emacswiki.org/emacs/reStructuredText][well supported]] in Emacs. -#+begin_src emacs-lisp +#+begin_src emacs-lisp :tangle no (use-package rst + :ensure nil :config (when (and (display-graphic-p) (boundp 'ha-fixed-font)) (set-face-attribute 'rst-literal nil :font ha-fixed-font))) @@ -1300,7 +1308,7 @@ While I don't like writing them, I can't get away from them. Check out the goodi While filename extensions work fine most of the time, I don't like to pre-pend =.sh= to the shell scripts I write, and instead, would like to associate =shell-mode= with all files in a =bin= directory: #+begin_src emacs-lisp (use-package sh-mode - ;; :straight (:type built-in) + :ensure nil :mode (rx (or (seq ".sh" eol) "/bin/")) :init diff --git a/ha-remoting.org b/ha-remoting.org index 34dc04c..d78f173 100644 --- a/ha-remoting.org +++ b/ha-remoting.org @@ -28,8 +28,7 @@ A literate configuration for accessing remote systems. [[https://www.emacswiki.org/emacs/TrampMode][Tramp]] allows almost all Emacs features to execute on a remote system. #+begin_src emacs-lisp (use-package tramp - ;; :straight (:type built-in) - + :ensure nil :config ;; Use remote PATH on tramp (handy for eshell). (add-to-list 'tramp-remote-path 'tramp-own-remote-path) @@ -42,7 +41,7 @@ A literate configuration for accessing remote systems. Will Schenk has [[https://willschenk.com/articles/2020/tramp_tricks/][a simple extension]] to allow editing of files /inside/ a Docker container: #+begin_src emacs-lisp (use-package tramp - ;; :straight (:type built-in) + :ensure nil :config (push '("docker" . ((tramp-login-program "docker") (tramp-login-args (("exec" "-it") ("%h") ("/bin/sh"))) @@ -72,7 +71,7 @@ Which means, I need to put it as a link in an org file. #+begin_src emacs-lisp (use-package tramp-sh :after tramp - ;; :straight (:type built-in) + :ensure nil :custom (tramp-use-ssh-controlmaster-options nil)) #+end_src * Remote Terminals @@ -159,12 +158,6 @@ While not as fast as [[https://github.com/akermu/emacs-libvterm][vterm]], the [[ #+BEGIN_SRC emacs-lisp :tangle no (use-package eat - ;; :straight (:host codeberg :repo "akib/emacs-eat" - :files ("*.el" ("term" "term/*.el") "*.texi" - "*.ti" ("terminfo/e" "terminfo/efo/e/*") - ("terminfo/65" "terminfo/65/*") - ("integration" "integration/*") - (:exclude ".dir-locals.el" "*-tests.el"))) :commands (eat eat-make eat-project) :bind (:map eat-semi-char-mode-map ("C-c C-t" . ha-eat-narrow-to-shell-prompt-dwim)) diff --git a/initialize b/initialize index 6b7f9e8..e37abbd 100755 --- a/initialize +++ b/initialize @@ -98,6 +98,8 @@ cat > "$HAMACS_DEST/init.el" < "$HAMACS_DEST/init.el" < "$HAMACS_DEST/init.el" <