Skip to content

Instantly share code, notes, and snippets.

@amno1
Last active July 3, 2024 21:13
Show Gist options
  • Save amno1/92f6c81518049d58b3cd8dfe7273d40d to your computer and use it in GitHub Desktop.
Save amno1/92f6c81518049d58b3cd8dfe7273d40d to your computer and use it in GitHub Desktop.
Ascii cat
;;; sleepy-cat.el --- Animate an ascii cat in Emacs -*- lexical-binding: t; -*-
;; Copyright (C) 2024 Arthur Miller
;; Author: Arthur Miller <arthur.miller@live.com>
;; Keywords:
;; 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 of the License, 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. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; Animation frames stolen from:
;; https://www.youtube.com/watch?v=lbrXeV4hN08&t=14s
;;; Code:
(require 'org)
(defface cat-face
'((t (:inherit font-lock-function-name-face :height 300)))
"")
(cl-defstruct cat-stuff
face
buffer
config-to-restore
cat-wake-up
(current-frame 0)
X Y
(frames ["
/\\_/\\
( o.o )
>>>^<<<
""
/\\_/\\
( -.o )
>^<<<
""
/\\_/\\
( -.- )
>^<
""
/\\_/\\
( o.- )
>>>^<
""
/\\_/\\
( -.- )
>^<
""
/\\_/\\
( +.+ )
<^>
"]))
(defvar the-cat)
(defun do-cat-stuff ()
(setf the-cat (make-cat-stuff
:buffer (get-buffer-create "*Sleeping Cat*")
:config-to-restore (current-window-configuration)
:cat-wake-up t))
(delete-other-windows)
(setf (cat-stuff-Y the-cat) (- (/ (window-size) 2) 10)
(cat-stuff-X the-cat) (+ (/ (window-size nil t) 2) 8))
(with-current-buffer (cat-stuff-buffer the-cat)
(setq mode-line-format nil
fringe-indicator-alist
'((continuation nil nil)))
(fringe-mode -1)
(switch-to-buffer (current-buffer))
(let ((spacer-x (make-string (cat-stuff-X the-cat) ?\s))
(spacer-y (make-string (cat-stuff-Y the-cat) ?\n)))
(condition-case _
(while (cat-stuff-cat-wake-up the-cat)
(erase-buffer)
(insert spacer-y)
(dolist (line (split-string
(aref (cat-stuff-frames the-cat)
(cat-stuff-current-frame the-cat)) "\n" t))
(insert (propertize (concat spacer-x line "\n") 'face 'cat-face)))
(setf (cat-stuff-current-frame the-cat)
(if (= 5 (cat-stuff-current-frame the-cat))
0
(1+ (cat-stuff-current-frame the-cat))))
(sit-for 0.2)
(message (format "Meow %s"
(make-string (cat-stuff-current-frame the-cat) ?.))))
(quit (sleepy-go-sleep))))))
(defun sleepy-go-sleep ()
(setf (cat-stuff-cat-wake-up the-cat) nil)
(kill-buffer (cat-stuff-buffer the-cat))
(set-window-configuration (cat-stuff-config-to-restore the-cat)))
(defun sleepy-cat ()
"Display a cute cat in an Emacs frame."
(interactive)
(do-cat-stuff))
(provide 'sleepy-cat)
;;; cat.el ends here
@jonEbird
Copy link

jonEbird commented Jul 2, 2024

Line 89 should be:

            (dolist (line (split-string

@amno1
Copy link
Author

amno1 commented Jul 3, 2024

Yes, of course!

For some reason "line" got erased there. I had in on my computer. No idea what happened :). Thanks.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment