add command

lem-project · Dec 17, 2023 · c20ce7e · c20ce7e
1 parent 3115859
commit c20ce7e
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/src/commands/font.lisp b/src/commands/font.lisp
@@ -15,10 +15,6 @@
   "Make the font smaller (this currently only works with SDL2 frontend)"
   (lem-if:decrease-font-size (implementation)))
 
-;; (define-command set-font-size (size) ("nSize: ")
-;;   (display:with-display (display)
-;;     (display:with-renderer (display)
-;;       (let ((font-config (display:display-font-config display)))
-;;         (display:change-font 
-;;          display 
-;;          (font:change-size font-config size))))))
+(define-command font-size-set (size) ("nSize: ")
+  "Set the font size to an integer (this currently only works with SDL2 frontend)"
+  (lem-if:set-font-size (implementation) size))