mathiasp

Class: OrderCategory
    SubClassOf: gist:Category 
    Annotations: rdfs:comment "Category of orders, use with Order -> gist:categorizedBy -> OrderCategory"
Individual: MobileProductsAllowed
    Types: OrderCategory
    Annotations: rdfs:comment "find old flag in rdfs:label"
    Annotations: rdfs:label "A"
Individual: MobileAndHardwareProductsAllowed
    Types: OrderCategory
    Annotations: rdfs:comment "find old flag in rdfs:label"

mathiasp

(ns csd.gist
  (:require [tawny
             [owl :as owl]
             [read :as rd]
             [reasoner :as rs]
             [lookup :as lk]]) 
  (:import
   (org.semanticweb.owlapi.model
    OWLOntologyID)))

mathiasp

(defn start-loop []
    (binding [srh/*remote-uri* "/opnenablement/_shoreleave"]
     (go (while true
           (let [e (<! dirty_c)]
             (dommy/set-text! out "SAVED!")
;;; this does not work, goes to /_shoreleave
;;; allmost regardless of where the (binding ... is
             (srm/rpc (save-config "myConfig") [result]
                      :on-success (js/alert (str "Success: " result))
                      :on-error (js/alert (str "Error: " result)))

mathiasp

(ns opnenablement.ui
(:require-macros
    [cljs.core.async.macros :refer [go]]
    [shoreleave.remotes.macros :as srm]
    [dommy.macros :refer [sel sel1]])
  (:require
    [cljs.core.async :refer [>! <! alts! puts! put! chan timeout dropping-buffer]]
    [shoreleave.remotes.http-rpc :as srh]
    [dommy.core :as dommy]))