mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Data list improvements

Browse source
This commit is contained in:
David Botton 2021-01-13 15:00:59 -05:00
parent 6f4bd84904
commit dea7bd02d9
4 changed files with 167 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

17
clog-element-common.lisp
View file

@ -210,6 +210,23 @@ placing image to constrain image size."))
(setf (property obj "src") value))
(defsetf url-src set-url-src)
;;;;;;;;;;;;;;
;; alt-text ;;
;;;;;;;;;;;;;;
(defgeneric alt-text (clog-img)
(:documentation "Get/Setf the alt-text of the img."))
(defmethod alt-text ((obj clog-img))
(attribute obj "alt"))
(defgeneric set-alt-text (clog-img value)
(:documentation "Set alt-text VALUE for CLOG-IMG"))
(defmethod set-alt-text ((obj clog-img) value)
(setf (attribute obj "alt") value))
(defsetf alt-text set-alt-text)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-meter
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;