From 3760bac3fcbe9372dfae3540889bb34fad11702c Mon Sep 17 00:00:00 2001 From: Ian Kelling 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