echaozh

The [python-dbtxn](https://github.com/echaozh/python-dbtxn) is a library I wrote to ease db accessing from Python programs. Directly calling Python DBI leaves a lot of boilerplate code all over the place, and boilerplate code is bad. I googled, and there are no dbtxn like libraries, so I wrote my own.

<!-- more -->

There are 2 sources of boilerplate code:

...

echaozh

var teaserForPost = function(name) {
  var full = partial ("posts/" + name);
  return full.replace (/<!-- more -->(.|\n)*/, '', 'm');
}

echaozh

<p>The <a href="https://github.com/echaozh/python-dbtxn">python-dbtxn</a> is a library I wrote to ease db accessing from Python programs. Directly calling Python DBI leaves a lot of boilerplate code all over the place, and boilerplate code is bad. I googled, and there are no dbtxn like libraries, so I wrote my own.</p>

echaozh

- var tagsForPosts = function() {
-   var data = public.posts.data;
-   var tags = {};
-   for (var name in data) {
-     if (name[0] != '_') {
-       var ts = data[name].tags;
-       for (var i in ts) {
-         tag = ts[i];
-         tags[tag] = tags[tag] || []
-         tags[tag].push (name);

echaozh

var page = (function (cur) {
  var data = public;
  for (var i = 0; i < cur.path.length - 1; ++i) {
    data = data[cur.path[i]];
  }
  data = data.data[cur.path[cur.path.length - 1]];
  return data;
}) (current);

echaozh

html = Arbre::Context.new do
  h2 "Why Arbre is awesome?"

  ul do
    li "The DOM is implemented in ruby"
    li "You can create object oriented views"
    li "Templates suck"
  end
end

echaozh

page1 :: Markup
page1 = html $ do
    head $ do
        title "Introduction page."
        link ! rel "stylesheet" ! type_ "text/css" ! href "screen.css"
    body $ do
        div ! id "header" $ "Syntax"
        p "This is an example of BlazeMarkup syntax."
        ul $ mapM_ (li . toMarkup . show) [1, 2, 3]

echaozh

{-# LANGUAGE PackageImports, UnicodeSyntax #-}

import "mtl" Control.Monad.State

type Stack a b = State [a] b

push ∷ a → Stack a ()
push a = modify (a:)

pop ∷ Stack a a