mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-03-03 04:11:49 -08:00
Code Issues Projects Releases Wiki Activity

change some defaults

Browse source
This commit is contained in:
David Botton 2021-03-17 20:56:40 -04:00
parent d2a915502d
commit f6a1a7dddc
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-web.lisp
View file

@ -177,7 +177,7 @@ create-web-menu-bar."))
clog-body."))
(defmethod create-web-menu-bar ((obj clog-obj)
&key (class "w3-bar w3-black w3-card-4")
&key (class "w3-bar w3-white")
(html-id nil))
(let ((div (create-div obj :class class :html-id html-id))
(app (connection-data-item obj "clog-web")))
@ -198,7 +198,7 @@ clog-body."))
(defmethod create-web-menu-drop-down ((obj clog-web-menu-bar)
&key (content "")
(class "w3-dropdown-content w3-bar-block w3-card-4")
(class "w3-dropdown-content w3-bar-block")
(html-id nil))
(let* ((hover (create-div obj :class "w3-dropdown-hover"))
(button (create-button hover :class "w3-button" :content content))
@ -283,7 +283,7 @@ icon ⤢ and full screen mode."))
(:documentation "Add icon as menu bar item."))
(defmethod create-web-menu-icon ((obj clog-web-menu-bar)
&key (image-url "/img/clogwicon.png")
&key (image-url "/img/clogicon.png")
(on-click nil)
(class "w3-button w3-bar-item")
(html-id nil))