diff options
-rw-r--r-- | config.org | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/config.org b/config.org index d3be20b..d0b1a35 100644 --- a/config.org +++ b/config.org | |||
@@ -629,52 +629,6 @@ How is this not built into Emacs? Oh well, I have [[https://github.com/jamesnvc | |||
629 | (advice-add 'select-window :after #'cogent-line-set-selected-window) | 629 | (advice-add 'select-window :after #'cogent-line-set-selected-window) |
630 | #+end_src | 630 | #+end_src |
631 | 631 | ||
632 | ***** COMMENT Nyan mode | ||
633 | |||
634 | #+begin_src emacs-lisp :noweb-ref packages | ||
635 | (straight-use-package 'nyan-mode) | ||
636 | #+end_src | ||
637 | |||
638 | #+begin_src emacs-lisp :noweb-ref settings | ||
639 | (setq-default nyan-bar-length 24) | ||
640 | #+end_src | ||
641 | |||
642 | #+begin_src emacs-lisp :noweb-ref modes | ||
643 | (nyan-mode +1) | ||
644 | #+end_src | ||
645 | |||
646 | #+begin_src emacs-lisp :noweb-ref functions | ||
647 | (defun acdw/modeline/nyan () | ||
648 | "Show `nyan-mode' cat in the selected window, or position." | ||
649 | (if (and ;nyan-mode | ||
650 | (cogent-line-selected-window-active-p)) | ||
651 | (nyan-create) | ||
652 | "%p%%")) | ||
653 | #+end_src | ||
654 | |||
655 | ****** Rewrite =simple-modeline--format= | ||
656 | |||
657 | #+begin_src emacs-lisp :noweb-ref functions | ||
658 | (defun simple-modeline--format (left-segments right-segments) | ||
659 | "Return a string of `window-width' length containing | ||
660 | LEFT-SEGMENTS and RIGHT-SEGMENTS, aligned respectively. | ||
661 | |||
662 | This version is fixed for `nyan-mode' ... maybe??" | ||
663 | (let* ((left (simple-modeline--format-segments left-segments)) | ||
664 | (right (simple-modeline--format-segments right-segments)) | ||
665 | (reserve (+ 1 (length right)))) | ||
666 | (when (and window-system (eq 'right (get-scroll-bar-mode))) | ||
667 | (setq reserve (- reserve 3))) | ||
668 | (concat | ||
669 | left | ||
670 | (propertize " " | ||
671 | 'display `((space | ||
672 | :align-to (- (+ right right-fringe right-margin) | ||
673 | ,reserve))) | ||
674 | 'face '(:inherit simple-modeline-space)) | ||
675 | right))) | ||
676 | #+end_src | ||
677 | |||
678 | ***** Tweak =simple-modeline-segment-modified= | 632 | ***** Tweak =simple-modeline-segment-modified= |
679 | 633 | ||
680 | #+begin_src emacs-lisp :noweb-ref functions | 634 | #+begin_src emacs-lisp :noweb-ref functions |