Permalink
Browse files

????

  • Loading branch information...
Shinmera committed Dec 12, 2018
1 parent 2b7cade commit f055db491c3ed32f1f34f3e3f775cddaa4c05699
Showing with 5 additions and 5 deletions.
  1. +1 −1 package.lisp
  2. +4 −4 prompt.lisp
@@ -436,7 +436,7 @@
#:pipelined-scene)
;; prompt.lisp
(:export
#:prompt-string
#:prompt-char
#:prompt-charset
#:prompt-font
#:prompt
@@ -10,7 +10,7 @@
(macrolet ((-> (&rest entries)
`(let ((tab (make-hash-table :test 'eq)))
,@(loop for (k c) in entries
collect `(setf (gethash ',k tab) ,(string (code-char c))))
collect `(setf (gethash ',k tab) ,(code-char c)))
tab)))
(list :devices (-> (:GAMEPAD #x243C)
(:KEYBOARD #x243D)
@@ -171,7 +171,7 @@
(with-output-to-string (out)
(loop for (bank table) on *prompt-char-table* by #'cddr
do (loop for string being the hash-values of table
do (write-string string out)))))
do (write-char string out)))))
#'char<))
(define-asset (trial prompt-font) font
@@ -186,7 +186,7 @@
(setf (text prompt) (string character)))
(defmethod (setf text) ((symbol symbol) (prompt prompt))
(setf (text prompt) (prompt-string symbol)))
(setf (text prompt) (string (prompt-char symbol))))
(defmethod (setf prompt-icon) (char (prompt prompt) &key (bank :gamepad))
(setf (text prompt) (prompt-string char :bank bank)))
(setf (text prompt) (string (prompt-char char :bank bank))))

0 comments on commit f055db4

Please sign in to comment.