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 '())))