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

password protect

Browse source
This commit is contained in:
David Botton 2024-06-14 14:06:53 -04:00
parent 250d8129d2
commit e443a34dc5
5 changed files with 224 additions and 195 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-gui.lisp
View file

@ -1914,6 +1914,7 @@ alert-dialog blocks till time-out reached or OK clicked."
(rows 1)
(placeholder-value "")
(default-value "")
is-password
(left nil) (top nil)
(width 300) (height 200)
(client-movement nil)
@ -1928,7 +1929,10 @@ result of on-input."
(result nil)
(body (connection-body obj))
(inp (if (eql rows 1)
(format nil "<input type='text' id='~A-input' size='~A' value='~A' placeholder='~A'>"
(format nil "<input type='~A' id='~A-input' size='~A' value='~A' placeholder='~A'>"
(if is-password
"password"
"text")
html-id
size
(escape-string default-value :html t)