chat-cli: absolute parity wrt "shortcodes"
Downgrades unmanaged chat paths to their uglified versions, as used by
web chat. Removes "group-based" indicators and makes them implicit in
shorter paths instead.
++ tag |*(a=@tas (cold a (jest a))) ::TODO into stdlib
++ ship ;~(pfix sig fed:ag)
++ path ;~(pfix net ;~(plug urs:ab (easy ~))) ::NOTE short only, tmp
+ :: +mang: un/managed indicator prefix
+ ::
+ ++ mang
+ ;~ pose
+ (cold %| (jest '~/'))
+ (cold %& (easy ~))
+ ==
:: +tarl: local target, as /path
::
++ tarl (stag our-self path)
- :: +tarx: local target, maybe group
+ :: +tarx: local target, maybe managed
::
- ++ tarx ;~(plug (fuss 'group ' '') path)
+ ++ tarx ;~(plug mang path)
:: +tarp: sponsor target, as ^/path
::
++ tarp
++ targ
;~ pose
;~ plug
- (fuss 'group ' '')
+ mang
+ ::
;~ pose
tarl
tarp
++ full
^- tape
;: weld
- ?:(in-group.one "g " "")
+ ?:(in-group.one "" "~/")
(scow %p ship.one)
(spud path.one)
==
++ phat
^- tape
%+ weld
- ?:(in-group.one "g " "")
+ ?:(in-group.one "" "~/")
%+ weld
?: =(our-self ship.one) ~
?: =((sein:title our.bowl now.bowl our-self) ship.one) "^"
