@@ -5,15 +5,18 @@

   :author "Ed L <(format nil \"~a@~a\" \"el-projects\" \"howit.is\")>"

   :license "2=Clause BSD"

   :depends-on (:drakma

-               :ningle

-               :clack

-               :cljwt

-               :cl-json

-               :anaphora

-               :alexandria

-               :lack-middleware-session

-               :sheeple

-               :cl-who)

+                :ningle

+                :clack

+                :cljwt

+                :cl-json

+                :anaphora

+                :alexandria

+                :lack-middleware-session

+                :sheeple

+                :lass

+                :lquery

+                :plump

+                :cl-who)

   :serial t

   :components ((:file "package")

                (:file "cl-oid-connect")))

@@ -33,7 +33,6 @@

 |#

 (in-package :cl-oid-connect)

-(declaim (optimize (debug 2)))

 ; Should this be here?

 (defparameter *oid* (make-instance 'ningle:<app>))

 (setf drakma:*text-content-types* (cons '("application" . "json") drakma:*text-content-types*))

@@ -59,6 +58,10 @@

 ; goog is well behaved

 (defparameter *goog-endpoint-schema* (defobject (=endpoint-schema= *goog-info*)))

+(defun get-base-url (request) (format nil "~a//~a/oidc_callback"

+                                      (lack.request:request-query-parameters)

+                                      ))

+

 ; fbook needs personal attention

 (defproto *fbook-endpoint-schema* (=endpoint-schema= *fbook-info*)

           ((auth-endpoint "https://www.facebook.com/dialog/oauth")

@@ -190,14 +193,15 @@

 (defun oauth2-login-middleware (&key google-info facebook-info)

-  (lambda (app)

-    (in-package :cl-oid-connect)

-    (load-facebook-info facebook-info)

-    (load-goog-endpoint-schema)

-    (load-google-info google-info)

+  (let ((clack-env nil))

+    (lambda (app)

+      (in-package :cl-oid-connect)

+      (load-facebook-info facebook-info)

+      (load-goog-endpoint-schema)

+      (load-google-info google-info)

     (def-route ("/login/google" (params) :app app)

-      (with-session (cl-oid-connect:session)

+      (with-context-variables (session)

         (let ((state (gen-state 36)))

           (setf (gethash :state session) state)

           (with-endpoints *goog-endpoint-schema*

@@ -224,7 +228,7 @@

       (let ((received-state (cdr (string-assoc "state" params)))

             (code (cdr (string-assoc "code" params))))

         (check-state received-state

-                     (with-session (cl-oid-connect:session)

+                     (with-context-variables (session)

                        (with-endpoints *goog-endpoint-schema*

                          (let* ((a-t (get-access-token *goog-endpoint-schema* code))

                                 (id-token (assoc-cdr :id--token a-t))

@@ -239,7 +243,7 @@

             (code (cdr (string-assoc "code" params))))

         (with-endpoints *fbook-endpoint-schema*

           (check-state received-state

-                       (with-session (session)

+                       (with-context-variables (session)

                          (let* ((a-t (get-access-token *fbook-endpoint-schema* code))

                                 (id-token (assoc-cdr :access--token a-t)))

                            (setf (gethash :userinfo session) (get-user-info *fbook-endpoint-schema* id-token))

@@ -247,17 +251,17 @@

                        '(403 '() "Out, vile imposter!")))))

     (def-route ("/userinfo.json" (params) :app app)

-      (with-session (session)

+      (with-context-variables (session)

         (require-login 

           (with-endpoints  (gethash :endpoint-schema session)

             (cl-json:encode-json-to-string (gethash :userinfo session))))))

     (def-route ("/logout" (params) :app app)

-      (with-session (session)

+      (with-context-variables (session)

         (setf (gethash :userinfo session) nil)

         '(302 (:location "/"))))

-    app))

+    app)))

 (defmacro redirect-if-necessary (sessionvar &body body)

@@ -273,41 +277,3 @@

 (export '(redirect-if-necessary def-route require-login))

 (export '(oauth2-login-middleware with-session))

-

-(in-package :cl-user)

-

-(defparameter *app* (make-instance 'ningle:<app>))

-

-(cl-oid-connect:def-route ("/login" (params) :app *app*)

-  (cl-who:with-html-output-to-string (s)

-    (:html

-      (:head

-        (:title "Login"))

-      (:body

-        (:div (:a :href "/login/facebook" "Facebook"))

-        (:div (:a :href "/login/google" "Google")))))) 

-

-(defvar *smession* nil)

-

-(cl-oid-connect:def-route ("/" (params) :app *app*)

-  (cl-oid-connect:with-session (*smession*)

-    (cl-oid-connect:redirect-if-necessary *smession*

-      (cl-oid-connect:require-login 

-        (anaphora:sunless (gethash :counter *smession*) (setf anaphora:it 0))

-        (incf (gethash :counter *smession*))

-        (format nil "~Ath visit<br/>~a<br/><br/>~S<br/>"

-                (gethash :counter *smession*)

-                (alexandria:hash-table-alist *smession*)

-                (alexandria:hash-table-alist (ningle:context :session)))))))

-

-(setf *handler* (clack:clackup (lack.builder:builder

-                                 :backtrace

-                                 :session

-                                 (funcall

-                                   (cl-oid-connect:oauth2-login-middleware

-                                     :facebook-info

-                                      (truename "/home/edwlan/github_repos/cl-oid-connect/facebook-secrets.json") 

-                                     :google-info

-                                     (truename "/home/edwlan/github_repos/cl-oid-connect/google-secrets.json"))

-                                   *app*)) :port 9090))

-

new file mode 100644

@@ -0,0 +1,346 @@

+(in-package :cl-user)

+(ql:quickload :cl-oid-connect)

+(ql:quickload :plump)

+(ql:quickload :cl-markup)

+

+(push (cons "application" "rdf+xml") drakma:*text-content-types*)

+

+(defparameter *app* (make-instance 'ningle:<app>))

+

+(defclass rss-feed ()

+  ((feed :accessor rss-feed-feed

+         :initarg :feed)

+   (channel :accessor rss-feed-channel)

+   (title :accessor rss-feed-title)

+   (link :accessor rss-feed-link)

+   (description :accessor rss-feed-description)

+   (items :accessor rss-feed-items)))

+

+(defclass rss-item ()

+  ((item :accessor rss-item-item  :initarg :item)

+   (title :accessor rss-item-title)

+   (link :accessor rss-item-link)

+   (description-raw :accessor rss-item-description-raw)

+   (description :accessor rss-item-description)

+   (category :accessor rss-item-category)

+   (comments :accessor rss-item-comments)

+   (enclosure :accessor rss-item-enclosure)

+   (guid :accessor rss-item-guid)

+   (pub-date :accessor rss-item-pub-date)

+   (source :accessor rss-item-source)))

+

+(defmacro get-elements (feed &optional (filter nil))

+  (let ((feed-sym (gensym))

+        (filter-lis `(lambda (x) (and (plump-dom:element-p x) ,@(loop for x in filter

+                                                                      collect `(funcall ,x x))))))

+    `(let ((,feed-sym ,feed))

+       (remove-if-not ,filter-lis (plump:children ,feed-sym)))))

+

+(defmacro get-elements-by-tagname (feed tagname)

+  `(get-elements ,feed ((lambda (x) (string= ,tagname (plump:tag-name x))))))

+

+(defmacro extract-text (selector &optional (default ""))

+  (alexandria:with-gensyms (selector-s)

+    `(let ((,selector-s ,selector))

+       (if (not (equalp #() (lquery:$ ,selector-s)))

+         (lquery:$ ,selector-s (text) (node))

+         ,default))))

+

+(defun make-rss-item (item)

+  (lquery:initialize item)

+  (flet ((dehtml (h) (plump:text (plump:parse h)))

+         (get-category-names (it) ;;; TODO: simplify this---Ask Shinmera on IRC

+           (if (not (equalp #() it))

+             (map 'vector

+                  (lambda (x) (plump:text (elt (plump:children x) 0)))

+                  it)

+             #())))

+    (let* ((result (make-instance 'rss-item :item item))

+           (title (extract-text "title"))

+           (link (extract-text "link"))

+           (description-raw (let ((plump:*html-tags*)

+                                  (ss (make-string-output-stream)))

+                              (plump:serialize 

+                                (plump:parse (extract-text "description"))

+                                ss)

+                              (get-output-stream-string ss)))

+           (description-munged (dehtml (extract-text "description")))

+           (category (get-category-names (lquery:$ "category")))

+           ;(comments)

+           ;(enclosure)

+           (guid (extract-text "aaguid"))

+           (pub-date (extract-text "pubDate"))

+           (source (extract-text "source")))

+      (setf (rss-item-title result) title)

+      (setf (rss-item-link result) link)

+      (setf (rss-item-description-raw result) description-raw)

+      (setf (rss-item-description result) description-munged)

+      (setf (rss-item-category result) category)

+      ;(setf (rss-item-comments result) comment)

+      ;(setf (rss-item-enclosure result) enclosur)

+      (setf (rss-item-guid result) guid)

+      (setf (rss-item-pub-date result) pub-date)

+      (setf (rss-item-source result) source)

+      result)))

+

+(defun make-rss-feed (feed)

+  (lquery:initialize feed)

+  (let* ((result (make-instance 'rss-feed :feed feed))

+         (channel (lquery:$ "channel" (text) (node)))

+         (title (lquery:$  "title" (text) (node)))

+         (link (lquery:$ "link" (text) (node)))

+         (description (lquery:$ "description" (text) (node)))

+         (items (lquery:$ "item")))

+    (setf (rss-feed-channel result) channel)

+    (setf (rss-feed-title result) title)

+    (setf (rss-feed-link result) link)

+    (setf (rss-feed-description result) description)

+    (setf (rss-feed-items result)

+          (loop for it across items

+                collect (make-rss-item it)))

+    result))

+

+

+(cl-oid-connect:def-route ("/login" (params) :app *app*)

+  (cl-who:with-html-output-to-string (s)

+    (:html

+      (:head (:title "Login"))

+      (:body

+        (:div

+          :class "login-button facebook"

+          (:a :href "/login/facebook" "Facebook"))

+        (:div

+          :class "login-button google"

+          (:a :href "/login/google" "Google")))))) 

+

+(defparameter *feed-urls*

+  #(

+    "http://www.reddit.com/r/lisp.rss"

+    "http://www.reddit.com/r/scheme.rss"

+    "http://www.reddit.com/r/prolog.rss"

+    "http://www.reddit.com/r/haskell.rss"

+    "http://www.reddit.com/r/roguelikedev.rss"

+    "http://www.reddit.com/r/roguelikes.rss"

+    "http://www.reddit.com/r/talesfromtechsupport.rss"

+    ))

+

+(let

+  ((plump-parser:*tag-dispatchers* plump-parser:*xml-tags*))

+  (defparameter *docs* (map 'vector

+                            (lambda (x) 

+                              (format t "~a~%" x)

+                              (unwind-protect (plump-parser:parse

+                                                (drakma:http-request x))))

+                            *feed-urls*)))

+

+(defparameter *feeds* (map 'vector (lambda (x) (unwind-protect (make-rss-feed x))) *docs*))

+

+(defclass colorscheme ()

+  ((background :accessor colorscheme-background :initform "#002b36")

+   (foreground :accessor colorscheme-foreground :initform "#839496")

+   (accent     :accessor colorscheme-accent     :initform "#586e75" )

+   (base03     :accessor colorscheme-base03      :initform "#002b36")

+   (base02     :accessor colorscheme-base02      :initform "#073642")

+   (base01     :accessor colorscheme-base01      :initform "#586e75")

+   (base00     :accessor colorscheme-base00      :initform "#657b83")

+   (base0      :accessor colorscheme-base0       :initform "#839496")

+   (base1      :accessor colorscheme-base1       :initform "#93a1a1")

+   (base2      :accessor colorscheme-base2       :initform "#eee8d5")

+   (base3      :accessor colorscheme-base3       :initform "#fdf6e3")

+   (yellow     :accessor colorscheme-yellow      :initform "#b58900")

+   (orange     :accessor colorscheme-orange      :initform "#cb4b16")

+   (red        :accessor colorscheme-red         :initform "#dc322f")

+   (magenta    :accessor colorscheme-magenta     :initform "#d33682")

+   (violet     :accessor colorscheme-violet      :initform "#6c71c4")

+   (blue       :accessor colorscheme-blue        :initform "#268bd2")

+   (cyan       :accessor colorscheme-cyan        :initform "#2aa198")

+   (green      :accessor colorscheme-green       :initform "#859900")))

+

+(defgeneric accentize (colorscheme accent)) 

+(defmethod accentize ((colorscheme colorscheme) accent)

+  (setf (colorscheme-accent colorscheme) (funcall accent colorscheme)))

+

+(defgeneric rebase (colorscheme))

+(defmethod rebase ((colorscheme colorscheme))

+  (macrolet

+    ((swap-color (obj slot color1 color2)

+       `(setf (,slot ,obj)

+             (if (string= (,slot ,obj) (,color1 ,obj))

+               (,color2 ,obj)

+               (,color1 ,obj)))))

+    ; Note that swap-color doesn't use gensyms: so don't run functions in invocation

+    (swap-color colorscheme colorscheme-foreground colorscheme-base0 colorscheme-base0)

+    (swap-color colorscheme colorscheme-accent colorscheme-base1 colorscheme-base01)

+    (swap-color colorscheme colorscheme-background colorscheme-base3 colorscheme-base03)

+    colorscheme))

+

+

+(defparameter *colorscheme* (make-instance 'colorscheme))

+(rebase *colorscheme*)

+(accentize *colorscheme* #'colorscheme-blue)

+

+;rebase  $base3, $base2, $base1, $base0,$base00,$base01,$base02,$base03

+;rebase $base03,$base02,$base01,$base00 ,$base0 ,$base1 ,$base2 ,$base3

+

+

+(cl-oid-connect:def-route ("/" (params) :app *app*)

+  (flet ((combine-unit-q (quant unit) (format nil "~d~a" quant unit)))

+    (let* ((header-height 10)

+           (height-units "vh")

+           (ss (lass:compile-and-write

+                 `(* :color ,(colorscheme-foreground *colorscheme*))

+

+                 `(body :background-color ,(colorscheme-background *colorscheme*))

+

+                 `((:or h1 h2 h3 h4 h5 h6) :color ,(colorscheme-accent *colorscheme*))

+

+                 `(header

+                    :border-bottom "thin" "solid" ,(colorscheme-foreground *colorscheme*)

+                    :height ,(combine-unit-q header-height height-units)

+                    :font-size ,(combine-unit-q (* 0.75 header-height) height-units)

+                    :line-height ,(combine-unit-q header-height height-units))

+

+                 `((:or a (:and a :visited) (:and a :active) code.url)

+                   :color ,(colorscheme-accent *colorscheme*))

+

+                 `(section#sidebar

+                    ((ul.menu li a)

+                     ((+ a)

+                      :border-top "thin" "solid" ,(colorscheme-accent *colorscheme*))

+                     ((:and li :hover)

+                      :background-color ,(colorscheme-foreground *colorscheme*)

+                      :color ,(colorscheme-background *colorscheme*))))

+

+                 `(.feed :border thin solid ,(colorscheme-foreground *colorscheme*))

+                 `(.link

+                    :border-top thin solid ,(colorscheme-foreground *colorscheme*)

+                    :border-bottom thin solid ,(colorscheme-foreground *colorscheme*)

+

+                    (.link-info

+                      :background ,(colorscheme-foreground *colorscheme*)

+                      :color ,(colorscheme-background *colorscheme*)

+                      :border "thin" "solid" ,(colorscheme-foreground *colorscheme*)

+

+                      (.link-url 

+                        ;:color ,(colorscheme-cyan *colorscheme*)

+                        :color ,(colorscheme-background *colorscheme*))

+                      (.link-date

+                        :color ,(colorscheme-background *colorscheme*)))))))

+

+      `(200 (:content-type "text/css") ,ss))))

+

+(defmacro item-markup (item)

+  (alexandria:with-gensyms (item-s)

+    `(let ((,item-s ,item))

+       (cl-markup:markup

+         (:li :class "link closed"

+          (:section :class "link-header"

+           (:h4 (rss-item-title ,item-s))

+           (:p :class "link-info"

+            (:a :target "_blank" :href (rss-item-link ,item-s)

+             (:span :class "link-url" (rss-item-link ,item-s)))

+            (:span :class "link-date") (rss-item-pub-date ,item-s)))

+          (:section :class "link-content"

+           (cl-markup:raw (rss-item-description-raw ,item-s))))))))

+

+(defmacro feed-markup (feed-v fc-v)

+  (alexandria:with-gensyms (feed fc)

+    `(let ((,feed ,feed-v)

+           (,fc ,fc-v))

+       (cl-markup:markup

+         (:section :class "feed" :id (format nil "feed-~a" ,fc)

+          (:section :class "feed-header"

+           (:h2 (rss-feed-title ,feed))

+           (:h3 (rss-feed-description ,feed))) 

+          (:ul :class "post-list"

+           (loop for item in (rss-feed-items ,feed)

+                 collect (item-markup item))))))))

+

+(defmacro feedlist-markup (feedlist-v)

+  (alexandria:with-gensyms (feedlist)

+    `(let ((,feedlist ,feedlist-v))

+       (cl-markup:markup*

+         `(:ul :class "menu"

+           ,@(loop for feed across ,feedlist

+                   count feed into feed-count

+                   collect

+                   (list :li

+                         (list :a

+                               :href (format nil "#feed-~a" feed-count)

+                               (rss-feed-title feed)))))))))

+

+(defmacro base-template ()

+  `(cl-markup:html5

+     (:head

+       (:title "My Feeds")

+       (:script :src "https://code.jquery.com/jquery-2.1.4.min.js" :type "text/javascript" "")

+       (:script :src "/static/js/fold.js" :type "text/javascript" "")

+       (:link :rel "stylesheet" :href "/static/css/main.css")

+       (:link :rel "stylesheet" :href "/theme.css"))

+     (:body

+       (:header

+         (:h1 "Worricow"))

+       (:section :id "content"

+        (:section :id "sidebar"

+         (cl-markup:raw (feedlist-markup *feeds*)))

+        (:main

+          (loop for feed across *feeds*

+                count feed into feed-count

+                collect

+                (feed-markup feed feed-count))))

+       (:footer))))

+

+(defun base-template-f () (base-template))

+

+;(cl-oid-connect:def-route ("/" (params) :app *app*)

+;  (ningle:with-context-variables (session)

+;    (cl-oid-connect:redirect-if-necessary session

+;      (cl-oid-connect:require-login 

+;        (anaphora:sunless (gethash :counter session) (setf anaphora:it 0))

+;        (incf (gethash :counter session))

+;        (format nil "~Ath visit<br/>~a<br/><br/>"

+;                (gethash :counter session))))))

+

+

+(cl-oid-connect:def-route ("/feeds/:feeds/html" (params) :app *app*)

+  (ningle.context:with-context-variables (session)

+    (cl-oid-connect:require-login

+      (let* ((feedlist-s (cdr (assoc :feeds params)))

+             (feedlist (mapcar #'parse-integer (split-sequence:split-sequence #\SPACE feedlist-s)))

+             (*feeds* (gethash :feeds session *feeds*))

+             (*feeds* (make-array (list (length feedlist))

+                                  :initial-contents (loop for x in feedlist

+                                                          collect (elt *feeds* x)))))

+        (base-template-f)))))

+

+(cl-oid-connect:def-route ("/" (params) :app *app*)

+  (ningle.context:with-context-variables (session)

+    (cl-oid-connect:require-login

+      (cl-oid-connect:require-login 

+        (let ((*feeds* (gethash :feeds session *feeds*)))

+          (base-template-f))))))

+

+(defvar *handler* nil)

+

+

+(defun start (tmp)

+  (let ((server (if (> (length tmp) 1)

+                  (intern (string-upcase (elt tmp 1)) 'keyword)

+                  :hunchentoot)))

+   (push (clack:clackup

+          (lack.builder:builder

+            :backtrace

+            :session

+            :csrf

+            (:static :path "/static/" :root #p"./static/")

+            (funcall

+              (cl-oid-connect:oauth2-login-middleware

+                :facebook-info (truename "~/github_repos/cl-oid-connect/facebook-secrets.json") 

+                :google-info (truename "~/github_repos/cl-oid-connect/google-secrets.json"))

+              *app*)) :port 9090 :server server)

+        *handler*))

+  (loop (mp:process-wait))

+  )

+

+

+

new file mode 100644

@@ -0,0 +1,106 @@

+(:import "url(https://fonts.googleapis.com/css?family=Lato:400,100,300,400italic,300italic,700,700italic,900&subset=latin,latin-ext)")

+(:import "url(https://fonts.googleapis.com/css?family=Caudex)")

+

+(*

+  :box-sizing "border-box"

+  :margin "0px"

+  :padding "0px"

+  :font-family "Lato")

+

+((:or ul ol)

+ :list-style "none")

+

+((:or h1 h2)

+ :font-size "153.9%")

+(:h3

+  :font-size "146.5%")

+((:or h4 h5 h6)

+ :font-size "138.5%")

+

+(((:or ul) + (:or h1 h2 h3 h4 h5 h6))

+ :width "initial")

+

+(header

+  :color "white"

+  (h1

+    :font-family "Caudex"

+    :font-size inherit

+    :margin-top "0em"

+    :padding-left "1em"

+    :font-weight 200))

+

+(section#sidebar

+  :width "20vw"

+  :height "90vh"

+  :position "fixed"

+  :overflow "auto"

+  (ul.menu

+    :text-align right

+    :font-variant small-cap

+    (li

+      (a

+        :width "100%"

+        :display block

+        :padding "1em"

+        :color inherit

+        :text-decoration none

+        :font-weight 700

+        :font-size "125%"

+        ))))

+

+(main

+  :padding-right "20vw"

+  :width "80vw"

+  :height "90vh"

+  :float "right"

+  :clear "right"

+  :overflow "auto")

+

+(.feed-header

+  :padding "1em"

+  :padding-bottom "0em")

+

+((:and .link :before)

+ :content "-")

+

+((:and .link.closed :before)

+ :content "+")

+

+((.link.closed .link-content) 

+  :max-height "0px"

+  :padding "0em")  

+

+(.link

+  :text-decoration none

+  :display block

+  :padding "1em"

+  :padding-bottom "0em"

+  :overflow hidden

+  :font-size "0.8em"

+  (.link-header

+    :cursor pointer

+    (h4

+      :margin-bottom "0.5em"

+      :display "inline-block")) 

+  (.link-info

+    :margin-left "-1em"

+    :margin-right "-1em"

+    :padding-left "1em"

+    :padding-right "1em"

+    (.link-url 

+      :float "left"

+      )

+    (.link-date

+      :float "right"

+      :display block))

+  ((:and .link-info :after)

+   :content "\" \""

+   :display block

+   :clear both)

+  (.link-content

+    :transition "max-height 0.2s ease"))

+

+(.feed

+  :overflow "hidden"

+  )

+

@@ -12,6 +12,9 @@

     #:drakma

     ;#:lack-middleware-session

     #:ningle

+    #:lass

+    #:lquery

+    #:plump

     #:sheeple)

   (:export

     #:redirect-if-necessary

new file mode 100644

@@ -0,0 +1,17 @@

+(chain ($ document)

+       (ready

+         (lambda ()

+           (chain ($ ".link-header")

+                  (click

+                    (lambda ()

+                      (chain ($ this)

+                             (siblings ".link-content")

+                             (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"))))))))

new file mode 100644

@@ -0,0 +1 @@

+@import url(https://fonts.googleapis.com/css?family=Lato:400,100,300,400italic,300italic,700,700italic,900&subset=latin,latin-ext);@import url(https://fonts.googleapis.com/css?family=Caudex);*{box-sizing:border-box;margin:0px;padding:0px;font-family:Lato;}ul,ol{list-style:none;}h1,h2{font-size:153.9%;}:h3{font-size:146.5%;}h4,h5,h6{font-size:138.5%;}ul + h1,ul + h2,ul + h3,ul + h4,ul + h5,ul + h6{width:initial;}header{color:white;}header h1{font-family:Caudex;font-size:inherit;margin-top:0em;padding-left:1em;font-weight:200;}section#sidebar{width:20vw;height:90vh;position:fixed;overflow:auto;}section#sidebar ul.menu{text-align:right;font-variant:small-cap;}section#sidebar ul.menu li a{width:100%;display:block;padding:1em;color:inherit;text-decoration:none;font-weight:700;font-size:125%;}main{padding-right:20vw;width:80vw;height:90vh;float:right;clear:right;overflow:auto;}.feed-header{padding:1em;padding-bottom:0em;}.link:before{content:-;}.link.closed:before{content:+;}.link.closed .link-content{max-height:0px;padding:0em;}.link{text-decoration:none;display:block;padding:1em;padding-bottom:0em;overflow:hidden;font-size:0.8em;}.link .link-header{cursor:pointer;}.link .link-header h4{margin-bottom:0.5em;display:inline-block;}.link .link-info{margin-left:-1em;margin-right:-1em;padding-left:1em;padding-right:1em;}.link .link-info .link-url{float:left;}.link .link-info .link-date{float:right;display:block;}.link .link-info:after{content:" ";display:block;clear:both;}.link .link-content{-moz-transition:max-height 0.2s ease;-o-transition:max-height 0.2s ease;-webkit-transition:max-height 0.2s ease;-ms-transition:max-height 0.2s ease;transition:max-height 0.2s ease;}.feed{overflow:hidden;}

\ No newline at end of file

new file mode 100644

@@ -0,0 +1,9 @@

+$(document).ready(function () {

+    return $('.link-header').click(function () {

+        $(this).siblings('.link-content').each(function () {

+            return $(this).css('max-height') === '0px' ? $(this).css('max-height', this.scrollHeight) : $(this).css('max-height', '0px');

+        });

+        return $(this).parent().toggleClass('closed');

+    });

+});

+