61 lines
1.7 KiB
Common Lisp
61 lines
1.7 KiB
Common Lisp
|
;;;; Copyright © 2023, Jaidyn Ann <jadedctrl@posteo.at>
|
|||
|
|
;;;;
|
|||
|
|
;;;; 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/>.
|
|||
|
|
|
|||
|
|
;;;; FLORA-SEARCH-AURORA.INTERMISSION — CLOCKS
|
|||
|
|
;;;; Some ASCII clock-stuff, for use with INTERMISSION’s clock-rendering.
|
|||
|
|
|
|||
|
|
(set-dispatch-macro-character #\# #\> #'cl-heredoc:read-heredoc)
|
|||
|
|
;;(in-package :flora-search-aurora.intermission)
|
|||
|
|
|
|||
|
|
;; So that we can do #>eof>strings like this!eof
|
|||
|
|
;; What a wonderful macro! :D
|
|||
|
|
|
|||
|
|
|
|||
|
|
(defparameter *clock-base*
|
|||
|
|
"
|
|||
|
|
---------------
|
|||
|
|
/ ________ \\\"\
|
|||
|
|
/ . / \ ,.\\\"\
|
|||
|
|
⁄ / \ \\\"|
|
|||
|
|
| | | |\"|
|
|||
|
|
| ,| () | ,|\"|
|
|||
|
|
|. | | |\"|
|
|||
|
|
| \ / , |\"|
|
|||
|
|
| ,. \________/. |\"|
|
|||
|
|
| . . . |\"|
|
|||
|
|
| .,- ., . . |\"|
|
|||
|
|
| .. . . . . . . |\"|
|
|||
|
|
|__________________|\"|
|
|||
|
|
"
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
(defparameter *calendar-base*
|
|||
|
|
"
|
|||
|
|
:===================:
|
|||
|
|
:===================:|
|
|||
|
|
|\/ / ||
|
|||
|
|
| ||\"
|
|||
|
|
| ||\"
|
|||
|
|
| ||\"'
|
|||
|
|
| ||\"'
|
|||
|
|
| ||\"'
|
|||
|
|
| ||\"''
|
|||
|
|
| ||\"''
|
|||
|
|
| ||\"''
|
|||
|
|
|___________________||
|
|||
|
|
"
|
|||
|
|
)
|
|||
|
|
|