joewiz

xquery version "3.1";

(: This uses the eXist cache module to mimic xsl:accumulator approach described 
 : by Norm Walsh at https://so.nwalsh.com/2023/08/08-accumulators :)

declare function local:initiate-cache() {
    cache:destroy("quotes"), 
    cache:create("quotes", map{}), 
    cache:put("quotes", "counter", 1)
};

joewiz

xquery version "3.1";

(: Convert a sequence of XQuery maps into CSV or TSV.
 : Each map becomes one row.
 : The entries' keys become column headers.
 :)

declare variable $local:default-options := 
    map {
        (: Character to separate cells with :)

joewiz

xquery version "3.1";

(: @see https://github.com/eXist-db/exist/commit/53bdb54c664a8063e43392e0b0fb9eac57baf67d#diff-fc5225a3545e6b6807e7810bc9e40219500842a68dbb49a7eb83670016b160ab :)

declare boundary-space preserve;

let $json-ignore-whitespace-text-nodes-param-xml := 
    <output:serialization-parameters xmlns:output="http://www.w3.org/2010/xslt-xquery-serialization">
        <output:method value="json"/>
        <exist:json-ignore-whitespace-text-nodes value="yes"/>

joewiz

xquery version "3.1";

import module namespace versions="http://exist-db.org/apps/public-repo/versions" at "/db/apps/public-repo/modules/versions.xqm";

let $exist-versions := ("4.11.0", "5.5.1", "6.1.0")
let $abbrevs := ("shared-resources", "dashboard", "doc", "eXide", "functx", "fundocs", "markdown", "monex", "usermanager")
let $header-row := ("package", $exist-versions ! ("eXist " || .)) => string-join(", ")
let $body-rows :=
    for $abbrev in $abbrevs
    let $packages := doc("/db/apps/public-repo-data/metadata/package-groups.xml")//package-group[abbrev = $abbrev]//package

joewiz

xquery version "3.1";

declare namespace output="http://www.w3.org/2010/xslt-xquery-serialization";
declare namespace pkg="http://expath.org/ns/pkg";

declare option output:method "html";
declare option output:html-version "5.0";
declare option output:media-type "text/html";

declare function local:sort-packages($packages as element(pkg:package)*) as element(pkg:package)* {

joewiz

xquery version "3.1";

(: @see https://exist-db.org/exist/apps/fundocs/index.html?q=util:system-property
 : @see https://github.com/eXist-db/exist/blob/develop/exist-core/src/main/resources-filtered/org/exist/system.properties 
 :)
let $exist-properties := 
    (
        "vendor",
        "vendor-url",
        "product-name",

joewiz

xquery version "3.1";

(:~ Merge XML fragments with the same root node into a composite document.
 : Based on a question from the exist-open mailing list.
 : 
 : @see https://markmail.org/message/gdrhscaobyya44we
 :)


(: Compare the fragment to the composite document. If the node names match,

joewiz

Today in exist-open, Slav asked:

Hi, anyone have function for calculate all second Tuesdays for year?

(That is, Patch Tuesdays.)

Below are two approaches—one that solves the problem directly (finding only 2nd Tuesdays) and one more generally (finding any combination of week of the month and day of the week, e.g., 5th Sundays).

joewiz

xquery version "3.1";

import module namespace dbutil="http://exist-db.org/xquery/dbutil";

dbutil:scan(
    xs:anyURI("/db/apps/airlock-data"), 
    function($col, $res) { 
        if ($res) then 
            (: Set permissions on resources here :)
            (

joewiz

xquery version "3.1";

declare namespace pkg="http://expath.org/ns/pkg";

array {
    for $app in xmldb:get-child-collections("/db/apps")
    let $package-metadata := doc("/db/apps/" || $app || "/expath-pkg.xml")
    where $package-metadata//pkg:dependency[@package eq "http://exist-db.org/apps/shared"]
    order by $app
    return