mirror of https://codeberg.org/cage/tinmop/
100 lines
3.4 KiB
Common Lisp
100 lines
3.4 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=)
|
|
|
|
(a:define-constant +up+ "fmw_uparrow" :test #'string=)
|
|
|
|
(a:define-constant +document-delete+ "fmw_document-delete" :test #'string=)
|
|
|
|
(a:define-constant +document-add+ "fmw_document-add" :test #'string=)
|
|
|
|
(a:define-constant +document-accept+ "fmw_document-accept" :test #'string=)
|
|
|
|
(a:define-constant +document-edit+ "fmw_document-edit" :test #'string=)
|
|
|
|
(a:define-constant +folder+ "fmw_folder" :test #'string=)
|
|
|
|
(a:define-constant +star-yellow+ "fmw_star-yellow.png" :test #'string=)
|
|
|
|
(a:define-constant +star-blue+ "fmw_star-blue.png" :test #'string=)
|
|
|
|
(a:define-constant +arrow-up+ "fmw_arrow-up" :test #'string=)
|
|
|
|
(a:define-constant +arrow-down+ "fmw_arrow-down" :test #'string=)
|
|
|
|
(a:define-constant +cross+ "fmw_cross" :test #'string=)
|
|
|
|
(a:define-constant +bus-go+ "fmw_bus-go" :test #'string=)
|
|
|
|
(defparameter *search* nil)
|
|
|
|
(defparameter *back* nil)
|
|
|
|
(defparameter *open-iri* nil)
|
|
|
|
(defparameter *open-tour* nil)
|
|
|
|
(defparameter *refresh* nil)
|
|
|
|
(defparameter *up* nil)
|
|
|
|
(defparameter *document-delete* nil)
|
|
|
|
(defparameter *document-add* nil)
|
|
|
|
(defparameter *document-accept* nil)
|
|
|
|
(defparameter *document-edit* nil)
|
|
|
|
(defparameter *folder* nil)
|
|
|
|
(defparameter *star-yellow* nil)
|
|
|
|
(defparameter *star-blue* nil)
|
|
|
|
(defparameter *arrow-up* nil)
|
|
|
|
(defparameter *arrow-down* nil)
|
|
|
|
(defparameter *cross* nil)
|
|
|
|
(defparameter *bus-go* 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+))
|
|
(setf *up* (load-icon +up+))
|
|
(setf *document-delete* (load-icon +document-delete+))
|
|
(setf *document-add* (load-icon +document-add+))
|
|
(setf *document-accept* (load-icon +document-accept+))
|
|
(setf *document-edit* (load-icon +document-edit+))
|
|
(setf *folder* (load-icon +folder+))
|
|
(setf *star-yellow* (load-icon +star-yellow+))
|
|
(setf *star-blue* (load-icon +star-blue+))
|
|
(setf *arrow-up* (load-icon +arrow-up+))
|
|
(setf *arrow-down* (load-icon +arrow-down+))
|
|
(setf *cross* (load-icon +cross+))
|
|
(setf *bus-go* (load-icon +bus-go+)))
|