flora-search-aurora/res/clocks.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.

(in-package :flora-search-aurora.intermission)


(defparameter *clock-base*
 "
   ---------------
  /   ________   \\\"\
 / . /        \\ ,.\\\"\
⁄   /          \\   \\\"|
|  |            |  |\"|
| ,|     ()     | ,|\"|
|. |            |  |\"|
|   \\          / , |\"|
| ,. \\________/.   |\"|
| .            . . |\"|
| .,-  ., . .      |\"|
| ..  . . . . . .  |\"|
|__________________|\"|
")


(defparameter *calendar-base*
 "
  :===================:
  :===================:|
  |\/      /          ||
  |                   ||\"
  |                   ||\"
  |                   ||\"'
  |                   ||\"'
  |                   ||\"'
  |                   ||\"''
  |                   ||\"''
  |                   ||\"''
  |___________________||
")