;;;; -*- mode: lisp; coding: utf-8; tab-width: 4; fill-column: 100; indent-tabs-mode: nil; -*-
;;;; bi.lisp
;;;; Provide functions and macros related to bootstrap icons.
(in-package :dev.metalisp.sbt)
(defparameter bi-icons
'((0-circle . "")
(0-circle-fill . "")
(0-square . "")
(0-square-fill . "")))
(defun bi-build-icon (identifier &optional (dimension 16))
(format nil
""
dimension
dimension
(string-downcase identifier)
dimension
dimension
(rest (assoc identifier bi-icons))))