Miki Tebeka committed 8c28d17

Fixed bug in parse-text

Comments (0)

Files changed (1)

 (def *date-re* #"(\d+)-(\d+)-(\d+)")
 (defn logfile-day 
-  "\"2010-01-01\" -> #<DateTime 2010-01-01T00:00:00.000Z>"
+  "\"logs/2010-01-01.html\" -> #<DateTime 2010-01-01T00:00:00.000Z>"
   (let [[match year month day] (re-find *date-re* logfile)]
     (apply date-time (map str->long [year month day]))))
   "\"21:38 chouser: great, thanks!\" -> 
       [\"21:38\" \"chouser:\" \"great, thanks!\"]"
-  (rest (re-find #"^(\d+):(\d+)(.+:)?(.*)" text)))
+  (rest (re-find #"^(\d+):(\d+)([^:]+:)?(.*)" text)))
 (defn process-p
   "Process a <p>...</p> log recrod, return {:time ... :tokens ... :user ..}"
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.