Skip to content
Browse files

Cron: records can be prefixed by '-'.

  • Loading branch information...
1 parent afcff9c commit ff2b9b466f97311a38dc6621555ef3a379be3805 @mchf mchf committed with lutter Jul 20, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 lenses/cron.aug
View
5 lenses/cron.aug
@@ -51,6 +51,8 @@ let alpha = /[A-Za-z]{3}/
(* Variable: alphanum *)
let alphanum = (num|alpha) . ("-" . (num|alpha))?
+(* Variable: entry_prefix *)
+let entry_prefix = /-/
(* Group: Separators *)
@@ -77,6 +79,8 @@ let shellvar =
let sto_to_eol = store /[^\n]*[^ \t\n]/ in
[ key key_re . sep_eq . sto_to_eol . eol ]
+(* View: - prefix of an entry *)
+let prefix = [ label "prefix" . store entry_prefix ]
(* View: minute *)
let minute = [ label "minute" . store num ]
@@ -124,6 +128,7 @@ let schedule = [ label "schedule" . Util.del_str "@"
*************************************************************************)
let entry = [ label "entry" . indent
+ . prefix?
. ( time | schedule )
. sep_spc . user
. sep_spc . store Rx.space_in . eol ]

0 comments on commit ff2b9b4

Please sign in to comment.
Something went wrong with that request. Please try again.