iperdomo

package services;

import java.io.File;
import java.io.IOException;
import java.util.ArrayList;
import java.util.Arrays;
import java.util.List;

import org.apache.commons.io.FileUtils;

iperdomo

$ lein -version
# Leiningen 2.3.3 on Java 1.6.0_27 OpenJDK 64-Bit Server VM

$ lein new compojure test

$ cd test

$ lein deps

$ echo "User-agent: *

iperdomo

(ns datomic-helpers
  (:require [datomic.api     :as d]))

;;; Expose Datomic vars here, for convenience

;;; Ring middleware

(defn wrap-datomic
  "A Ring middleware that provides a request-consistent database connection and
  value for the life of a request."

iperdomo

00334300-ebdd-4174-bb53-fb600d14adf1|FOUND
0083e09a-18dd-4e1f-9d1c-e207fcd64220|FOUND
00cb3765-130f-4058-8dd3-0f42442e7a57|FOUND
00e4c11d-feec-4054-977b-7fee812005b1|FOUND
0124f3d4-3e6b-46f0-bcf8-f9360bd27594|FOUND
0202535d-0762-4b03-89cb-8dece89f1223|FOUND
02dca100-bcda-40eb-90de-26c32a9829bc|FOUND
036bc66c-a5bd-45ac-a7d8-a85ec73282c4|FOUND
0476af9b-cadd-419c-8879-d41bc915892d|FOUND
049cb671-b8be-4310-81c5-be412209a4fe|FOUND

iperdomo

(ns akvo.flow-services.geo
  (:require [liberator.core :refer (defresource resource)]
            [liberator.dev :refer (wrap-trace)] ;; Just in dev mode
            [ring.middleware.params :refer (wrap-params)]
            [ring.adapter.jetty :refer (run-jetty)]
            [compojure.core :refer (defroutes GET)]
            [compojure.handler :refer (api)]))

(defresource hello-world
  :available-media-types ["text/html"]

iperdomo

(ns akvo.flow-services.geo
  (:require [liberator.core :refer [defresource resource]]
            [liberator.dev :refer (wrap-trace)]
            [clojure.pprint :refer (pprint)]
            [ring.adapter.jetty :refer (run-jetty)]
            [compojure.core :refer (defroutes GET)]
            [compojure.handler :refer (api)]))

(defresource hello-world
  :available-media-types ["application/json"]

iperdomo

#!/bin/sh

if [[ -z "$(head -n1 "$1" | grep -o -E '#[0-9]+')" ]]; then
  echo >&2 ERROR: Commit message must include issue number.
  exit 1
fi

exit 0

iperdomo

#/bin/bash

set -e

[[ -n "${MYENV}" ]] || { echo "MYENV needs to be declared"; exit 1; }

echo "everything OK"

iperdomo

#/bin/bash

set -e

gs -q -sPAPERSIZE=a4 -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile="${1}" "${@:2}"

iperdomo

diff --git a/src/cemerick/friend.clj b/src/cemerick/friend.clj
index 0c8dda5..0731a64 100644
--- a/src/cemerick/friend.clj
+++ b/src/cemerick/friend.clj
@@ -154,6 +154,7 @@ Equivalent to (complement current-authentication)."}
           resp (response/redirect-after-post
                  (or unauthorized-uri
                      (and (string? redirect) redirect)
+                     (and (fn? redirect) (redirect authentication-map request))
                       (str (:context request) (-> request ::auth-config :default-landing-uri ))))]