~jl2/clx-truetype

6f72905c6886a656e5a1c8167097f12375c6da7d — Michael Filonenko 8 years ago f32cee6
Update font-cache.lisp

OS darwin clause
1 files changed, 9 insertions(+), 8 deletions(-)

M font-cache.lisp
M font-cache.lisp => font-cache.lisp +9 -8
@@ 1,13 1,14 @@

(in-package #:clx-truetype)

(defvar *font-dirs* #+(or unix netbsd openbsd freebsd) (list "/usr/share/fonts/"
                                     (namestring (merge-pathnames ".fonts/" (user-homedir-pathname))))
        #+darwin (list "/Library/Fonts/")
        #+windows  (list (namestring
                          (merge-pathnames "fonts/" 
                                           (pathname (concatenate 'string (asdf:getenv "WINDIR") "/")))))
        "List of directories, which contain TrueType fonts.")
(defvar *font-dirs* 
    #+(or unix netbsd openbsd freebsd) 
          (list "/usr/share/fonts/" 
               #+darwin "/Library/Fonts/"
               (namestring (merge-pathnames ".fonts/" (user-homedir-pathname))))
    #+windows (list (namestring
                                (merge-pathnames "fonts/" 
                                    (pathname (concatenate 'string (asdf:getenv "WINDIR") "/")))))
    "List of directories, which contain TrueType fonts.")

;; family ->
;;   subfamily -> filename