Changeset 8653 in project


Ignore:
Timestamp:
02/23/08 12:14:57 (12 years ago)
Author:
sjamaan
Message:

Untabify (wiki doesn't seem to see that as whitespace)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/wmiirc

    r8652 r8653  
    190190  (wmii:colrules-set! '(("www" . (20 80))
    191191                        ("email" . (10 20 70))
    192                         ("graphics" . 100) ;; can also be (100)
     192                        ("graphics" . 100) ;; can also be (100)
    193193                        (".*" . (30 50 20))))
    194194
     
    332332  (let-optionals rest ((default #f))
    333333    (receive (in out pid)
    334              (process
    335               "wmii9menu"
    336               `(,@(if default (list "-initial" default) '())
    337                 "-sf" ,(wmii:color->string (first wmii-focuscolors))
    338                 "-sb" ,(wmii:color->string (second wmii-focuscolors))
    339                 "-nf" ,(wmii:color->string (first wmii-normcolors))
    340                 "-nb" ,(wmii:color->string (second wmii-normcolors))
    341                 "-font" ,wmii-font
    342                 ,@options))
    343              (close-output-port out)
    344              (let ((chosen (read-line in)))
    345                (close-input-port in)
    346                (and (string? chosen) chosen)))))
     334             (process
     335              "wmii9menu"
     336              `(,@(if default (list "-initial" default) '())
     337                "-sf" ,(wmii:color->string (first wmii-focuscolors))
     338                "-sb" ,(wmii:color->string (second wmii-focuscolors))
     339                "-nf" ,(wmii:color->string (first wmii-normcolors))
     340                "-nb" ,(wmii:color->string (second wmii-normcolors))
     341                "-font" ,wmii-font
     342                ,@options))
     343             (close-output-port out)
     344             (let ((chosen (read-line in)))
     345               (close-input-port in)
     346               (and (string? chosen) chosen)))))
    347347
    348348(define (dmenu options . rest)
    349349  (receive (in out pid)
    350            (process
    351             "dmenu"
    352             `("-b"
    353               "-sf" ,(wmii:color->string (first wmii-focuscolors))
    354               "-sb" ,(wmii:color->string (second wmii-focuscolors))
    355               "-nf" ,(wmii:color->string (first wmii-normcolors))
    356               "-nb" ,(wmii:color->string (second wmii-normcolors))
    357               "-fn" ,wmii-font))
    358            (display (string-join options "\n") out)
    359            (close-output-port out)
    360            (let ((chosen (read-line in)))
    361              (close-input-port in)
    362              (and (string? chosen) chosen))))
     350           (process
     351            "dmenu"
     352            `("-b"
     353              "-sf" ,(wmii:color->string (first wmii-focuscolors))
     354              "-sb" ,(wmii:color->string (second wmii-focuscolors))
     355              "-nf" ,(wmii:color->string (first wmii-normcolors))
     356              "-nb" ,(wmii:color->string (second wmii-normcolors))
     357              "-fn" ,wmii-font))
     358           (display (string-join options "\n") out)
     359           (close-output-port out)
     360           (let ((chosen (read-line in)))
     361             (close-input-port in)
     362             (and (string? chosen) chosen))))
    363363
    364364(define client-menu
     
    389389      (and status-pid (process-signal status-pid))
    390390      (set! status-pid
    391             (process-fork
    392              (lambda ()
    393                (wmii:connect)
    394                (let loop ()
    395                 (wmii:write-tab "rbar" "status"
    396                                 (with-input-from-pipe "echo -n $(uptime | sed 's/.*://; s/,//g') '|' $(date)" read-string))
    397                 (sleep 1)
    398                 (loop))))))))
     391            (process-fork
     392             (lambda ()
     393               (wmii:connect)
     394               (let loop ()
     395                (wmii:write-tab "rbar" "status"
     396                                (with-input-from-pipe "echo -n $(uptime | sed 's/.*://; s/,//g') '|' $(date)" read-string))
     397                (sleep 1)
     398                (loop))))))))
    399399
    400400(wmii:event-handlers-set!
     
    405405   (focus-tag
    406406    . ,(lambda (event tag)
    407         (if (member tag (wmii:tabs "lbar"))
    408              (wmii:write-tab "lbar" tag tag wmii-focuscolors))))
     407        (if (member tag (wmii:tabs "lbar"))
     408             (wmii:write-tab "lbar" tag tag wmii-focuscolors))))
    409409   (unfocus-tag
    410410    . ,(lambda (event tag)
    411411         (if (member tag (wmii:tabs "lbar"))
    412              (wmii:write-tab "lbar" tag tag wmii-normcolors))))
     412             (wmii:write-tab "lbar" tag tag wmii-normcolors))))
    413413   (urgent-tag
    414414    . ,(lambda (event tag client?) (wmii:write-tab "lbar" tag (string-append "*" tag))))
     
    423423   ((key ,modkey "Control" "t")
    424424    . ,(let ((prev #f))
    425         (lambda _
    426            (let ((keys (wmii:grabbed-keys)))
    427              (if prev
    428                 (begin (wmii:grabbed-keys-set! prev)
    429                         (set! prev #f))
    430                 (begin (set! prev keys)
    431                         (wmii:grabbed-keys-set! `((,modkey "Control" "t")))))))))
     425        (lambda _
     426           (let ((keys (wmii:grabbed-keys)))
     427             (if prev
     428                (begin (wmii:grabbed-keys-set! prev)
     429                        (set! prev #f))
     430                (begin (set! prev keys)
     431                        (wmii:grabbed-keys-set! `((,modkey "Control" "t")))))))))
    432432   ((key ,modkey "space")
    433433    . ,(lambda _ (wmii:navigate-to "toggle")))
     
    441441    . ,(lambda _
    442442         (let ((action (dmenu (append
    443                                `("rehash" "exec" "status" "quit")
    444                                (proglist (string-split (getenv "WMII_CONFPATH") ":"))))))
    445            (when action
    446              (cond
    447               ((string=? action "rehash") (update-programs))
    448               ((string-prefix? "exec " action)
    449                (wmii:exec (string-drop action 5)))
    450               ((string=? action "status") (status))
    451               ((string=? action "quit")
    452                (wmii:quit)
    453                (exit))
    454               (else (run (sprintf "env PATH=${WMII_CONFPATH}:${PATH} ~A" action))))))))
     443                               `("rehash" "exec" "status" "quit")
     444                               (proglist (string-split (getenv "WMII_CONFPATH") ":"))))))
     445           (when action
     446             (cond
     447              ((string=? action "rehash") (update-programs))
     448              ((string-prefix? "exec " action)
     449               (wmii:exec (string-drop action 5)))
     450              ((string=? action "status") (status))
     451              ((string=? action "quit")
     452               (wmii:quit)
     453               (exit))
     454              (else (run (sprintf "env PATH=${WMII_CONFPATH}:${PATH} ~A" action))))))))
    455455   ((key ,modkey "p")
    456456    . ,(lambda _
     
    498498    (flatten
    499499     (map (lambda (dir)
    500             (if ((conjoin directory? file-execute-access? file-read-access?) dir)
    501                 (map pathname-strip-directory
    502                      (find-files dir (conjoin (complement directory?) file-execute-access?) cons '() 0))
    503                 '()))
    504           path))
     500            (if ((conjoin directory? file-execute-access? file-read-access?) dir)
     501                (map pathname-strip-directory
     502                     (find-files dir (conjoin (complement directory?) file-execute-access?) cons '() 0))
     503                '()))
     504          path))
    505505    string=?)
    506506   string<?))
     
    516516  (for-each (cut wmii:destroy-tab "lbar" <>) (wmii:tabs "lbar"))
    517517  (for-each (lambda (t)
    518               (if (string=? curtag t)
     518              (if (string=? curtag t)
    519519                  (wmii:write-tab "lbar" t t wmii-focuscolors)
    520                   (wmii:write-tab "lbar" t t wmii-normcolors)))
    521             (wmii:tags)))
     520                  (wmii:write-tab "lbar" t t wmii-normcolors)))
     521            (wmii:tags)))
    522522
    523523(run (sprintf "xsetroot -solid '~A'" (wmii:color->string wmii-background)))
Note: See TracChangeset for help on using the changeset viewer.