From fd8f60c07d8900baece1afbab97afd93737539b9 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 12 Feb 2021 14:25:20 -0600 Subject: Remove redundant (and anyway commented) nyan-mode section I'm just so sad it won't play nice with my mode-line :(. --- config.org | 46 ---------------------------------------------- 1 file changed, 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 (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 -- cgit 1.4.1-21-gabe81