Bruh
This commit is contained in:
commit
b66ae29fe1
52
main.lisp
Normal file
52
main.lisp
Normal file
@ -0,0 +1,52 @@
|
||||
(ql:quickload "cl-charms")
|
||||
(ql:quickload "trivial-left-pad")
|
||||
|
||||
(defvar *splits* '(("Kraid" 0 0 0)("Phantoon" 0 0 0)("Draygon" 0 0 0) ("Ridley" 0 0 0)))
|
||||
|
||||
(defun make-string-bruh () "bruh")
|
||||
|
||||
(defun add-to-string-if-not-empty (string suffix)
|
||||
(cond ((not (zerop (length string))) (concatenate 'string string suffix))))
|
||||
|
||||
(defun number->two-wide (num)
|
||||
(cond ((not (zerop num)) (format nil "~2,'0D" num)) (t "")))
|
||||
|
||||
(defun millis->strings (millis)
|
||||
(let*
|
||||
((hours (/ millis (* 1000 60 60)))
|
||||
(minutes (mod (/ millis (* 1000 60)) 60))
|
||||
(seconds (mod (/ millis 1000) 60))
|
||||
(centis (mod millis 100)))
|
||||
(list
|
||||
(number->two-wide (floor hours))
|
||||
(number->two-wide (floor minutes))
|
||||
(format nil "~2,'0d" (floor seconds))
|
||||
(format nil "~2,'0d" (floor centis)))))
|
||||
|
||||
(defun time->string (time_strs)
|
||||
(concatenate 'string
|
||||
(add-to-string-if-not-empty (car time_strs) ":")
|
||||
(add-to-string-if-not-empty (cadr time_strs) ":")
|
||||
(add-to-string-if-not-empty (caddr time_strs) ".")
|
||||
(cadddr time_strs)))
|
||||
|
||||
(defun format-my-split (split)
|
||||
(cond
|
||||
((null split) "")
|
||||
(t (concatenate 'string (trivial-left-pad:left-pad (car split) 15) (format-my-split (cdr split))))))
|
||||
|
||||
(defun hello-world ()
|
||||
(charms:with-curses ()
|
||||
(charms:disable-echoing)
|
||||
(charms:enable-raw-input)
|
||||
(loop named hello-world
|
||||
with window = (charms:make-window 50 15 10 10)
|
||||
do (progn
|
||||
(charms:clear-window window)
|
||||
(charms:write-string-at-point window (make-string-bruh) 0 0)
|
||||
(charms:refresh-window window)
|
||||
|
||||
;; Process input
|
||||
(when (eql (charms:get-char window) #\q)
|
||||
(return-from hello-world))
|
||||
(sleep 0.1)))))
|
Loading…
Reference in New Issue
Block a user