Changeset 12905 in project for wiki/wmiirc


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/wmiirc

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