; NooMic is NoMic with SourceCode for new NooPolis WebApp's - InSpir'ed by PerlNomic ;{{{ (defn noomic [request response] (let [ ; exposes standard variables required for most pages: hConf "TODO"; (new org.apache.hadoop.hbase.HBaseConfiguration) hBase "TODO" ;(new org.apache.hadoop.hbase.client.HBaseAdmin hConf) logTableDesc "TODO" ;(new org.apache.hadoop.hbase.HTableDescriptor "ChatLog") sessionWikiName (.getAttribute (.getSession request) "WikiName") ] (import '(java.net URL) '(java.lang StringBuilder) '(java.io BufferedReader InputStreamReader)) (defn loggedIn? [] ;sessionWikiName (.getAttribute (.getSession request) "WikiName") ) (defn fetch-url-s "Return the web page as a string." ;http://gnuvince.wordpress.com/2008/11/18/fetching-web-comics-with-clojure-part-2/ [address] (let [url (java.net.URL. address)] (with-open [stream (. url (openStream))] (let [buf (java.io.BufferedReader. (java.io.InputStreamReader. stream))] ((defn a [b] (let [line (.readLine b)] (if (nil? line) "" (str line (a b))))) buf))))) (defn fetch-url "Return the web page as a string." ;http://gnuvince.wordpress.com/2008/11/18/fetching-web-comics-with-clojure-part-2/ [address] (let [url (java.net.URL. address)] (with-open [stream (. url (openStream))] (let [buf (java.io.BufferedReader. (java.io.InputStreamReader. stream))] ;skip empty lines: (.readLine buf) (.readLine buf) (.readLine buf) (.readLine buf) (.readLine buf) (.readLine buf) (.readLine buf) (.readLine buf) (.readLine buf) (.readLine buf) (.readLine buf) ((defn a [b] (let [line (.readLine b)] (if (or (nil? line) (.equals line "")) "" (str (.replace (.replace (.replace (.replace line "\u0026quot;" "\"") "\u0026gt;" ">") "\u0026lt;" "<") "\u0026amp;" "\u0026") "\r\n" (a b))))) buf))))) (defn fetch-fn [name] (eval (read-string (fetch-url (str "http://mindbroker.de/wiki/" name "Clj?skin=raw"))))) (fetch-fn "Cache") (fetch-fn "Handle") (defn handle [name view controller] (if (.startsWith (.getPathInfo request) (str "/" name)) (str ; "

" (.toUpperCase (.substring (str name " ") 0 1)) (.substring (str name " ") 1) "

" (view request response)) (if (.startsWith (.getPathInfo request) (str "/do/" name)) (controller request response)))) ;(fetch-fn "Login") ;(fetch-fn "Logout") ; (fetch-fn "Rdf") ; (fetch-fn "Repl") (if ;(< 0 (.indexOf " /rdf /facebook" ; (.getPathInfo request) ;(str "-" (.getParameter request "expression") "WikiName") ; (.startsWith (.getPathInfo request) (str "/repl")) ; (fetch-fn "Repl") ; (.startsWith (.getPathInfo request) (str "/schuppen")) ; (fetch-fn "Schuppen") (or (.startsWith (.getPathInfo request) "/facebook") (.startsWith (.getPathInfo request) "/rdf") (.startsWith (.getPathInfo request) "/schuppen")) (str (if (.startsWith (.getPathInfo request) "/facebook") (fetch-fn "FaceBook")) (if (.startsWith (.getPathInfo request) "/rdf") (fetch-fn "Rdf")) (if (.startsWith (.getPathInfo request) "/schuppen") (fetch-fn "Schuppen")) ) (str "

• Skip to navigation (Press Enter).
• Skip to main content (Press Enter).

") ) ) ) ;}}}