-
Notifications
You must be signed in to change notification settings - Fork 2
/
alternate_identifiers.clj
33 lines (26 loc) · 1.3 KB
/
alternate_identifiers.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
(ns org.cyverse.metadata-files.datacite-4-2.alternate-identifiers
(:use [org.cyverse.metadata-files.datacite-4-2.namespaces :only [alias-uris]])
(:require [org.cyverse.metadata-files.container-nested-element :as cne]
[org.cyverse.metadata-files.simple-nested-element :as sne]
[org.cyverse.metadata-files.util :as util]))
(alias-uris)
;; The alternateIdentifier element
(defn- get-alternate-identifier-type [location {:keys [avus]}]
(util/get-required-attribute-value location avus "alternateIdentifierType"))
(defn- get-alternate-identifier-attrs [location attribute]
{:alternateIdentifierType (get-alternate-identifier-type location attribute)})
(defn new-alternate-identifier-generator [location]
(sne/new-simple-nested-element-generator
{:attr-name "alternateIdentifier"
:min-occurs 0
:max-occurs "unbounded"
:attrs-fn get-alternate-identifier-attrs
:tag ::datacite/alternateIdentifier
:parent-location location}))
;; The alternateIdentifiers element
(defn new-alternate-identifiers-generator [location]
(cne/new-container-nested-element-generator
{:min-occurs 0
:element-factory-fns [new-alternate-identifier-generator]
:tag ::datacite/alternateIdentifiers
:parent-location location}))