X-Git-Url: http://git.plutz.net/?p=serve0;a=blobdiff_plain;f=widgets.sh;h=658d2bb2291d87bdf979f6912a6f5ecd62e3139c;hp=f9c0380b740c6c0c856db3e7a20c2c6c5750e8ee;hb=08413e5d4b8b918d78685c68fcaa43cf8ca0347a;hpb=0db89f9e8c8556c3fa08887100e548c2fb09ad43

diff --git a/widgets.sh b/widgets.sh
index f9c0380..658d2bb 100644
--- a/widgets.sh
+++ b/widgets.sh
@@ -15,6 +15,29 @@ w_tagcategories="$(printf %s "$w_tags" |cut -sd: -f1 |sort -u)"
 
 CHECK(){ [ "$1" = "$2" ] && printf checked; }
 
+w_bookmarks(){
+  local name link bm
+  bm="$_DATA/.index/bookmarks"
+
+  printf '[form #bookmarks action=?a=bookmarks method=POST
+            [a href="#" X]
+            [hidden "ref" "%s"]
+          ' "$w_refuri"
+
+  name="$(grep -m1 -F "	$(STRING "${REQUEST_URI}")" "$bm")"
+  printf '[hidden "link" "%s"][input name="name" value="%s"]' \
+         "$(HTML "$link")" "$(HTML "$name")"
+
+  sort "$bm" |while read -r name link; do
+    name="$(UNSTRING "$name")"
+    link="$(UNSTRING "$link")"
+    if [ "$link" != "$REQUEST_URI" ]; then
+      printf '[a href="%s"\n%s]' "$(HTML "$link")" "$(HTML "$name")"
+    fi
+  done
+  printf ']'
+}
+
 w_search(){
   printf '
   [form #search method=GET action=?