summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-02-12 14:25:20 -0600
committerCase Duckworth2021-02-12 14:25:20 -0600
commitfd8f60c07d8900baece1afbab97afd93737539b9 (patch)
treec463db975fddbd5d663c3b3fc6273d554b7da22e
parentComment out Marginalia Selectrum integration (diff)
downloademacs-fd8f60c07d8900baece1afbab97afd93737539b9.tar.gz
emacs-fd8f60c07d8900baece1afbab97afd93737539b9.zip
Remove redundant (and anyway commented) nyan-mode section
I'm just so sad it won't play nice with my mode-line :(.
-rw-r--r--config.org46
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