Changeset 12905 in project for wiki/eggref


Ignore:
Timestamp:
12/28/08 16:31:33 (12 years ago)
Author:
sjamaan
Message:

Simplify example wmiirc a little bit by changing let/when combinations to use and-let*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/eggref/4/wmiirc

    r12895 r12905  
    533533 (let ((last-option "nonexistingoption"))
    534534   (lambda (client)
    535      (let ((option (wmii9menu '("Nop" "Delete" "Fullscreen") last-option)))
    536        (when option
    537          (cond
    538           ((string=? option "Delete") (wmii:kill client))
    539           ((string=? option "Fullscreen") (wmii:change-state "Fullscreen" #t client)))
    540          (set! last-option option))))))
     535     (and-let* ((option (wmii9menu '("Nop" "Delete" "Fullscreen") last-option)))
     536       (cond
     537        ((string=? option "Delete") (wmii:kill client))
     538        ((string=? option "Fullscreen") (wmii:change-state "Fullscreen" #t client)))
     539       (set! last-option option)))))
    541540
    542541(define wmii-term "xterm")
     
    608607   ((key ,modkey "a")
    609608    . ,(lambda _
    610          (let ((action (dmenu (append
    611                                `("rehash" "exec" "status" "quit")
    612                                (proglist (string-split (getenv "WMII_CONFPATH") ":"))))))
    613            (when action
    614              (cond
    615               ((string=? action "rehash") (update-programs))
    616               ((string-prefix? "exec " action)
    617                (wmii:exec (string-drop action 5)))
    618               ((string=? action "status") (status))
    619               ((string=? action "quit")
    620                (wmii:quit)
    621                (exit))
    622               (else (run (sprintf "env PATH=${WMII_CONFPATH}:${PATH} ~A" action))))))))
     609         (and-let* ((action (dmenu (append
     610                                 `("rehash" "exec" "status" "quit")
     611                                 (proglist (string-split (getenv "WMII_CONFPATH") ":"))))))
     612           (cond
     613            ((string=? action "rehash") (update-programs))
     614            ((string-prefix? "exec " action)
     615             (wmii:exec (string-drop action 5)))
     616            ((string=? action "status") (status))
     617            ((string=? action "quit")
     618             (wmii:quit)
     619             (exit))
     620            (else (run (sprintf "env PATH=${WMII_CONFPATH}:${PATH} ~A" action)))))))
    623621   ((key ,modkey "p")
    624622    . ,(lambda _
Note: See TracChangeset for help on using the changeset viewer.