From 52b67951f1e8a7f1af9b85d4ae8e7689d194574a Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 3 Aug 2015 17:43:40 +0200
Subject: Working prototype in hakyll

---
 provider/css/default.css             |  40 ++++++++++++
 provider/index.html                  |   8 +++
 provider/index.md                    |   3 +
 provider/posts/blog-documentation.md |   9 +++
 provider/posts/blog-rss.md           |  43 ++++++++++++
 provider/posts/pwutil.md             | 122 +++++++++++++++++++++++++++++++++++
 provider/templates/default.html      |  22 +++++++
 provider/templates/index.html        |   9 +++
 provider/templates/post-list.html    |   7 ++
 provider/templates/tag.html          |   2 +
 10 files changed, 265 insertions(+)
 create mode 100644 provider/css/default.css
 create mode 100644 provider/index.html
 create mode 100644 provider/index.md
 create mode 100644 provider/posts/blog-documentation.md
 create mode 100644 provider/posts/blog-rss.md
 create mode 100644 provider/posts/pwutil.md
 create mode 100644 provider/templates/default.html
 create mode 100644 provider/templates/index.html
 create mode 100644 provider/templates/post-list.html
 create mode 100644 provider/templates/tag.html

(limited to 'provider')

diff --git a/provider/css/default.css b/provider/css/default.css
new file mode 100644
index 0000000..7b89107
--- /dev/null
+++ b/provider/css/default.css
@@ -0,0 +1,40 @@
+body {
+    margin: auto;
+    padding-right: 1em;
+    padding-left: 1em;
+    font: normal 1.1em monospace;
+    max-width: 60em;
+    text-align: justify;
+}
+
+.display-math {
+    display: block;
+    margin-top: 0.2em;
+    margin-bottm: 0.2em;
+    text-align: center;
+}
+
+.inline-math {
+    display: inline;
+}
+
+a {
+    color: inherit;
+}
+
+p {
+    margin-bottom: 0
+}
+
+p + p {
+    text-indent: 1.5em;
+    margin-top: 0;
+}
+
+pre {
+    margin-left: 1.5em;
+}
+
+p code {
+		font-style:italic;
+}
\ No newline at end of file
diff --git a/provider/index.html b/provider/index.html
new file mode 100644
index 0000000..8eb184f
--- /dev/null
+++ b/provider/index.html
@@ -0,0 +1,8 @@
+$body$
+<ul>
+  $for(tags)$
+  <li>
+    $body$
+  </li>
+  $endfor$
+</ul>
diff --git a/provider/index.md b/provider/index.md
new file mode 100644
index 0000000..53a06bc
--- /dev/null
+++ b/provider/index.md
@@ -0,0 +1,3 @@
+This is a blog.
+It contains things.
+Send other things to <blog@dirty-haskell.org> if you so choose.
diff --git a/provider/posts/blog-documentation.md b/provider/posts/blog-documentation.md
new file mode 100644
index 0000000..b0d4af6
--- /dev/null
+++ b/provider/posts/blog-documentation.md
@@ -0,0 +1,9 @@
+---
+title: On the Origin of dirty-haskell.org
+published: 2015-03-12
+tags: Blog Software
+---
+
+The software used is a trivially modified version of the one powering [math.kleen.org](http://math.kleen.org/lists/blog.html).
+
+The title is without deeper meaning.
diff --git a/provider/posts/blog-rss.md b/provider/posts/blog-rss.md
new file mode 100644
index 0000000..095ff56
--- /dev/null
+++ b/provider/posts/blog-rss.md
@@ -0,0 +1,43 @@
+---
+title: dirty-haskell.org´s rss feeds
+published: 2015-03-29
+tags: Blog Software
+---
+
+I extended the software suite inherited from [math.kleen.org](http://math.kleen.org) to include support for rss feeds.
+The heart of the issue is a ~80 line haskell script I chose to call, in a bout of creativity, "generate-rss.hs".
+The script uses the [feed](http://hackage.haskell.org/package/feed-0.3.9.2) package.
+
+generate-rss.hs gets passed a title and a list of paths below ./lists to incorporate as items.
+It generates an empty feed structure, adds title and a (hardcoded) base url for RSS metadata, and iterates over the given paths — generating for each path an item to be included in the finished feed.
+This procedure makes use of a state monad (StateT (Feed, Maybe ClockTime) IO ()) to sequentially add items to the feed and keep track of the modification/change time of the newest path examined.
+Each item carries a title, an url, a date, and contents as follows:
+
+-  The date used is the modification/change time of the path supplied as a command line argument at the beginning of the program (usually a symbolic link in ./lists) — as such it is the time the post was linked into the particular list we´re generating a RSS feed for (this was not a deliberate design choice but a side effect of the canonical implementation — it was later decided that this behaviour was in fact the one expected all along).
+-  The url is generated by following, recursively, the trail of symbolic links starting in ./lists, assuming the final target is indeed in ./posts, and forming the filename of that target into a (hopefully) functional url in a hardcoded fashion.
+-  The title is extracted from the markdown file using a function shamelessly copied from extract-title.hs (The author wrote that one too, after all).
+-  The contents are read into Pandoc and rendered into [AsciiDoc](http://en.wikipedia.org/wiki/AsciiDoc) format (it seemed convenient at the time).
+
+Along the way two helper functions were introduced — if an implementation of those already exists in Prelude or somewhere else common please mail in a comment:
+
+~~~ {.haskell}
+(<->) :: [(a -> b)] -> a -> [b]
+[] <-> _ = []
+(f:fs) <-> x = (f x:fs <-> x)
+
+(<-->) :: [(a -> a)] -> a -> a
+[] <--> x = x
+(f:fs) <--> x = fs <--> (f x)
+~~~
+
+## Update ##
+
+~~~ {.haskell}
+import Control.Applicative ((<*>), pure)
+
+(<->) fs = (<*>) fs . pure
+
+(<-->) = flip $ foldl (.) id
+~~~
+
+Thanks, viktor.
diff --git a/provider/posts/pwutil.md b/provider/posts/pwutil.md
new file mode 100644
index 0000000..a4b3757
--- /dev/null
+++ b/provider/posts/pwutil.md
@@ -0,0 +1,122 @@
+---
+title: A Tool to Manage a Set of YAML Objects Representing Account Information — pwutil
+published: 2015-04-07
+---
+
+A long time ago I wrote a bunch of scripts (first in bash, then zsh, and later perl) to manage a, sometimes encrypted, file containing account information I get asked to create and remember on a daily basis—accounts for shopping websites spring to mind.
+
+[pwutil](git://git.yggdrasil.li/pwutil) is the newest iteration in this line of bunches of scripts.
+
+## Features
+
+  * Support for embedding common operation in any kind of record keeping
+
+    Thus support for almost any encryption known to man (with absolutely no online security), version control, and synchronisation
+  * [Human read- and writeable](https://en.wikipedia.org/wiki/YAML) backstore
+  * Machine parseable output
+  * [Command Line Interface](https://en.wikipedia.org/wiki/Command-line_interface)-only
+  * New accounts can be partially generated by user defined functions with out of the box support for [pwgen](http://sourceforge.net/projects/pwgen/) and SSH
+
+## Usage
+
+~~~
+pwget [<searchTerm> …]
+Looks up and returns all accounts which contain any <searchTerm> anywhere in their representation — case insensitive.
+
+pwadd [[--gen-<generator> [<generatorArgument> …] …] --] <identifier> [<attributeKey> <attributeValue> …]
+Adds an account to the store — does not overwrite.
+~~~
+
+## Documentation
+
+I shall document the project in a partial and file-wise fashion—amendments available on request.
+
+### Structure
+
+~~~ {#DirTree}
+pwutil
+├── default.nix
+├── PWAdd.hs
+├── PWGet.hs
+├── PWUtil
+│   ├── Extra
+│   │   ├── PWGen.hs
+│   │   └── SSHCmd.hs
+│   ├── Types.hs
+│   └── Util.hs
+├── pwutil.hs
+├── PWUtil.hs
+└── pwutil.nix
+~~~
+
+### `pwutil.nix`
+is a [nix](https://nixos.org/nix) expression allowing easy installation using the nix package manager.
+A `~/.nixpkgs/config.nix` allowing one to do so might look thus:
+
+~~~ {.numberLines}
+{
+  packageOverrides = pkgs: {
+    pwutil = pkgs.callPackage /path/to/pwutil.nix {};
+  };
+}
+~~~
+
+The derivation takes some arguments (write those in `{}` above):
+
+`main ? null`
+  ~ Overwrite `pwutil.hs` with a file path
+
+`with<Package> ? false`
+  ~ `<Package>` is one of Pwgen, or Ssh a the current time.
+    If `true` wraps executables to have `$PATH` include `<Package>`.
+
+### `Types.hs`
+
+Introducing `PW` (much as [xmonad](https://xmonad.org) did with `X`) is an easy way to keep track of the `PWConfig` without resorting to function arguments.
+`BackStore` is our (new and improved) way of encapsulating store access in a totally customisable way—`plain`, which is essential `readFile` and `writeFile` as provided by `ByteString`, is provided for convenience in `Util.hs`.
+`PWConfig` most importantly contains a definition of generators (called by passing `--gen-…` to `pwadd`).
+
+~~~ {#Types.hs .haskell .numberLines}
+module PWUtil.Types (
+  PW(..),
+  BackStore(..),
+  PWConfig(..),
+  Generator(..)
+  ) where
+
+import Control.Monad.State
+import qualified Data.Map as M
+import Data.Yaml
+import Data.ByteString
+
+type PW = StateT PWConfig IO
+
+data BackStore = BackStore
+                 { readContents :: PW ByteString
+                 , writeContents :: ByteString -> PW ()
+                 }
+
+data PWConfig = PWConfig
+                { generators :: M.Map String Generator
+                , backstore :: BackStore
+                }
+                      
+type Generator = [String] -> PW Value
+~~~
+
+
+### `pwutil.hs`
+
+is, in a [xmonad](http://xmonad.org) kind of way, the configuration file—the shipped default is reproduced below as a template for custom configs.
+
+~~~ {#pwutil.hs .haskell .numberLines}
+import PWUtil
+
+import System.FilePath ((</>))
+import System.Directory (getHomeDirectory)
+
+main :: IO ()
+main = do
+  h <- getHomeDirectory
+  runPW (emptyConfig { backstore = plain (h </> "accounts.yaml") }) pwutil
+~~~
diff --git a/provider/templates/default.html b/provider/templates/default.html
new file mode 100644
index 0000000..14497b2
--- /dev/null
+++ b/provider/templates/default.html
@@ -0,0 +1,22 @@
+<!DOCTYPE html>
+<html$if(lang)$ lang="$lang$"$endif$>
+<head>
+  <meta charset="utf-8">
+  <meta name="generator" content="pandoc">
+  <meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes">
+  <title>$if(title)$$title$$endif$</title>
+  <style type="text/css">code{white-space: pre;}</style>
+  <!--[if lt IE 9]>
+    <script src="http://html5shim.googlecode.com/svn/trunk/html5.js"></script>
+  <![endif]-->
+  <link rel="stylesheet" href="/css/default.css">
+</head>
+<body>
+$if(title)$
+<header>
+  <h1 class="title"><a href="/" title="dirty-haskell.org">dirty-haskell.org</a>: $title$</h1>
+</header>
+$endif$
+$body$
+</body>
+</html>
diff --git a/provider/templates/index.html b/provider/templates/index.html
new file mode 100644
index 0000000..0eea806
--- /dev/null
+++ b/provider/templates/index.html
@@ -0,0 +1,9 @@
+$body$
+
+<ul>
+  $for(tags)$
+  <li>
+    $body$
+  </li>
+  $endfor$
+</ul>
diff --git a/provider/templates/post-list.html b/provider/templates/post-list.html
new file mode 100644
index 0000000..4d50d4d
--- /dev/null
+++ b/provider/templates/post-list.html
@@ -0,0 +1,7 @@
+<ul>
+  $for(posts)$
+  <li>
+    $if(ellipsis)$…$else$<a href="$url$">$title$</a>$endif$
+  </li>
+  $endfor$
+</ul>
diff --git a/provider/templates/tag.html b/provider/templates/tag.html
new file mode 100644
index 0000000..8854cdd
--- /dev/null
+++ b/provider/templates/tag.html
@@ -0,0 +1,2 @@
+<a href="$url$">$title$</a>$if(rss)$ (<a href="$rss$">RSS</a>)$endif$
+$body$
-- 
cgit v1.2.3