matstani

(ns example-component-ring.component
  (:require [com.stuartsierra.component :as component]
            [example-component-ring.handler :refer [app]]
            [ring.adapter.jetty :refer [run-jetty]]))

;; HTTPサーバコンポーネント
(defrecord HttpServer [port server]
  component/Lifecycle
  (start [this]
    (if server

matstani

(ns user
  (:require [com.stuartsierra.component :as component]
            [clojure.tools.namespace.repl :refer (refresh)]
            [example-component-ring.component :as app]))

(def system nil)

;; システム初期化
(defn init []
  (alter-var-root #'system

matstani

(ns example-component-ring.component
  (:require [com.stuartsierra.component :as component]
            [monger.core :as mg]
            [example-component-ring.handler :refer [app]]
            [ring.adapter.jetty :refer [run-jetty]]))

;; データベースコンポーネント
(defrecord Database [connection]
  component/Lifecycle
  (start [this]

matstani

(ns example-component-ring.component
  (:require [com.stuartsierra.component :as component]
            [monger.core :as mg]
            [example-component-ring.handler :refer [app]]
            [ring.adapter.jetty :refer [run-jetty]]))

;; データベースコンポーネント
(defrecord Database [connection]
  component/Lifecycle
  (start [this]

matstani

(ns example-component-ring.handler
  (:require [clojure.string :as str]
            [compojure.core :refer :all]
            [compojure.handler :as handler]
            [compojure.route :as route]
            [monger.collection :as mc]
            [monger.core :as mg]))

(defn get-entries [{:keys [connection]}]
  (let [db (mg/get-db connection "mydb")]

matstani

def already_running?
  p_name = `cat /proc/#{$$}/cmdline | xargs --null`.strip()
  pid = `pgrep -oxf "#{p_name}"`.strip()
  pid != $$.to_s
end

matstani

<?php
$sm = $this->getServiceLocator();
$adapter = $sm->get('Zend\Db\Adapter\Adapter');
$sql = new \Zend\Db\Sql\Sql($adapter);
$select = $sql->select();
$select->from('album');

//副問い合わせ用selectオブジェクト
$subselect = $sql->select();
$subselect->from('album');

matstani

(ns myapp.component.handler
  (:require [com.stuartsierra.component :as component]
            [compojure.core :as compojure]
            [jdbc-ring-session.core :refer [jdbc-store]]))

(defn- find-routes [component]
  (keep :routes (vals component)))

(defn- middleware-fn [component middleware]
  (if (vector? middleware)

matstani

(def divisions
  {:division1                                                                                                                     
   {:group1 [:staff1 :staff2]                                                                                                          
    :group2 [:staff3 :staff4 :staff5]}                                                                                                 
   :division2                                                                                                                          
   {:group3 [:staff6 :staff7]}})
 
 (for [[d groups] divisions
       [g staffs] groups]
     [d g staffs])

matstani

(def divisions
  {:division1
   {:group1 [:staff1 :staff2]
    :group2 [:staff3 :staff4 :staff5]}
   :division2
   {:group3 [:staff6 :staff7]}})

(reduce
 (fn [ds [d g staffs]]
   (assoc-in ds [d g] (remove #{:staff2} staffs)))