;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE.
;;

(import
  (chicken fixnum)

  (only (chicken blob) string->blob)
  (only (chicken time) current-seconds)
  (chicken io)
  (only (chicken port) call-with-output-string)
  (only srfi-1 break!)

  srfi-4
  (only srfi-13 string-null? string-prefix? string-join)
  tweetnacl
  lmdb
  webview
  (only webview-content write-js))

(define rng
  (open-random-stream
   (string->blob "Not a very random stream key ;-)")
   (do ([v (make-u8vector random-stream-noncebytes)]
        [n (current-seconds) (quotient n 256)]
        [i 0 (fx+ i 1)])

               (database-fold
                (lambda (key val seed) (return val))
                #f db #:from key)))
           (and key
                (retry (substring key 0 (fx- (string-length key) 1)))))))
   #:read-only))

(define (make-fortune)
  (cond
    [(get-fortune)
     => (cut list 'pre <>)]
    [else
     '(pre ([style "text-color: grey;"]) "(nothing found)")]))

(define (inject-fortune! view)
  (webview-style-set! view "#save" "display" "none")
  (webview-html-set! view "#fortune" (make-fortune)))

(define (inject-editor! view)
  (webview-style-set! view "#save" "display" "inline")
  (webview-html-set! view "#fortune"
   '(textarea ([cols "72"] [rows "16"] [wrap "off"] [style "font-family: monospace;"]))))

(define (make-invocation name #!optional selector)
  (call-with-output-string
   (lambda (port)
     (display "window.external.invoke(" port)
     (write-js name port)
     (when selector
       (display "+document.querySelector(" port)
       (write-js selector port)
       (display ").value" port))
     (display #\) port))))

(define (inject-app! view)
  (webview-html-set! view "#app"
  `(begin
     (div ([class "toolbar"])
        (button ([type "button"] [onclick ,(make-invocation "random")])
         "Random")
        (button ([type "button"] [onclick ,(make-invocation "add-file")])
         "Add File…")
        (button ([type "button"] [onclick ,(make-invocation "edit")])
         "New…")
        (button ([type "button"] [onclick ,(make-invocation "save:" "#fortune textarea")]
                 [id "save"] [style "display: none;"])
         "Save"))
     (div ([class "content"])
       (code ([id "fortune"])
          ,(make-fortune))))))

(define (on-add-file view)
  (and-let* ([p (webview-dialog view "Add File" #:open)]
             [n (add-fortunes-file! p)])
    (webview-dialog
     view "Add File" #:info
     (string-append (number->string n) " fortunes added"))))

(webview
 "Fortune"
 (lambda (view msg)
   (cond
     [(string=? "load" msg)
      (inject-app! view)]
     [(string=? "random" msg)
      (inject-fortune! view)]
     [(string=? "add-file" msg)


      (on-add-file view)]


     [(string=? "edit" msg)
      (inject-editor! view)]
     [(string-prefix? "save:" msg)
      (add-fortune! (substring msg 5))
      (inject-fortune! view)]
     [else
      (webview-log (string-append "Unknown Message: " msg))]))
 #:width 640 #:height 320)

(close-database-environment)

;; vim: set ai et ts=4 sts=2 sw=2 ft=scheme: ;;

  (unless (zero?
           ((foreign-safe-lambda
             int "webview_eval"
             nonnull-webview nonnull-c-string)
            view script))
    (error 'webview-eval "JavaScript evaluation failed")))

(define (webview-style-set! view selector property value #!optional [priority ""])
  (webview-eval
   view
   (call-with-output-string
    (lambda (port)
      (display "Array.prototype.forEach.call(document.querySelectorAll(" port)
      (write-js selector port)
      (display "),function(it){it.style.setProperty(" port)
      (write-js property port)
      (display #\, port)
      (write-js value port)
      (display #\, port)
      (write-js priority port)
      (display ")})" port)))))

(define (webview-style-delete! view selector property)
  (webview-eval
   view
   (call-with-output-string
    (lambda (port)
      (display "Array.prototype.forEach.call(document.querySelectorAll(" port)
      (write-js selector port)
      (display "),function(it){it.style.removeProperty(" port)
      (write-js property port)
      (display ")})" port)))))

(define (webview-html-set! view selector html #!optional [outer? #f])
  (webview-eval
   view
   (call-with-output-string
    (lambda (port)
      (display "document.querySelector(" port)
      (write-js selector port)
      (display ")." port)
      (display (if outer? "outer" "inner") port)
      (display "HTML=" port)
      (write-js
       (call-with-output-string (cut write-html html <>))
       port)))))

(define (webview-html-delete! view selector #!optional [outer? #f])
  (webview-eval
   view
   (call-with-output-string
    (lambda (port)
      (display "(function(it){" port)
      (display
        (if outer?
          "it.parentNode.removeChild(it)"
          "while(it.firstChild){it.removeChild(it.firstChild)}")
        port)
      (display "})(document.querySelector(" port)
      (write-js selector port)
      (display "))" port)))))

(define (webview-dialog view title type #!optional value)
  (let ([type
         (case type
           [(#:open #:open-directory)
            (foreign-value "WEBVIEW_DIALOG_TYPE_OPEN" int)]
           [(#:save)

  (include 
    "content.scm"))

(module webview
  (webview?
   webview webview-terminate!
   webview-title-set! webview-fullscreen-set!
   webview-eval
   webview-style-set! webview-style-delete!
   webview-html-set! webview-html-delete!
   webview-dialog webview-log)
  (import
    scheme
    (chicken base)
    (chicken condition)
    (chicken fixnum)
    (chicken bitwise)
    (chicken foreign)

  (webview-eval WEBVIEW SCRIPT) ⇒ VOID
</nowiki></tt></h3>

Asynchronously triggers evaluation of the given <tt>SCRIPT</tt> code in
the context of the page displayed by the given <tt>WEBVIEW</tt>.

<h3><tt><nowiki>
  (webview-style-set! WEBVIEW SELECTOR PROPERTY VALUE [PRIORITY]) ⇒ VOID
</nowiki></tt></h3>

Asynchronously triggers a style modification of all DOM elements matching the
given <tt>SELECTOR</tt> on the page displayed by the given <tt>WEBVIEW</tt>.
The given style <tt>PROPERTY</tt> is set to the given <tt>VALUE</tt> for the
selected elements, optionally specifying a <tt>PRIORITY</tt> other than the
default.

<h3><tt><nowiki>
  (webview-style-set! WEBVIEW SELECTOR PROPERTY VALUE [PRIORITY]) ⇒ VOID
</nowiki></tt></h3>

Asynchronously triggers a style modification of all DOM elements matching the given
<tt>SELECTOR</tt> on the page displayed by the given <tt>WEBVIEW</tt>. The
given style <tt>PROPERTY</tt> is removed from the selected elements.

<h3><tt><nowiki>
  (webview-html-set! WEBVIEW SELECTOR HTML [OUTER?]) ⇒ VOID
</nowiki></tt></h3>

Asynchronously triggers replacement of the first DOM element matching the given
<tt>SELECTOR</tt> on the page displayed by the given <tt>WEBVIEW</tt> with the
given <tt>HTML</tt> content.

<tt>HTML</tt> content is specified in the form accepted by
<tt>write-html</tt>.

If <tt>OUTER?</tt> is <tt>#f</tt> or not given, only the <em>contents</em> of
the specified element are replaced, otherwise the entire element is replaced.

<h3><tt><nowiki>
  (webview-html-delete! WEBVIEW SELECTOR [OUTER?]) ⇒ VOID
</nowiki></tt></h3>

Asynchronously triggers removal of the first DOM element matching the given
<tt>SELECTOR</tt> from the page displayed by the given <tt>WEBVIEW</tt>.

If <tt>OUTER?</tt> is <tt>#f</tt> or not given, only the <em>contents</em> of
the specified element are removed, otherwise the entire element is deleted.

<h2>Dialogs</h2>

<h3><tt><nowiki>
  (webview-dialog WEBVIEW TITLE TYPE [VALUE]) ⇒ VALUE
</nowiki></tt></h3>