summaryrefslogtreecommitdiffstats
path: root/aliases.txr
diff options
context:
space:
mode:
Diffstat (limited to 'aliases.txr')
-rw-r--r--aliases.txr6
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)