diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-10-03 00:48:11 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-10-03 00:48:11 +0200 |
| commit | 3cf3e26352698f1dc4b7447563bfc1605173f9f2 (patch) | |
| tree | 4f5ab74c04f6b7e88f5ea020930990f69a5deed5 /module/calp/html/vcomponent.scm | |
| parent | Fix graphical block size. (diff) | |
| download | calp-3cf3e26352698f1dc4b7447563bfc1605173f9f2.tar.gz calp-3cf3e26352698f1dc4b7447563bfc1605173f9f2.tar.xz | |
Repair debug buttons.
Diffstat (limited to 'module/calp/html/vcomponent.scm')
| -rw-r--r-- | module/calp/html/vcomponent.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index b32bc0c4..5600646a 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -616,9 +616,13 @@ "som xCal"))) ,@(when (debug) `((ul - (li (button (@ (onclick "console.log(event_to_jcal(event_from_popup(this.closest('.popup-container'))));")) "js")) - (li (button (@ (onclick "console.log(jcal_to_xcal(event_to_jcal(event_from_popup(this.closest('.popup-container')))));")) "xml")) - (li (button (@ (onclick "console.log(event_from_popup(this.closest('.popup-container')))")) "this")) + ;; this.closest('.vevent').dataset['uid'] + (li (button (@ (onclick ,(format #f "console.log(vcal_objects['~a'].to_jcal())" + (prop ev 'UID)))) "js")) + (li (button (@ (onclick ,(format #f "console.log(jcal_to_xcal(vcal_objects['~a'].to_jcal()))" + (prop ev 'UID)))) "xml")) + (li (button (@ (onclick ,(format #f "console.log(vcal_objects['~a'])" + (prop ev 'UID)))) "this")) )))) )) |