factored out the one href remaining (article)

dscape · Apr 15, 2010 · d033c07 · d033c07
1 parent 8c5ca2e
commit d033c07
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/index.xqy b/index.xqy
@@ -35,7 +35,7 @@ xdmp:set-response-content-type( "application/xhtml+xml" ),
         </div><br/>
         <h2>Listing Posts</h2>
         <dl> { for $a in fn:doc() [1 to 10]
-          let $permalink := fn:concat('show.xqy?uri=', fn:document-uri($a))
+          let $permalink := h:link_to_show( fn:document-uri($a) )
           let $snippet   := fn:string-join(
             fn:tokenize(fn:string($a//*:body), " ")[1 to 20], " ")
           return 

diff --git a/lib/helpers.xqy b/lib/helpers.xqy
@@ -6,4 +6,7 @@ declare function h:link_to_index() {
   <a href="index.xqy" xmlns="http://www.w3.org/1999/xhtml">Back to main</a> } ;
 
 declare function h:link_to_new() {
-  <a href="new.xqy" xmlns="http://www.w3.org/1999/xhtml">Add new</a> } ;
+  <a href="new.xqy" xmlns="http://www.w3.org/1999/xhtml">Add new</a> } ;
+
+declare function h:link_to_show( $path ) {
+  fn:concat( 'show.xqy?uri=', $path ) };