diff options
Diffstat (limited to 'aliases.txr')
| -rw-r--r-- | aliases.txr | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/aliases.txr b/aliases.txr index 43aa715..0cb49ad 100644 --- a/aliases.txr +++ b/aliases.txr @@ -5,6 +5,9 @@ (ifa (stringp alias.creation-time) (set it (int-str it)))) (:method equal (alias) alias.address) + (:method alt-addresses (alias) + (list (regsub #/-/ "." alias.address) + (regsub #/-/ "_" alias.address))) (:method get-decoded-memo (alias) (url-decode alias.memo)) (:method get-html-memo (alias) @@ -68,6 +71,9 @@ # memo @{aliases.memo} # created @{aliases.creation-time} @{aliases.address}: @user +@ (repeat :vars ((alt-ali aliases.(alt-addresses)))) +@{alt-ali}: @user +@ (end) @ (end) # end @ (repeat) |