git.fiddlerwoaroof.com
Raw Blame History
(chain ($ document)
       (ready
         (lambda ()
           (chain ($ ".link-header")
                  (click
                    (lambda ()
                      (chain ($ this)
                             (siblings ".link-content")
                             (each (lambda ()
                                     (if (= (chain ($ this) (css "max-height")) "0px")
                                       (let ((added-height (chain ($ this) (children) (outer-height)))
                                             (parent-height (chain ($ this)
                                                                   (parents ".post-list")
                                                                   (css "max-height"))))
                                         (chain ($ this) (css "max-height" added-height))
                                         (chain ($ this)
                                                (parents ".post-list")
                                                (css "max-height" (+ added-height parent-height))))
                                       (chain ($ this) (css "max-height" "0px"))))))
                      (chain ($ this) (parent) (toggle-class "closed")))))
           (chain ($ ".feed-header")
                  (click
                    (lambda ()
                      (chain ($ this)
                             (siblings ".post-list")
                             (each (lambda ()
                                     (if (= (chain ($ this) (css "max-height")) "0px")
                                       (chain ($ this) (css "max-height" (@ this scroll-height)))
                                       (chain ($ this) (css "max-height" "0px"))))))
                      (chain ($ this) (parent) (toggle-class "closed")))))
           null)))