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