Mercurial > hg > egg-tcls
comparison config.feeds.example @ 663:8bde8f798188
feeds: Use command matching helpers.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sat, 20 Feb 2021 17:35:40 +0200 |
parents | bb6aea76cdb4 |
children |
comparison
equal
deleted
inserted
replaced
662:bb6aea76cdb4 | 663:8bde8f798188 |
---|---|
40 | 40 |
41 bind msg - !feed feeds_cmd_msg | 41 bind msg - !feed feeds_cmd_msg |
42 bind msg - !feeds feeds_cmd_msg | 42 bind msg - !feeds feeds_cmd_msg |
43 bind msg - !last feeds_cmd_msg_last | 43 bind msg - !last feeds_cmd_msg_last |
44 bind msg - !latest feeds_cmd_msg_last | 44 bind msg - !latest feeds_cmd_msg_last |
45 } | |
46 | |
47 | |
48 # Sub-command name regexp patterns | |
49 array set feeds_commands { | |
50 "help" {^(\?|help|apua)$} | |
51 "latest" {^(last|latest|uusin?)$} | |
52 "force" {^(force?|fet|fetch)$} | |
53 "list" {^(list|listaa?)$} | |
54 "history" {^(hist|historia)$} | |
55 "all" {^(all|long|kaikki)$} | |
45 } | 56 } |
46 | 57 |
47 | 58 |
48 # Proc for fetching the feeds data, called by fetch_feeds.tcl | 59 # Proc for fetching the feeds data, called by fetch_feeds.tcl |
49 proc feeds_fetch { } { | 60 proc feeds_fetch { } { |