• Home
• com.elasticpath
• rest-resources-viz
• 0.1.0
• source code
• name.cljs

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

clojure.data.xml.js.name.cljs Maven / Gradle / Ivy

(ns clojure.data.xml.js.name
  (:require [clojure.data.xml.protocols :refer [AsQName qname-uri qname-local]]
            [clojure.string :as str]))

(defrecord QName [uri local prefix]
  AsQName
  (qname-local [_] local)
  (qname-uri [_] uri))

(specify! (.-prototype QName)
  IEquiv
  (-equiv [this other]
    (and (instance? QName other)
         (= (.-local this) (.-local other))
         (= (.-uri this) (.-uri other)))))

(defn make-qname [uri name prefix]
  (->QName uri name prefix))

(def parse-qname
  (memoize
   (fn [s]
     (let [[_ ns-uri local] (re-matches #"(?:\{([^}]+)\})?([^{]*)" s)]
       (make-qname (or ns-uri "") local "")))))

(defn decode-uri [ns]
  (js/decodeURIComponent ns))

(defn encode-uri [uri]
  (js/encodeURIComponent uri))