commit 522a91f

rc/bmks: write bmks in rc

 1@@ -0,0 +1,54 @@
 2+#!/bin/rc
 3+
 4+flag e +
 5+
 6+file_path=$HOME/etc/bmks
 7+filename=urls
 8+bookmarks=$file_path/$filename
 9+
10+fn usage {
11+	printf 'Usage: bmks a|c|h|d|l\n'
12+}
13+
14+fn add {
15+	test -z $2 || printf 'No url\n'
16+	description=`{printf '' | dmenu -c -p 'Description: '}
17+	if (test -z $description)
18+		printf %s $url >> $bookmarks
19+	if not
20+		printf '%s ' $"description  -  $url >> $bookmarks
21+		sed 's/[ ]*$//' $bookmarks > _ 
22+		mv -f _ $bookmarks
23+}
24+
25+fn del {
26+	selection=`{cat $bookmarks | dmenu -l 10 -c -p 'Delete: '} 
27+	grep -v $"selection $bookmarks > _
28+	mv -f _ $bookmarks
29+}
30+
31+fn list {
32+	cat $bookmarks
33+}
34+
35+fn go_to {
36+	selection=`{cat $bookmarks | dmenu -c -i -l 10 | awk '{print $NF}'}
37+	exec $BROWSER $selection
38+}
39+
40+switch($1) {
41+	case a
42+		url=$2
43+		add
44+	case c
45+		test -d $file_path || mkdir -p $file_path
46+		test -f $bookmarks || touch $bookmarks
47+	case h
48+		usage
49+	case d
50+		del
51+	case l
52+		list
53+	case *
54+		go_to
55+}