diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-13 00:43:24 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-13 00:43:24 +0100 |
| commit | 145a980d8a5bac5023d000bdcbe3efa1017a1bf6 (patch) | |
| tree | b6ee166690cf9ddd3563db745ffb7d4e148b2975 | |
| parent | Start using event_from_popup everywhere. (diff) | |
| download | calp-145a980d8a5bac5023d000bdcbe3efa1017a1bf6.tar.gz calp-145a980d8a5bac5023d000bdcbe3efa1017a1bf6.tar.xz | |
Add debug button to repats tab.
| -rw-r--r-- | module/calp/html/vcomponent.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 6ebe23b9..ae8dd1e2 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -7,7 +7,7 @@ :use-module ((text util) :select (add-enumeration-punctuation)) :use-module ((web uri-query) :select (encode-query-parameters)) :use-module (calp html util) - :use-module ((calp html config) :select (edit-mode)) + :use-module ((calp html config) :select (edit-mode debug)) :use-module ((calp html components) :select (btn tabset form with-label)) :use-module ((calp util color) :select (calculate-fg-color)) :use-module ((vcomponent recurrence internal) :prefix #{rrule:}#) @@ -371,6 +371,10 @@ (define (editable-repeat-info event) `(div (@ (class "eventtext")) (h2 "Upprepningar") + ,@(when (debug) + '((button (@ (style "position:absolute;right:1ex;top:1ex") + (onclick "console.log(event_from_popup(this.closest('.popup-container')).properties.rrule.asJcal());")) + "js"))) (table (@ (class "recur-components bind") (name "rrule") (data-bindby "bind_recur")) |