From 3760bac3fcbe9372dfae3540889bb34fad11702c Mon Sep 17 00:00:00 2001
From: Ian Kelling <iank@fsf.org>
Date: Fri, 14 Jun 2024 10:00:23 -0400
Subject: [PATCH] fix for emacs update, various improvements

---
 .gitignore |  1 +
 init.el    | 27 ++++++++++++---------------
 2 files changed, 13 insertions(+), 15 deletions(-)

diff --git a/.gitignore b/.gitignore
index 34f4cb8..7bfb343 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,4 +1,5 @@
 *.elc
+/eln-cache
 /.ido.last
 /.org-id-locations
 /.python-environments
diff --git a/init.el b/init.el
index e91121d..0553e7c 100644
--- a/init.el
+++ b/init.el
@@ -47,11 +47,6 @@
           ;; taken from wiegley, dunno why the t is there.
           t)
 
-;; stuff to allow an alternate location for ~/.emacs.d
-(setq user-emacs-directory (file-name-directory user-init-file))
-(when (getenv "EHOME")
-  (setenv "HOME" (getenv "EHOME")))
-
 ;; 2019-6-26, 1.26s
 ;; ; to profile init:
 ;; ; uncomment the following block
@@ -64,8 +59,9 @@
 ;; ; emacs -f benchmark-init/deactivate
 
 
-;; these need to be done before the hook in order to satisfy the byte compiler or batch mode
+(setq init-dir (file-name-directory load-file-name))
 
+;; these need to be done before the hook in order to satisfy the byte compiler or batch mode
 (add-to-list 'load-path (concat user-emacs-directory "src/readline-complete"))
 
 ;; disabled since not used.
@@ -76,7 +72,6 @@
 
 
 
-(setq init-dir (file-name-directory load-file-name))
 ;; previously, i was doing byte-recompile-directory, but
 ;; now i just have one init file
 (unless (equal (user-uid) 0) ; don't make root owned files
@@ -1110,10 +1105,6 @@ A non-nil CURRENT-ONLY argument means save only current buffer."
 ;; this fixes save error for python example code
 (define-coding-system-alias 'UTF-8 'utf-8)
 
-;; i don't use frame titles, but if I ever do
-;; this starter kit setting is probably good
-(if window-system (setq frame-title-format '(buffer-file-name "%f" ("%b"))))
-
 
 ;;(prefer-coding-system 'utf-8-unix)
 
@@ -1314,7 +1305,10 @@ Go to the next directory based on where the cursor is."
 
 ;;; mode line
 ;; make window title be the buffer name
-(setq frame-title-format "%b")
+(setq
+ frame-title-format "e-iak %b"
+ icon-title-format "e-iak %b"
+ )
 
 (defun my-after-change-major-mode-hook ()
   (setq mode-line-mule-info nil
@@ -1747,9 +1741,12 @@ or else the number of characters matched by `outline-regexp'."
         erc-track-visibility 'visible
         ;; switch to buffer where i've been mentioned, etc instead of oldest
         erc-track-switch-direction 'importance
-        ;; defaults minus fill. todo: modify the list instead of specifying it explicitly in case the defaults change
-        erc-modules
-        '(autojoin button completion imenu irccontrols list match menu move-to-prompt netsplit networks noncommands readonly ring stamp track)
+        ;; when starting erc, open #fsfsys. otherwise it is super
+        ;; annoying to always have to manually switch buffers.
+        erc-join-hook (lambda () (when (string= (buffer-name(current-buffer)) "#fsfsys") (switch-to-buffer (current-buffer))))
+        ;; defaults minus fill. you can find defaults by searching for
+        ;; defcustom erc-modules in erc.el, or customize group erc.
+        erc-modules (remove 'fill erc-modules)
         ;; expanded from https://www.emacswiki.org/emacs/ErcChannelTracking,
         ;; ignore various messages
         erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT" "MODE"
-- 
2.30.2