Minor bugs

Including increasing the GC value, and dropping the Fish shell package.
This commit is contained in:
Howard Abrams 2026-09-29 11:36:13 -07:00
parent c40a3827b3
commit db51a66d8c
6 changed files with 13 additions and 25 deletions

View file

@ -6,7 +6,7 @@
A literate programming file for bootstraping my Emacs Configuration. A literate programming file for bootstraping my Emacs Configuration.
#+begin_src emacs-lisp :exports none #+begin_src emacs-lisp :exports none
;;; bootstrap.el --- file for bootstraping my Emacs Configuration ;;; bootstrap.el --- file for bootstraping my Emacs Configuration -*- lexical-binding: t; -*-
;; ;;
;; ██████████ ;; ██████████
;; ░░███░░░░░█ ;; ░░███░░░░░█
@ -51,7 +51,7 @@ Limit garbage collection before startup and then go back to the default value (8
(add-hook 'emacs-startup-hook (add-hook 'emacs-startup-hook
(lambda () (lambda ()
(setq gc-cons-threshold (* 100 1024 1024)))) (setq gc-cons-threshold (* 200 1024 1024))))
#+END_SRC #+END_SRC
** OS Path and Native Compilation ** OS Path and Native Compilation
@ -167,7 +167,7 @@ Much of my more complicated code comes from my website essays and other projects
#+end_src #+end_src
* Emacs Server Control * Emacs Server Control
I actually run two instances of Emacs on some systems, where one instance has all my work-related projects, perspectives, and packages installed (like LSP), and my personal instance has other packages running (like IRC and Mail). I need a function that can make that distinction, and based on that, it will set =server-start= appropriately, so that =emacsclient= can call into the correct one. I actually run two instances of Emacs on some systems, where one instance has all my work-related projects, perspectives, and packages installed (like the Language Server Protocol, LSP), and my personal instance has other packages running (like the Internet Relay Chat, IRC, and Mail). I need a function that can make that distinction, and based on that, it will set =server-start= appropriately, so that =emacsclient= can call into the correct one.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun ha-emacs-for-work? () (defun ha-emacs-for-work? ()
"Return non-nil when the Emacs instance is for work. "Return non-nil when the Emacs instance is for work.

View file

@ -366,7 +366,7 @@ This expands on my global [[file:ha-config.org::*Bookmarks][Bookmarks]]:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package bookmark-in-project (use-package bookmark-in-project
:bindd :bind
(("C-x r m" . bookmark-in-project-toggle) (("C-x r m" . bookmark-in-project-toggle)
("C-x r M" . ha-bookmark-set)) ("C-x r M" . ha-bookmark-set))
:config :config

View file

@ -2,7 +2,7 @@
#+author: Howard Abrams #+author: Howard Abrams
#+date: 2024-07-07 #+date: 2024-07-07
#+filetags: emacs hamacs #+filetags: emacs hamacs
#+lastmod: [2026-08-05 Wed] #+lastmod: [2026-09-22 Tue]
A literate programming file for literate programming in Emacs Org Files. A literate programming file for literate programming in Emacs Org Files.
@ -19,16 +19,15 @@ A literate programming file for literate programming in Emacs Org Files.
;; ;;
;; While obvious, GNU Emacs does not include this file or project. ;; While obvious, GNU Emacs does not include this file or project.
;; ;;
;; *NB:* Do not edit this file. Instead, edit the original literate file at:
;; ~/src/hamacs/ha-org-literate.org
;; Using `find-file-at-point', and tangle the file to recreate this.
;;
;;; Commentary: ;;; Commentary:
;; ;;
;; This file contains a collection of functions to easy some of the ;; This file contains a collection of functions to easy some of the
;; sharp edges when doing literate programming in Org files. ;; sharp edges when doing literate programming in Org files.
;; ;;
;; *NB:* Do not edit this file. Instead, edit the original
;; literate file at:
;; ~/src/hamacs/ha-org-literate.org
;; And tangle the file to recreate this one.
;;
;;; Code: ;;; Code:
#+end_src #+end_src
* Introduction * Introduction
@ -937,13 +936,9 @@ Let's =provide= a name so we can =require= this file:
#+DESCRIPTION: literate programming in Emacs Org Files. #+DESCRIPTION: literate programming in Emacs Org Files.
#+PROPERTY: header-args:sh :tangle no #+PROPERTY: header-args:sh :tangle no
#+PROPERTY: header-args:emacs-lisp :tangle yes :comments link #+PROPERTY: header-args:emacs-lisp :tangle yes
#+PROPERTY: header-args :results none :eval no-export :comments no mkdirp yes #+PROPERTY: header-args :results none :eval no-export :comments no mkdirp yes
#+OPTIONS: num:nil toc:t todo:nil tasks:nil tags:nil date:nil #+OPTIONS: num:nil toc:t todo:nil tasks:nil tags:nil date:nil
#+OPTIONS: skip:nil author:nil email:nil creator:nil timestamp:nil #+OPTIONS: skip:nil author:nil email:nil creator:nil timestamp:nil
#+INFOJS_OPT: view:nil toc:nil ltoc:t mouse:underline buttons:0 path:http://orgmode.org/org-info.js #+INFOJS_OPT: view:nil toc:nil ltoc:t mouse:underline buttons:0 path:http://orgmode.org/org-info.js
# Local Variables:
# jinx-local-words: "parseable"
# End:

View file

@ -1498,16 +1498,6 @@ Integration with the [[https://github.com/bash-lsp/bash-language-server][Bash LS
#+begin_src sh #+begin_src sh
brew install bash-language-server brew install bash-language-server
#+end_src #+end_src
*** Fish Shell
I think the [[https://fishshell.com/][fish shell]] is an interesting experiment (and I appreciate the basics that come with [[https://github.com/emacsmirror/fish-mode][fish-mode]]).
#+begin_src emacs-lisp
(use-package fish-mode
:mode (rx ".fish" eol)
:config
(ha-auto-insert-file (rx ".fish") "fish-mode.sh")
:hook
(fish-mode . (lambda () (add-hook 'before-save-hook 'fish_indent-before-save))))
#+end_src
* Technical Artifacts :noexport: * Technical Artifacts :noexport:
Provide a name to =require= this code. Provide a name to =require= this code.
#+begin_src emacs-lisp :exports none #+begin_src emacs-lisp :exports none

View file

@ -115,6 +115,8 @@ cat > "$HAMACS_DEST/init.el" <<EOF
(add-to-list 'package-archives (add-to-list 'package-archives
'("elpa-dev" . "https://elpa.gnu.org/devel/")) '("elpa-dev" . "https://elpa.gnu.org/devel/"))
(setq package-enable-at-startup nil)
;; Configure straight https://github.com/raxod502/straight.el#getting-started ;; Configure straight https://github.com/raxod502/straight.el#getting-started
(defvar bootstrap-version) (defvar bootstrap-version)

View file

@ -5,3 +5,4 @@
#+END_SRC #+END_SRC
`yas-selected-text` `yas-selected-text`
#+BEGIN_SRC `(ha-org-block-language-and)` #+BEGIN_SRC `(ha-org-block-language-and)`