;;;; -*- 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 "~A" dimension dimension (string-downcase identifier) dimension dimension (rest (assoc identifier bi-icons))))