Mercurial > rlm
annotate src/rlm/identify.clj @ 5:fca75c0e8f40
added stories.clj
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Thu, 01 Mar 2012 05:47:37 -0700 |
| parents | 78a630e650d2 |
| children |
| rev | line source |
|---|---|
| rlm@0 | 1 (ns rlm.identify |
| rlm@0 | 2 "I want to be able to tell what computer I'm using. |
| rlm@0 | 3 I do this with a magic file." |
| rlm@0 | 4 {:author "Robert McIntyre"} |
| rlm@0 | 5 (use [clojure [string :only [trim-newline]]])) |
| rlm@0 | 6 |
| rlm@0 | 7 (def magic-file "/home/r/.identify-computer") |
| rlm@0 | 8 |
| rlm@0 | 9 (defn identify [] |
| rlm@0 | 10 (trim-newline (slurp magic-file))) |