Add gtkbookmarks.aug and test

doc/naturaldocs/conf/lenses/Menu.txt

@@ -75,6 +75,7 @@ Group: Specific Modules  {
    File: Fonts  (fonts.aug)
    File: Fuse  (fuse.aug)
    File: Grub  (grub.aug)
+   File: GtkBookmarks  (gtkbookmarks.aug)
    File: Hostname  (hostname.aug)
    File: Hosts_Access  (hosts_access.aug)
    File: Host_Conf  (host_conf.aug)
@@ -129,6 +130,7 @@ Group: Specific Modules  {
    File: Qpid  (qpid.aug)
    File: Systemd  (systemd.aug)
    File: Vfstab  (vfstab.aug)
+   File: Ldif  (ldif.aug)
    }  # Group: Specific Modules
 
 Group: Generic Modules  {
@@ -149,6 +151,7 @@ Group: Tests and Examples  {
    File: Test_Channels  (tests/test_channels.aug)
    File: Test_Cups  (tests/test_cups.aug)
    File: Test_Fuse  (tests/test_fuse.aug)
+   File: Test_GtkBookmarks  (tests/test_gtkbookmarks.aug)
    File: Test_IniFile  (tests/test_inifile.aug)
    File: Test_Inputrc  (tests/test_inputrc.aug)
    File: Test_Keepalived  (tests/test_keepalived.aug)

lenses/gtkbookmarks.aug

@@ -0,0 +1,32 @@
+(*
+Module: GtkBookmarks
+  Parses $HOME/.gtk-bookmarks
+
+Author: Raphael Pinson <raphael.pinson@camptocamp.com>
+
+About: License
+   This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+   To be documented
+
+About: Configuration files
+   This lens applies to $HOME/.gtk-bookmarks. See <filter>.
+
+About: Examples
+   The <Test_GtkBookmarks> file contains various examples and tests.
+*)
+module GtkBookmarks =
+
+autoload xfm
+
+(* View: entry *)
+let entry = [ seq "entry" . store Rx.no_spaces
+            . (Sep.space . [ label "label" . store Rx.space_in ])?
+            . Util.eol ]
+
+(* View: lns *)
+let lns = entry*
+
+(* View: xfm *)
+let xfm = transform lns (incl (Sys.getenv("HOME") . "/.gtk-bookmarks"))

lenses/tests/test_gtkbookmarks.aug

@@ -0,0 +1,17 @@
+(*
+Module: Test_GtkBookmarks
+  Provides unit tests and examples for the <GtkBookmarks> lens.
+*)
+
+module Test_GtkBookmarks =
+
+(* Test: GtkBookmarks.lns
+     Test without label *)
+test GtkBookmarks.lns get "ftp://user@myftp.com/somedir\n" =
+ { "1" = "ftp://user@myftp.com/somedir" }
+
+(* Test: GtkBookmarks.lns
+     Test with label *)
+test GtkBookmarks.lns get "file:///home/rpinson/Ubuntu%20One Ubuntu One\n" =
+ { "1" = "file:///home/rpinson/Ubuntu%20One"
+   { "label" = "Ubuntu One" } }

tests/Makefile.am

@@ -57,6 +57,7 @@ lens_tests =			\
   lens-fuse.sh			\
   lens-gdm.sh			\
   lens-group.sh			\
+  lens-gtkbookmarks.sh			\
   lens-json.sh          \
   lens-hostname.sh			\
   lens-hosts.sh			\