1 files changed, 0 insertions, 46 deletions

@@ -629,52 +629,6 @@ How is this not built into Emacs?  Oh well, I have [[https://github.com/jamesnvc
   (advice-add 'select-window :after #'cogent-line-set-selected-window)
 #+end_src
 
-***** COMMENT Nyan mode
-
-#+begin_src emacs-lisp :noweb-ref packages
-  (straight-use-package 'nyan-mode)
-#+end_src
-
-#+begin_src emacs-lisp :noweb-ref settings
-  (setq-default nyan-bar-length 24)
-#+end_src
-
-#+begin_src emacs-lisp :noweb-ref modes
-  (nyan-mode +1)
-#+end_src
-
-#+begin_src emacs-lisp :noweb-ref functions
-  (defun acdw/modeline/nyan ()
-    "Show `nyan-mode' cat in the selected window, or position."
-    (if (and ;nyan-mode
-             (cogent-line-selected-window-active-p))
-        (nyan-create)
-      "%p%%"))
-#+end_src
-
-****** Rewrite =simple-modeline--format=
-
-#+begin_src emacs-lisp :noweb-ref functions
-  (defun simple-modeline--format (left-segments right-segments)
-    "Return a string of `window-width' length containing
-  LEFT-SEGMENTS and RIGHT-SEGMENTS, aligned respectively.
-
-  This version is fixed for `nyan-mode' ... maybe??"
-    (let* ((left (simple-modeline--format-segments left-segments))
-           (right (simple-modeline--format-segments right-segments))
-           (reserve (+ 1 (length right))))
-      (when (and window-system (eq 'right (get-scroll-bar-mode)))
-        (setq reserve (- reserve 3)))
-      (concat
-       left
-       (propertize " "
-                   'display `((space
-                               :align-to (- (+ right right-fringe right-margin)
-                                            ,reserve)))
-                   'face '(:inherit simple-modeline-space))
-       right)))
-#+end_src
-
 ***** Tweak =simple-modeline-segment-modified=
 
 #+begin_src emacs-lisp :noweb-ref functions