various small changes and additions

4 files changed, 17 insertions, 9 deletions

diff --git a/emacs/site-lisp/irc-config.el b/emacs/site-lisp/irc-config.el
index d9213ef..eba66a0 100644
--- a/emacs/site-lisp/irc-config.el
+++ b/emacs/site-lisp/irc-config.el
@@ -16,7 +16,7 @@
       erc-track-faces-priority-list '(erc-current-nick-face erc-keyword-face)
       erc-track-priority-faces-only 'all)
 
-(defun start-erc ()
+(defun my/start-erc ()
   "Start erc and autojoin various channels"
   (interactive)
   (erc :server "irc.libera.chat" :port 6667))
diff --git a/emacs/site-lisp/my-binds.el b/emacs/site-lisp/my-binds.el
index bb80e62..990dd46 100644
--- a/emacs/site-lisp/my-binds.el
+++ b/emacs/site-lisp/my-binds.el
@@ -20,3 +20,5 @@
 ;; searching
 (global-set-key (kbd "M-s g") 'rgrep)
 (global-set-key (kbd "M-s r") 'counsel-rg)
+
+(global-set-key (kbd "C-x w o") 'toggle-window-other-reachability)
diff --git a/emacs/site-lisp/my-funcs.el b/emacs/site-lisp/my-funcs.el
index 01bf5cc..37a8b7b 100644
--- a/emacs/site-lisp/my-funcs.el
+++ b/emacs/site-lisp/my-funcs.el
@@ -57,6 +57,12 @@ mark.  Does the same of ARG number sexps if given"
       (save-buffers-kill-terminal)
     (delete-frame)))
 
+(defun toggle-window-other-reachability ()
+  (interactive)
+  (let* ((win (get-buffer-window (current-buffer)))
+        (current (window-parameter win 'no-other-window)))
+    (set-window-parameter win 'no-other-window (not current))))
+
 ;; indent code when pasting, from
 ;; https://trey-jackson.blogspot.com/2008/03/emacs-tip-15-indent-yanked-code.html
 
diff --git a/emacs/site-lisp/single-header.el b/emacs/site-lisp/single-header.el
index da57426..06faff5 100755
--- a/emacs/site-lisp/single-header.el
+++ b/emacs/site-lisp/single-header.el
@@ -14,11 +14,8 @@
 (defun make-header-info-string ()
   "generates the mode line string that contains all the info to the right"
   (let ((str (concat
-              (format-time-string "%a, %b %+4Y-%0m-%0d  ")
-              (with-face (format-time-string "%R  ")
+              (with-face (battery-format "[%b%p%%]  " (and battery-status-function (funcall battery-status-function)))
                          :weight 'bold)
-              (with-face (format "<%03.2f>  " (car (load-average 1)))
-                         :foreground "#da70d6")
               (with-face (let* ((mi (memory-info))
                                 (tm (float (car mi)))
                                 (fm (float (cadr mi)))
@@ -26,14 +23,17 @@
                                 (fs (float (cadddr mi))))
                            (format "{%.2f %.2f}  " (- 1 (/ fm tm)) (- 1 (/ fs ts))))
                          :foreground "#00ced1")
-              (with-face (battery-format "[%b%p%%]  " (and battery-status-function (funcall battery-status-function)))
+              (with-face (format "<%03.2f>  " (car (load-average 1)))
+                         :foreground "#da70d6")
+              (format-time-string "%a, %b %+4Y-%0m-%0d  ")
+              (with-face (format-time-string "%R")
                          :weight 'bold)
               )))
-    (setq str (concat str
-                      (make-string
+    (setq str (concat (make-string
                        (- (window-max-chars-per-line (minibuffer-window) 'single-header)
                           (length str))
-                       ? )))
+                       ? )
+                      str))
     (with-face str 'single-header)))
 
 (defun single-header-init-buffer (buf)