From aab5bfd074e57d06a79e39d7c7c4760e1f385a06 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 17 Oct 2022 21:41:28 -0500 Subject: Bankruptcy 9 --- lisp/+nyan-mode.el | 42 ------------------------------------------ 1 file changed, 42 deletions(-) delete mode 100644 lisp/+nyan-mode.el (limited to 'lisp/+nyan-mode.el') diff --git a/lisp/+nyan-mode.el b/lisp/+nyan-mode.el deleted file mode 100644 index 33ae9af..0000000 --- a/lisp/+nyan-mode.el +++ /dev/null @@ -1,42 +0,0 @@ -;;; +nyan-mode.el --- Extras for nyan-mode -*- lexical-binding: t; -*- - -;;; Commentary: - -;;; Code: - -;;; Update even without line number in the mode line. - -(defcustom +nyan-mode-update-functions - '( end-of-buffer beginning-of-buffer - next-line previous-line - org-next-visible-heading org-previous-visible-heading) - "Functions after which to force a mode-line update." - :type '(repeat function)) - -(defun +nyan-mode--fmlu (&rest _) - "Update the mode-line, advice-style." - (force-mode-line-update)) - -(defun +nyan-mode-advice (&rest _) - "Advise line-moving functions when in `nyan-mode'." - (dolist (fn +nyan-mode-update-functions) - (if nyan-mode - (advice-add fn :after #'+nyan-mode--fmlu) - (advice-remove fn #'+nyan-mode--fmlu)))) - -(defface +nyan-mode-line nil - "Face for the nyan-mode mode-line indicator.") - -(define-minor-mode +nyan-local-mode - "My very own `nyan-mode' that isn't global and doesn't update the mode-line." - :global nil - :group 'nyan - (dolist (fn +nyan-mode-update-functions) - (if +nyan-local-mode - (advice-add fn :after #'+nyan-mode--fmlu) - (advice-remove fn #'+nyan-mode--fmlu)))) - -(define-globalized-minor-mode +nyan-mode +nyan-local-mode +nyan-local-mode) - -(provide '+nyan-mode) -;;; +nyan-mode.el ends here -- cgit 1.4.1-21-gabe81