commit f4c48ea5ad49c781872791c40300a9d5c8b9df57
parent 24fd82c9ff12104363a2ee67249e744e7fe19701
Author: Michael Neuper <73108749+michaelneuper@users.noreply.github.com>
Date: Tue, 20 Dec 2022 12:57:18 +0200
Remove nyan mode
Diffstat:
2 files changed, 0 insertions(+), 329 deletions(-)
diff --git a/.doom.d/nyan-mode.el b/.doom.d/nyan-mode.el
@@ -1,328 +0,0 @@
-;;; nyan-mode.el --- Nyan Cat shows position in current buffer in mode-line -*- lexical-binding: t; -*-
-
-;; Nyanyanyanyanyanyanya!
-
-;; Author: Jacek "TeMPOraL" Zlydach <temporal.pl@gmail.com>
-;; URL: https://github.com/TeMPOraL/nyan-mode/
-;; Version: 1.1.4
-;; Keywords: convenience, games, mouse, multimedia
-;; Nyanwords: nyan, cat, lulz, scrolling, pop tart cat, build something amazing
-;; Package-Requires: ((emacs "24.1"))
-
-;; This file is not part of GNU Emacs.
-
-;; ...yet. ;).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 3, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING. If not, write to
-;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
-;; Floor, Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; NEW! You can now click on the rainbow (or the empty space)
-;; to scroll your buffer!
-
-;; NEW! You can now customize the minimum window width
-;; below which the nyan-mode will be disabled, so that more important
-;; information can be shown in the modeline.
-
-;; To activate, just load and put `(nyan-mode 1)' in your init file.
-
-;; Contributions and feature requests welcome!
-
-;; Inspired by (and in few places copied from) sml-modeline.el written by Lennart Borgman.
-;; See: http://bazaar.launchpad.net/~nxhtml/nxhtml/main/annotate/head%3A/util/sml-modeline.el
-
-;;; History:
-
-;; 2016-04-26 - introduced click-to-scroll feature.
-
-;; Started as a totally random idea back in August 2011.
-
-;; The homepage at http://nyan-mode.buildsomethingamazing.com died somewhen in 2014/2015 because reasons.
-;; I might get the domain back one day.
-
-;;; Code:
-
-(defconst nyan-directory (file-name-directory (or load-file-name buffer-file-name)))
-
-(defconst nyan-cat-size 3)
-
-(defconst nyan-cat-face-image (concat nyan-directory "img/nyan.xpm"))
-(defconst nyan-rainbow-image (concat nyan-directory "img/rainbow.xpm"))
-(defconst nyan-outerspace-image (concat nyan-directory "img/outerspace.xpm"))
-
-(defconst nyan-music (concat nyan-directory "mus/nyanlooped.mp3"))
-
-(defconst nyan-modeline-help-string "Nyanyanya!\nmouse-1: Scroll buffer position")
-
-(defvar nyan-old-car-mode-line-position nil)
-
-(defgroup nyan nil
- "Customization group for `nyan-mode'."
- :group 'frames)
-
-(defun nyan-refresh ()
- "Refresh nyan mode.
-Intended to be called when customizations were changed, to
-reapply them immediately."
- (when (featurep 'nyan-mode)
- (when (and (boundp 'nyan-mode)
- nyan-mode)
- (nyan-mode -1)
- (nyan-mode 1))))
-
-(defcustom nyan-animation-frame-interval 0.2
- "Number of seconds between animation frames."
- :type 'float
- :set (lambda (sym val)
- (set-default sym val)
- (nyan-refresh))
- :group 'nyan)
-
-(defvar nyan-animation-timer nil)
-
-(defun nyan--is-animating-p ()
- "T if animating, NIL otherwise."
- (timerp nyan-animation-timer))
-
-(defun nyan-start-animation ()
- (interactive)
- (unless (nyan--is-animating-p)
- (setq nyan-animation-timer (run-at-time "1 sec"
- nyan-animation-frame-interval
- 'nyan-swich-anim-frame))))
-
-(defun nyan-stop-animation ()
- (interactive)
- (when (nyan--is-animating-p)
- (cancel-timer nyan-animation-timer)
- (setq nyan-animation-timer nil)))
-
-(defcustom nyan-minimum-window-width 64
- "Minimum width of the window, below which nyan-mode will not be displayed.
-This is important because nyan-mode will push out all
-informations from small windows."
- :type 'integer
- :set (lambda (sym val)
- (set-default sym val)
- (nyan-refresh))
- :group 'nyan)
-
-;;; FIXME bug, doesn't work for antoszka.
-(defcustom nyan-wavy-trail nil
- "If enabled, Nyan Cat's rainbow trail will be wavy."
- :type '(choice (const :tag "Enabled" t)
- (const :tag "Disabled" nil))
- :set (lambda (sym val)
- (set-default sym val)
- (nyan-refresh))
- :group 'nyan)
-
-(defcustom nyan-bar-length 32
- "Length of Nyan Cat bar in units.
-Each unit is equal to an 8px image.
-Minimum of 3 units are required for Nyan Cat."
- :type 'integer
- :set (lambda (sym val)
- (set-default sym val)
- (nyan-refresh))
- :group 'nyan)
-
-(defcustom nyan-animate-nyancat nil
- "Enable animation for Nyan Cat.
-This can be t or nil."
- :type '(choice (const :tag "Enabled" t)
- (const :tag "Disabled" nil))
- ;; FIXME: Starting an animation timer on defcustom isn't a good idea; this needs to, at best, maybe start/stop a timer iff the mode is on,
- ;; otherwise just set a flag. -- Jacek Złydach, 2020-05-26
- :set (lambda (sym val)
- (set-default sym val)
- (if val
- (nyan-start-animation)
- (nyan-stop-animation))
- (nyan-refresh))
- :group 'nyan)
-
-(defcustom nyan-cat-face-number 1
- "Select cat face number for console."
- :type 'integer
- :group 'nyan)
-
-;;; Load images of Nyan Cat an it's rainbow.
-(defvar nyan-cat-image (if (image-type-available-p 'xpm)
- (create-image nyan-cat-face-image 'xpm nil :ascent 'center)))
-
-(defvar nyan-animation-frames (if (image-type-available-p 'xpm)
- (mapcar (lambda (id)
- (create-image (concat nyan-directory (format "img/nyan-frame-%d.xpm" id))
- 'xpm nil :ascent 95))
- '(1 2 3 4 5 6))))
-(defvar nyan-current-frame 0)
-
-(defconst nyan-cat-face [
- ["[]*" "[]#"]
- ["(*^ｰﾟ)" "( ^ｰ^)" "(^ｰ^ )" "(ﾟｰ^*)"]
- ["(´ω｀三 )" "( ´ω三｀ )" "( ´三ω｀ )" "( 三´ω｀)"
- "( 三´ω｀)" "( ´三ω｀ )" "( ´ω三｀ )" "(´ω｀三 )"]
- ["(´д｀;)" "( ´д`;)" "( ;´д`)" "(;´д` )"]
- ["(」・ω・)」" "(／・ω・)／" "(」・ω・)」" "(／・ω・)／"
- "(」・ω・)」" "(／・ω・)／" "(」・ω・)」" "＼(・ω・)／"]
- ["(＞ワ＜三 )" "( ＞ワ三＜ )"
- "( ＞三ワ＜ )" "( 三＞ワ＜)"
- "( ＞三ワ＜ )" "( ＞ワ三＜ )"]])
-
-(defun nyan-toggle-wavy-trail ()
- "Toggle the trail to look more like the original Nyan Cat animation."
- (interactive)
- (setq nyan-wavy-trail (not nyan-wavy-trail)))
-
-(defun nyan-swich-anim-frame ()
- (setq nyan-current-frame (% (+ 1 nyan-current-frame) 6))
- (force-mode-line-update))
-
-(defun nyan-get-anim-frame ()
- (if (nyan--is-animating-p)
- (nth nyan-current-frame nyan-animation-frames)
- nyan-cat-image))
-
-(defun nyan-wavy-rainbow-ascent (number)
- (if (nyan--is-animating-p)
- (min 100 (+ 90
- (* 3 (abs (- (/ 6 2)
- (% (+ number nyan-current-frame)
- 6))))))
- (if (zerop (% number 2)) 80 'center)))
-
-(defun nyan-number-of-rainbows ()
- (round (/ (* (round (* 100
- (/ (- (float (point))
- (float (point-min)))
- (float (point-max)))))
- (- nyan-bar-length nyan-cat-size))
- 100)))
-
-(defun nyan-catface ()
- (aref nyan-cat-face nyan-cat-face-number))
-
-(defun nyan-catface-index ()
- (min (round (/ (* (round (* 100
- (/ (- (float (point))
- (float (point-min)))
- (float (point-max)))))
- (length (nyan-catface)))
- 100))
- (- (length (nyan-catface)) 1)))
-
-(defun nyan-scroll-buffer (percentage buffer)
- "Move point `BUFFER' to `PERCENTAGE' percent in the buffer."
- (interactive)
- (with-current-buffer buffer
- (goto-char (floor (* percentage (point-max))))))
-
-(defun nyan-add-scroll-handler (string percentage buffer)
- "Propertize `STRING' to scroll `BUFFER' to `PERCENTAGE' on click."
- (let ((percentage percentage)
- (buffer buffer))
- (propertize string
- 'keymap
- `(keymap (mode-line keymap
- (down-mouse-1 . ,(lambda ()
- (interactive)
- (nyan-scroll-buffer percentage buffer))))))))
-
-(defun nyan-create ()
- "Return the Nyan Cat indicator to be inserted into mode line."
- (if (< (window-width) nyan-minimum-window-width)
- "" ; disabled for too small windows
- (let* ((rainbows (nyan-number-of-rainbows))
- (outerspaces (- nyan-bar-length rainbows nyan-cat-size))
- (rainbow-string "")
- (xpm-support (image-type-available-p 'xpm))
- (nyancat-string (propertize
- (aref (nyan-catface) (nyan-catface-index))
- 'display (nyan-get-anim-frame)))
- (outerspace-string "")
- (buffer (current-buffer)))
- (dotimes (number rainbows)
- (setq rainbow-string (concat rainbow-string
- (nyan-add-scroll-handler
- (if xpm-support
- (propertize "|"
- 'display (create-image nyan-rainbow-image 'xpm nil :ascent (or (and nyan-wavy-trail
- (nyan-wavy-rainbow-ascent number))
- (if (nyan--is-animating-p) 95 'center))))
- "|")
- (/ (float number) nyan-bar-length) buffer))))
- (dotimes (number outerspaces)
- (setq outerspace-string (concat outerspace-string
- (nyan-add-scroll-handler
- (if xpm-support
- (propertize "-"
- 'display (create-image nyan-outerspace-image 'xpm nil :ascent (if (nyan--is-animating-p) 95 'center)))
- "-")
- (/ (float (+ rainbows nyan-cat-size number)) nyan-bar-length) buffer))))
- ;; Compute Nyan Cat string.
- (propertize (concat rainbow-string
- nyancat-string
- outerspace-string)
- 'help-echo nyan-modeline-help-string))))
-
-
-;;; Music handling.
-
-;; mplayer needs to be installed for that
-(defvar nyan-music-process nil)
-
-(defun nyan-start-music ()
- (interactive)
- (unless nyan-music-process
- (setq nyan-music-process (start-process-shell-command "nyan-music"
- "nyan-music"
- (concat "mplayer " nyan-music " -loop 0")))))
-
-(defun nyan-stop-music ()
- (interactive)
- (when nyan-music-process
- (delete-process nyan-music-process)
- (setq nyan-music-process nil)))
-
-
-
-;;;###autoload
-(define-minor-mode nyan-mode
- "Use NyanCat to show buffer size and position in mode-line.
-You can customize this minor mode, see option `nyan-mode'.
-
-Note: If you turn this mode on then you probably want to turn off
-option `scroll-bar-mode'."
- :global t
- :group 'nyan
- ;; FIXME: That doesn't smell right; might still get duplicate nyan cats and other mode-line disruptions. -- Jacek Złydach, 2020-05-26
- (cond (nyan-mode
- (unless nyan-old-car-mode-line-position
- (setq nyan-old-car-mode-line-position (car mode-line-position)))
- (setcar mode-line-position '(:eval (list (nyan-create))))
- ;; NOTE Redundant, but intended to, in the future, prevent the custom variable from starting the animation timer even if nyan mode isn't active. -- Jacek Złydach, 2020-05-26
- (when nyan-animate-nyancat
- (nyan-start-animation)))
- ((not nyan-mode)
- (nyan-stop-animation) ; In case there was an animation going on.
- (setcar mode-line-position nyan-old-car-mode-line-position)
- (setq nyan-old-car-mode-line-position nil))))
-
-
-(provide 'nyan-mode)
-
-;;; nyan-mode.el ends here
diff --git a/.doom.d/packages.el b/.doom.d/packages.el
@@ -50,4 +50,3 @@
;(unpin! t)
(package! chess)
-(package! nyan-mode)
