wes
12 years ago
4 changed files with 28 additions and 22 deletions
@ -1,6 +1,11 @@ |
|||
#! /usr/bin/env racket |
|||
#lang racket |
|||
(require "helpers.rkt") |
|||
|
|||
(define ip (open-input-file "lazyplay.sexp")) |
|||
(read-syntax "~/lisp/lazyplay/lazyplay.sexp" ip) |
|||
(define parsed |
|||
(read ip)) |
|||
(close-input-port ip) |
|||
|
|||
(define settings (make-hash)) |
|||
(update settings parsed) |
|||
|
@ -0,0 +1,16 @@ |
|||
#! /usr/bin/env racket |
|||
#lang racket |
|||
|
|||
(define (update htable settings) |
|||
(cond ((null? settings) htable) |
|||
(else (map (lambda (setting) |
|||
(hash-set! htable (first setting) (second setting))) settings) |
|||
htable))) |
|||
|
|||
(define (partial f x) |
|||
(lambda (y) (f x y))) |
|||
|
|||
(define (flip f) |
|||
(lambda (y x) (f x y))) |
|||
|
|||
(provide (all-defined-out)) |
@ -1,4 +1,2 @@ |
|||
( |
|||
("player" "mplayer") |
|||
("filetype" "avi") |
|||
) |
|||
(("player" "mplayer") |
|||
("filetypes" ("avi" "mp4"))) |
Reference in new issue