diff --git a/doc/user.html b/doc/user.html index b24d628..4e5c7ec 100644 --- a/doc/user.html +++ b/doc/user.html @@ -28,13 +28,24 @@ file may look like this:
 (define-structure config-file config-file-interface
-  (open scheme xlib config-file-utils)
+  (open (modify scheme-with-scsh (hide format))
+        srfi-28
+        xlib 
+        config-file-utils)
   (begin
+    
+    (define (xsel->opera-remote)
+      (let* ((url (run/string (xsel)))
+             (remote-arg (format "openURL(~a,new-window)" url)))
+        (& (opera -remote ,remote-arg))))
+
     (define root-options
-      '((quit . "F8")
+      `((quit . "F8")
         (save-layout . "F7")
         (nth-workspace . ("M-1" "M-2" "M-3" "M-4" "M-5" "M-6" "M-7"))
-        (create-workspace . "F5")))
+        (create-workspace . "F5")
+        (user-bindings . (("F2" exec "xterm")
+                          ("F4" apply ,xsel->opera-remote)))))
     (define split-options '())
     (define switch-options '())
     (define move-options '())))