mirror of https://codeberg.org/cage/tinmop/
40 lines
1.3 KiB
Common Lisp
40 lines
1.3 KiB
Common Lisp
(in-package :icons)
|
|
|
|
(a:define-constant +icon-dir+ "/data/icons/" :test #'string=)
|
|
|
|
(a:define-constant +search+ "fmw_search" :test #'string=)
|
|
|
|
(a:define-constant +back+ "fmw_back" :test #'string=)
|
|
|
|
(a:define-constant +go+ "fmw_go" :test #'string=)
|
|
|
|
(a:define-constant +open-tour+ "fmw_open_tour" :test #'string=)
|
|
|
|
(a:define-constant +refresh+ "fmw_refresh" :test #'string=)
|
|
|
|
(defparameter *search* nil)
|
|
|
|
(defparameter *back* nil)
|
|
|
|
(defparameter *open-iri* nil)
|
|
|
|
(defparameter *open-tour* nil)
|
|
|
|
(defparameter *refresh* nil)
|
|
|
|
(defun load-icon (filename)
|
|
(let ((path (if (not (re:scan "(?i)png$" filename))
|
|
(res:get-data-file (fs:cat-parent-dir +icon-dir+
|
|
(strcat filename ".png")))
|
|
(res:get-data-file (fs:cat-parent-dir +icon-dir+ filename)))))
|
|
(with-open-file (stream path :element-type '(unsigned-byte 8))
|
|
(let ((data (gui-utils:read-into-array stream (file-length stream))))
|
|
(gui:make-image data)))))
|
|
|
|
(defun load-icons ()
|
|
(setf *search* (load-icon +search+))
|
|
(setf *back* (load-icon +back+))
|
|
(setf *open-iri* (load-icon +go+))
|
|
(setf *open-tour* (load-icon +open-tour+))
|
|
(setf *refresh* (load-icon +refresh+)))
|