new file mode 100644

@@ -0,0 +1 @@

+This is a simple web service for managing a moderated RSS feed of interesting links.

new file mode 100644

@@ -0,0 +1,20 @@

+;;;; lyangulus.asd

+

+(asdf:defsystem #:lyangulus

+  :description "A simple link-submission-to-rss service"

+  :author "socraticum"

+  :license "MIT"

+  :depends-on (#:alimenta

+               #:cl-oid-connect

+               #:cl-mustache

+               #:parenscript

+               #:alexandria

+               #:anaphora

+               #:ironclad

+               #:ubiquitous

+               #:ningle)

+  :serial t

+  :components ((:file "package")

+               (:file "lyangulus")))

+

+;; vim: set ft=lisp:

new file mode 100644

@@ -0,0 +1,214 @@

+(declaim (optimize (debug 3) (speed 0 ) (safety 3)) )

+;;;; lyangulus.lisp

+

+(in-package #:lyangulus)

+(defparameter *submissions* nil)

+(defparameter *by-distinct* (make-hash-table :test #'equalp))

+(defparameter *users* (make-hash-table :test #'equalp))

+

+;;; "lyangulus" goes here. Hacks and glory await!

+

+(defun current-date-string ()

+  "Returns current date as a string."

+  (multiple-value-bind (sec min hr day mon yr dow dst-p tz)

+    (get-decoded-time)

+    (declare (ignore dow dst-p))

+    (format nil "~4,'0d-~2,'0d-~2,'0d ~2,'0d:~2,'0d:~2,'0d ~2,'0d" yr mon day hr min sec tz)))

+

+

+(defclass user ()

+  ((uid :initarg :uid)

+   (email :initarg :email)

+   (name :initarg :name)

+   (moderator :initarg :moderator :initform nil)))

+

+(defun user-alist (user)

+  (with-slots (email name moderator) user

+    `(("name" . ,name)

+      ("email" . ,email)

+      ("moderator" . ,moderator))))

+

+(defclass submission ()

+  ((headline :initarg :headline :initform ""  :accessor s-headline)

+   (url      :initarg :url      :initform ""  :accessor s-url)

+   (date     :initarg :date     :initform ""  :accessor s-date)

+   (approved :initarg :approved :initform "" :accessor s-approved)))

+

+(defmethod print-object ((obj user) s)

+  (print-unreadable-object (obj s :type t :identity t)

+    (with-slots (uid email name moderator) obj

+      (format s "U: ~s E: ~s N: ~s M: ~s" uid email name moderator))))

+

+(defmethod print-object ((obj submission) s)

+  (print-unreadable-object (obj s :type t :identity t)

+    (with-slots (headline url approved) obj

+      (format s "H: ~s U: ~s A: ~s" headline url approved))))

+

+(defun make-submission (headline url &key (approved ""))

+  (make-instance 'submission :headline headline :url url :approved approved

+                 :date ))

+

+(defun submission-alist (submission)

+  `(("headline". ,(s-headline submission))

+    ("url" . ,(s-url submission))

+    ("date" . ,(s-url submission))

+    ("approved" . ,(s-approved submission))))

+

+(defun alist-submission (alist &key nil-if-exists (modify t))

+  (let* ((result (make-submission (cdr (assoc :headline alist :test #'string-equal))

+                                  (cdr (assoc :url alist :test #'string-equal))

+                                  :approved (aif (cdr (assoc :approved alist :test #'string-equal)) it "")))

+         (key (cons (s-headline result) (s-url result))))

+    (aif (gethash key *by-distinct*)

+      (progn

+        (when modify

+          (setf (s-url it) (s-url result)

+                (s-headline it) (s-headline result)))

+        (if nil-if-exists nil it))

+      (progn

+        (setf (gethash key *by-distinct*) result)

+        result))))

+

+

+(defun get-moderated (feeds)

+  (remove-if (lambda (x) (not (equal x "approved"))) feeds :key #'s-approved))

+

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

+

+(defmacro i-lambda ((&rest args) &body body)

+  `(lambda (,@args)

+     (declare (ignorable ,@args))

+     ,@body))

+

+(defun render-mustache (fn data)

+  (with-open-file (s (truename fn))

+    (let ((template (make-string (file-length s))))

+      (read-sequence template s)

+      (mustache:render* template data))))

+

+(setf (ningle:route *app* "/")

+      (i-lambda (params)

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

+           (handler-case

+             (cl-oid-connect.utils:ensure-logged-in

+               (cl-oid-connect.utils:redirect-if-necessary session

+                 (render-mustache #p"static/index.mustache.html"

+                                  `((:links . ,(mapcar #'submission-alist *submissions*))

+                                    (:user . ,(user-alist (gethash :app-user session)))))))

+             (cl-oid-connect.utils:user-not-logged-in (c) (render-mustache #p"static/index.mustache.html"

+                                                                           nil))))))

+

+(defun submit (params)

+  (awhen (alist-submission params :nil-if-exists t)

+    (format t "~s <<<" it)

+    (push it *submissions*)))

+

+(defun get-by-key (headline url)

+  (gethash (cons headline url) *by-distinct*))

+

+(setf (ningle:route *app* "/murmuro" :method :POST)

+      (i-lambda (params)

+        (sleep 0.01)

+        (submit params)

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

+

+(setf (ningle:route *app* "/curo" :method :POST)

+      (i-lambda (params)

+        (cl-oid-connect.utils:require-login

+          (alet (alist-submission params :modify nil)

+            (let ((approval (string-downcase (cdr (assoc "approved" params :test #'equalp)))))

+              (setf (s-approved it)

+                    (if (equal approval "+") "approved"

+                      (if (equal approval "-") "rejected"))))))

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

+

+(setf (ningle:route *app* "/login" :method :GET)

+      (i-lambda (params)

+        `(200 ()

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

+             (:html

+               (:head

+                 (:title "Login")

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

+              (:body

+                (:h1 "In Angulis")

+                (:div :class "login-buttons"

+                 (:a :class "facebook" :href "/login/facebook" "Login With Facebook")))))))))

+

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

+  (declare (ignore params))

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

+    (setf (gethash :userinfo session) nil)

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

+

+(defun get-feed-guid (item)

+  (with-slots (alimenta:title alimenta:link) item

+    (let ((hasher (ironclad:make-digest 'ironclad:sha256)))

+      (ironclad:update-digest hasher (ironclad:ascii-string-to-byte-array alimenta:title))

+      (ironclad:update-digest hasher (ironclad:ascii-string-to-byte-array alimenta:link))

+      (ironclad:byte-array-to-hex-string (ironclad:produce-digest hasher)))))

+

+(setf (ningle:route *app* "/feed" :method :GET)

+      (i-lambda (params)

+        (let ((feed (alimenta::make-feed :title "In Angulis" :link "http://srv2.elangley.org:9090/feed"

+                                         :description "Locus in quo sunt illi qui murmurant in angulis")))

+          (loop for submission in (reverse (get-moderated *submissions*))

+                do (alimenta::add-item-to-feed feed

+                                               :title (s-headline submission)

+                                               :link (s-url submission)

+                                               :date (current-date-string)

+                                               :next-id #'get-feed-guid

+                                               :content ""))

+          `(200 (:content-type "application/rss+xml") (,(plump:serialize (alimenta:generate-xml feed) nil))))))

+

+(setf (ningle:route *app* "/firehose" :method :GET)

+      (i-lambda (params)

+        (let ((feed (alimenta::make-feed :title "In Angulis" :link "http://srv2.elangley.org:9090/feed"

+                                         :description "Locus in quo sunt illi qui murmurant in angulis")))

+          (loop for submission in (reverse *submissions*)

+                do (alimenta::add-item-to-feed feed

+                                               :title (s-headline submission)

+                                               :link (s-url submission)

+                                               :date (current-date-string)

+                                               :next-id #'get-feed-guid

+                                               :content ""))

+          `(200 (:content-type "application/rss+xml") (,(plump:serialize (alimenta:generate-xml feed) nil))))))

+

+(cl-oid-connect::setup-oid-connect *app* (userinfo &rest args)

+  (declare (ignore args))

+  (let ((id (cdr (assoc :id userinfo))))

+    (unless (gethash id *users*)

+      (setf (gethash id *users*)

+            (alet (make-instance 'user)

+              (with-slots (uid name email) it

+                (prog1 it

+                  (setf uid id

+                        name (cdr (assoc :name userinfo))

+                        email (cdr (assoc :email userinfo))))))))

+    (gethash id *users*)))

+

+(let ((handler nil))

+  (ubiquitous:restore :whitespace)

+  (defun stop () (clack:stop (pop handler)))

+

+  (defun start (&optional tmp)

+    (cl-oid-connect:initialize-oid-connect

+      (ubiquitous:value 'facebook 'secrets)

+      (ubiquitous:value 'google 'secrets))

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

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

+                    :hunchentoot)))

+      (push (clack:clackup

+              (lack.builder:builder

+                :session

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

+                :backtrace

+                *app*

+                )

+              :port 9090

+              :server server)

+            handler)))

+

+  (defun restart-clack ()

+    (do () ((null handler)) (stop))

+    (start)))

new file mode 100644

@@ -0,0 +1,5 @@

+;;;; package.lisp

+

+(defpackage #:lyangulus

+  (:use #:cl #:anaphora))

+

new file mode 100644

@@ -0,0 +1,65 @@

+@import url(https://fonts.googleapis.com/css?family=Alegreya+Sans+SC|MedievalSharp&subset=latin,latin-ext);

+

+* {

+  box-sizing: border-box;

+  margin: 0px;

+  padding: 0px;

+  -webkit-font-feature-settings: 'kern' 1, 'liga' 1;

+  -moz-font-feature-settings: 'kern' 1;

+  -o-font-feature-settings: 'kern' 1;

+  text-rendering: geometricPrecision;

+  transition: color 0.2s ease-in-out,

+              background-color 0.2s ease-in-out;

+}

+

+body {

+  position: relative;

+  font-size: 14px;

+  font-family: 'Alegreya Sans SC', sans-serif;

+  padding-bottom: 6em;

+}

+

+h1 {

+  letter-spacing: 6px;

+  padding: 0.5em;

+  margin: 0px;

+  margin-top: 0.5em;

+  margin-bottom: 1em;

+  font-size: 3em;

+  background: white;

+  width: 100%;

+  z-index: 100;

+  text-align: center;

+  font-variant: small-caps;

+  font-family: 'MedievalSharp'

+}

+

+

+.login-buttons {

+  text-align: center;

+}

+

+.login-buttons a.facebook {

+  border: 3px double #888;

+  font-size: 1.5em;

+  padding: 1em;

+  display: inline-block;

+  text-decoration: none;

+  color: white;

+  text-shadow: 0em 0em 0.1em black;

+

+  background-image: url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAIAAABUCAMAAACfvxb8AAAAeFBMVEVOaaJMZ6FIZJ89W5lBXps8WplDYJxNaKFKZqBGYp5HY54/XJpCX5xFYZ07WZg+XJpLZqBAXZtJZZ9EYZ1NaKI8Wpg9WplMaKFNaaJJZJ9LZ6FEYJ1FYp1DX5xAXptJZaBAXZo+W5k+W5pKZaBGY55LZ6A8WZg/XZpJqQD4AAAAVklEQVR4Xk3CBQoDABADwU3d3d37/x8WAqEHI/jboZV1Y2sqDuiNZtaLJ7qihe1RoxjEC/XjhMaxtCPqxBmNolVc0Nxu6IuGMbUHuqNmsbF2rO2DJhg/RwEE6AR0V3kAAAAASUVORK5CYII=);

+  background-repeat: repeat-x;

+  background-size: 1px 100%;

+  background-position: 0 0;

+  background-color: #3a5795;

+

+  letter-spacing: 2px;

+  font-variant: small-caps;

+  font-weight: bold;

+}

+

+.login-button + * {

+  margin-top: 1em;

+}

+

@@ -1,6 +1,6 @@

 /*@import(url(/static/css/baseline.css));*/

 /*@import url("/css/formalize.css");*/

-@import url(https://fonts.googleapis.com/css?family=Alegreya|MedievalSharp&subset=latin,latin-ext);

+@import url(https://fonts.googleapis.com/css?family=Alegreya+Sans|MedievalSharp&subset=latin,latin-ext);

 * {

   box-sizing: border-box;

@@ -10,8 +10,7 @@

   -moz-font-feature-settings: 'kern' 1;

   -o-font-feature-settings: 'kern' 1;

   text-rendering: geometricPrecision;

-  transition: color 0.2s ease-in-out,

-              background-color 0.2s ease-in-out;

+  transition: color 0.2s ease-in-out, background-color 0.2s ease-in-out;

 }

 body {

@@ -22,6 +21,7 @@ body {

 }

 h1 {

+  letter-spacing: 6px;

   padding: 0.5em;

   margin: 0px;

   margin-top: 0.5em;

@@ -151,6 +151,8 @@ ul#submissions li + li {

 ul#submissions a {

   display: block;

+  padding: 0.75em;

+  border-radius: 0.25em;

 }

 ul#submissions li {

@@ -174,6 +176,63 @@ ul#submissions li.submission:first-child {

   margin-top: 3.33em;

 }

+li.submission a.rejected {

+  background-color: hsl(0,25%,75%);

+}

+

+li.submission a.approved {

+  background-color: hsl(120,25%,75%);

+}

+

 a { color: inherit; text-decoration: none;}

 a:visited { color: hsl(0, 50%, 25%); }

 a:active, a:hover { text-decoration: underline; }

+

+.moderation {

+  position: absolute;

+  bottom: 50%;

+  transform: translateY(50%);

+  left: -5em;

+  width: 4em;

+  background: #ddd;

+  padding: 0.2em;

+  text-align: center;

+  border-radius: 0.2em;

+}

+

+.moderation button {

+  display: inline-block;

+  width: 1.5em;

+  height: 1.5em;

+  line-height: 1.5em;

+

+}

+

+.moderation button + button {

+  margin-left: 0.2em;

+}

+

+.userinfo {

+  background-color: #eee;

+  padding: 0.2em;

+  border-radius: 0.2em;

+  border: 3px double #888;

+  position: absolute;

+  font-size: 0.9em;

+  right: 1em;

+  top: 1em;

+  text-align: center;

+}

+

+.userinfo .user {

+  font-size: 1.5em;

+}

+.userinfo .email {

+  color: #888;

+}

+body > div.userinfo > a#logout {

+  width: 100%;

+  display: block;

+  margin-top: 0.5em;

+  font-size: 1.25em;

+}

@@ -16,14 +16,20 @@

   </form>

   <ul id="submissions">

-    <li class="in-progress" v-if="newLink.headline !== undefined || newLink.url !== undefined">

+    <li class="in-progress " v-if="newLink.headline !== undefined || newLink.url !== undefined">

       <a href="#">

         <h2>{{ newLink.headline }}</h2>

         <p>{{ newLink.url }}</p>

       </a>

     </li>

     <li class="submission" v-for="link in links">

-      <a href="{{ link.url }}">

+      <div class="moderation">

+        <form action="/curo" method="POST" v-on:submit="moderate">

+          <button name="curo" value="+" type="submit">+</button>

+          <button name="curo"  value="-"    type="submit">-</button>

+        </form>

+      </div >

+      <a href="{{ link.url }}" class="{{ link.approved || '' }}">

         <h2>{{ link.headline }}</h2>

         <p>{{ link.url }}</p>

       </a>

@@ -52,11 +58,13 @@ new Vue({

     },

     links: [

     { headline: "Against the axiom of nature’s infinite precision",

-      url: "https://thomism.wordpress.com/2016/01/19/against-the-axiom-of-natures-infinite-precision/"},

+      url: "https://thomism.wordpress.com/2016/01/19/against-the-axiom-of-natures-infinite-precision/",

+      approved: "approved"},

     { headline: "The opposition between \"strongly held intuitions\" and science",

       url: "https://thomism.wordpress.com/2010/07/10/the-battle-between-strongly-held-intuitions-and-science/"},

     { headline: "Against the axiom of nature’s infinite precision",

-      url: "https://thomism.wordpress.com/2016/01/19/against-the-axiom-of-natures-infinite-precision/"},

+      url: "https://thomism.wordpress.com/2016/01/19/against-the-axiom-of-natures-infinite-precision/",

+      approved: "rejected"},

     { headline: "The opposition between \"strongly held intuitions\" and science",

       url: "https://thomism.wordpress.com/2010/07/10/the-battle-between-strongly-held-intuitions-and-science/"},

     { headline: "Against the axiom of nature’s infinite precision",

new file mode 100644

@@ -0,0 +1,77 @@

+<!DOCTYPE html>

+<html lang="en">

+  <head>

+    <meta charset="UTF-8">

+    <title>In Angulis</title>

+    <!--<link rel="stylesheet" href="/css/baseline.css">-->

+    <link rel="stylesheet" href="/static/css/main.css">

+  </head>

+  <body>

+    <h1>In Angulis</h1>

+    {{#user}}

+    <div class="userinfo">

+      <div class="user">{{name}}</div>

+      <div class="email">{{email}}</div>

+      <div class="mod">{{moderator}}</div>

+      <a id="logout" href="/logout">[Logout]</a>

+    </div>

+    {{/user}}

+    <main id="app">

+    <form action="/murmuro" id="submission" name="submission" method="POST"  v-on:submit="submit">

+      <input type="text" name="headline" placeholder="Headline" v-model="newLink.headline">

+      <input type="text" name="url" placeholder="URL" v-model="newLink.url">

+      <input type="submit" value="Go" title='Murmuro'>

+    </form>

+

+    <ul id="submissions">

+      {{#links}}

+      <li class="submission" v-for="link in links">

+        {{#user}}

+        {{#moderator}}

+        <div class="moderation">

+          <form action="/curo" method="POST">

+            <button name="approved" value="+" type="submit">+</button>

+            <button name="approved"  value="-"    type="submit">-</button>

+            <input type="hidden" name="headline" value="{{headline}}" />

+            <input type="hidden" name="url" value="{{url}}" />

+          </form>

+        </div>

+        {{/moderator}}

+        {{/user}}

+        <a href="{{ url }}" class="{{ approved }}">

+          <h2>{{ headline }}</h2>

+          <p>{{ url }}</p>

+        </a>

+      </li>

+      {{/links}}

+    </ul>

+    </main>

+

+    <script src="/static/js/jquery.js"></script>

+    <script src="/static/js/jquery.formalize.js"></script>

+<!--

+   -    <script src="/static/js/vue.js"></script>

+   -    <script type="text/javascript">

+   -new Vue({

+   -  el: '#app',

+   -

+   -  methods: {

+   -    submit: function(e) {

+   -      e.preventDefault();

+   -      this.links.unshift(0,Object.create(this.newLink));

+   -      this.newLink = {};

+   -      return false;

+   -    }

+   -  },

+   -

+   -  data: {

+   -    newLink: {

+   -    },

+   -    links: [ {{ jsondata }} ]

+   -  }

+   -});

+   -    </script>

+   -->

+  </body>

+</html>

+

new file mode 100644

@@ -0,0 +1,10 @@

+<!DOCTYPE html>

+<html lang="en">

+<head>

+  <meta charset="UTF-8">

+  <title></title>

+</head>

+<body>

+  

+</body>

+</html>