x11-wm/stumpwm.stumpwm
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm.git synced 2026-09-10 07:26:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Simplify FONT-EXISTS-P

Browse source 
No need to check for the length for list returned by LIST-FONT-NAMES. Returning
the list itself is enough. The empty list NIL, is false and any list containing
one element is true.
This commit is contained in:
Javier Olaechea 2019-07-14 14:08:55 -05:00
parent 0ddebd14c1
commit 1cab4c85e7
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
font-rendering.lisp
View file

@ -25,12 +25,12 @@
sequence &rest keys &key start end translate width size))
;;;; X11 fonts
(defmethod font-exists-p ((font string))
(defmethod font-exists-p ((font-name string))
;; if we can list the font then it exists
(plusp (length (xlib:list-font-names *display* font :max-fonts 1))))
(xlib:list-font-names *display* font-name :max-fonts 1))
(defmethod open-font ((display xlib:display) (font string))
(xlib:open-font display (first (xlib:list-font-names display font :max-fonts 1))))
(defmethod open-font ((display xlib:display) (font-name string))
(xlib:open-font display (first (xlib:list-font-names display font-name :max-fonts 1))))
(defmethod close-font ((font xlib:font))
(xlib:close-font font))