(in-package :ps_translator)

(macros 
  (getOffset (el) `($ (,el) (offset) top)))

(def-event document ready ()
  (def-event ".link-header, .feed-header" click ()
    ($ (".menu") (add-class "open")) t)

  (def-event ".link-header" click ()

    ($each (this (siblings ".link-content"))
      (if (= ($this (css "max-height")) "0px")

        (let ((added-height ($this (children) (outer-height)))
              (parent-height ($this (parents ".post-list") (css "max-height"))))
          ($this (css "max-height" added-height))

          ($this (parents ".post-list")
                 (css "max-height" (+ added-height parent-height))))

        ($this (css "max-height" "0px"))))
    ($this (parent) (toggle-class "closed")))

  (def-event ".feed-header" click ()
    ($each (this (siblings ".post-list"))
      (if (= ($this (css "max-height")) "0px")
        ($this (css "max-height" (@ this scroll-height)))
        ($this (css "max-height" "0px"))))
    ($this (parent) (toggle-class "closed")))

  (def-event ".flip-button" click ()
    (let* ((style-sheet ($ ("link[href^=\"/theme\"]")))
           (style-sheet-name (chain style-sheet (attr "href"))))
      (chain style-sheet
             (attr "href"
                   (if (chain style-sheet-name (match (regex |dark|)))
                     (chain style-sheet-name (replace (regex |dark|) "light"))
                     (chain style-sheet-name (replace (regex |light|) "dark")))))))
  nil)

; vim: set ft=lisp :