ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 18:12:47 +03:00
Code Issues Packages Projects Releases Wiki Activity
f0a4bd0369
urbit/pkg/arvo/app/chat-cli.hoon

1219 lines
34 KiB
Plaintext
Raw Normal View History

apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
:: chat-cli: cli chat client using chat-store and friends
::
:: pulls all known messages into a single stream.
:: type ;help for usage instructions.
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
:: note that while the chat-store only cares about paths,
:: we mostly deal with [ship path] (aka target) here.
:: when sending messages (through the chat hook),
:: we concat the ship onto the head of the path,
:: and trust it to take care of the rest.
::
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
/- *chat-store, *chat-view, *chat-hook,
*permission-store, *group-store,
sole-sur=sole
chat: Move eval logic into lib
2019-10-08 21:54:02 +03:00
/+ sole-lib=sole, chat-eval
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
|%
+$ state
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
$: grams=(list mail) :: all messages
known=(set [target serial]) :: known message lookup
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
count=@ud :: (lent grams)
chat-cli: maintain sane glyph binding state This ensures that `binds` is updated to match overwrites in `bounds`.
2019-10-11 00:49:20 +03:00
bound=(map target glyph) :: bound circle glyphs
binds=(jug glyph target) :: circle glyph lookup
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
audience=(set target) :: active targets
settings=(set term) :: frontend flags
width=@ud :: display width
timez=(pair ? @ud) :: timezone adjustment
cli=[=bone state=sole-share:sole-sur] :: console id & state
==
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
+$ mail [source=target envelope]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
+$ target [=ship =path]
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
+$ glyph char
++ glyphs "!@#$%^&()-=_+[]\{};'\\:\",.<>?"
::
+$ command
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
$% [%target (set target)] :: set messaging target
chat-cli: Simplify message command type & logic By dropping support for •-separated multi-messaging, we can simplify the parsing and handling of message sending inputs.
2019-10-08 20:54:26 +03:00
[%say letter] :: send message
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
[%eval cord hoon] :: send #-message
::
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
[%create chat-security path (unit glyph)] :: create chat
chat-cli: Properly support deleting local chats Since the current implementation of ;leave is silently destroying state instead of unsubscribing, we disallow running ;leave on local chats and provide an explicit ;delete instead.
2019-10-08 23:27:43 +03:00
[%delete path] :: delete chat
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
[%invite ?(%r %w %rw) path (set ship)] :: allow
[%banish ?(%r %w %rw) path (set ship)] :: disallow
::
[%join target (unit glyph)] :: join target
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
[%leave target] :: nuke target
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
[%bind glyph target] :: bind glyph
chat-cli: support per-target glyph unbinding
2019-10-11 00:40:08 +03:00
[%unbind glyph (unit target)] :: unbind glyph
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
[%what (unit $@(char target))] :: glyph lookup
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
[%settings ~] :: show active settings
[%set term] :: set settings flag
[%unset term] :: unset settings flag
[%width @ud] :: adjust display width
[%timezone ? @ud] :: adjust time printing
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
[%select $@(rel=@ud [zeros=@u abs=@ud])] :: rel/abs msg selection
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
[%chats ~] :: list available chats
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
[%help ~] :: print usage info
== ::
::
+$ move [bone card]
+$ card
$% [%diff %sole-effect sole-effect:sole-sur]
[%poke wire dock out-action]
[%peer wire dock path]
==
::
+$ out-action
$% [%chat-action chat-action]
[%chat-view-action chat-view-action]
[%chat-hook-action chat-hook-action]
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
[%group-action group-action]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
==
--
::
|_ [=bowl:gall state]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ this .
:: +prep: setup & state adapter
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
++ prep
|= old=(unit state)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
?^ old
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
[~ this(+<+ u.old)]
chat-cli: Subscribe to /updates instead of /all On first boot (and debug poke) we scry for /all to ensure we know all messages.
2019-10-08 22:59:25 +03:00
=^ moves this
%_ catch-up
audience [[our-self /] ~ ~]
settings (sy %showtime %notify ~)
width 80
==
[[connect moves] this]
:: +catch-up: process all chat-store state
::
++ catch-up
^- (quip move _this)
=/ =inbox
.^ inbox
%gx
(scot %p our.bowl)
%chat-store
(scot %da now.bowl)
/all/noun
==
|- ^- (quip move _this)
?~ inbox [~ this]
=* path p.n.inbox
=* mailbox q.n.inbox
=/ =target (path-to-target path)
chat-cli: Cosmetic improvements Better variable naming. Trailing newline.
2019-10-09 00:00:46 +03:00
=^ moves-n this (read-envelopes target envelopes.mailbox)
=^ moves-l this $(inbox l.inbox)
=^ moves-r this $(inbox r.inbox)
[:(weld moves-n moves-l moves-r) this]
chat-cli: Add debug poke for connecting to store
2019-10-07 21:46:35 +03:00
:: +connect: connect to the chat-store
::
++ connect
^- move
chat-cli: Subscribe to /updates instead of /all On first boot (and debug poke) we scry for /all to ensure we know all messages.
2019-10-08 22:59:25 +03:00
[ost.bowl %peer /chat-store [our-self %chat-store] /updates]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +true-self: moons to planets
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
++ true-self
|= who=ship
^- ship
?. ?=(%earl (clan:title who)) who
(sein:title our.bowl now.bowl who)
++ our-self (true-self our.bowl)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +target-to-path: prepend ship to the path
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
++ target-to-path
|= target
chat-cli: Match store and hook's path handling Now prefixes the host ship to the path, and parses it back out, only when appropriate.
2019-10-08 17:18:20 +03:00
[(scot %p ship) path]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +path-to-target: deduces a target from a mailbox path
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ path-to-target
|= =path
^- target
?. ?=([@ @ *] path)
chat-cli: Cosmetic improvements Better variable naming. Trailing newline.
2019-10-09 00:00:46 +03:00
::TODO can we safely assert the above?
~& [%path-without-host path]
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
[our-self path]
=+ who=(slaw %p i.path)
?~ who [our-self path]
chat-cli: Match store and hook's path handling Now prefixes the host ship to the path, and parses it back out, only when appropriate.
2019-10-08 17:18:20 +03:00
[u.who t.path]
chat-cli: Add debug poke for connecting to store
2019-10-07 21:46:35 +03:00
:: +poke-noun: debug helpers
::
++ poke-noun
|= a=*
^- (quip move _this)
?: ?=(%connect a)
[[connect ~] this]
chat-cli: Subscribe to /updates instead of /all On first boot (and debug poke) we scry for /all to ensure we know all messages.
2019-10-08 22:59:25 +03:00
?: ?=(%catch-up a)
catch-up
chat-cli: Add debug poke for connecting to store
2019-10-07 21:46:35 +03:00
[~ this]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +poke-sole-action: handle cli input
::
++ poke-sole-action
|= act=sole-action:sole-sur
^- (quip move _this)
?. =(bone.cli ost.bowl)
~|(%strange-sole !!)
(sole:sh-in act)
:: +peer: accept only cli subscriptions from ourselves
::
++ peer
|= =path
^- (quip move _this)
?. (team:title our-self src.bowl)
~| [%peer-talk-stranger src.bowl]
!!
?. ?=([%sole *] path)
~| [%peer-talk-strange path]
!!
=. bone.cli ost.bowl
:: display a fresh prompt
:- [prompt:sh-out ~]
:: start with fresh sole state
this(state.cli *sole-share:sole-sur)
:: +diff-chat-update: get new mailboxes & messages
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
++ diff-chat-update
|= [=wire upd=chat-update]
^- (quip move _this)
?+ -.upd [~ this]
chat-cli: Match store and hook's path handling Now prefixes the host ship to the path, and parses it back out, only when appropriate.
2019-10-08 17:18:20 +03:00
%create (notice-create +.upd)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
%delete [[(show-delete:sh-out (path-to-target path.upd)) ~] this]
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%message (read-envelope (path-to-target path.upd) envelope.upd)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
==
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ read-envelopes
|= [=target envs=(list envelope)]
^- (quip move _this)
?~ envs [~ this]
chat-cli: Cosmetic improvements Better variable naming. Trailing newline.
2019-10-09 00:00:46 +03:00
=^ moves-i this (read-envelope target i.envs)
=^ moves-t this $(envs t.envs)
[(weld moves-i moves-t) this]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
++ notice-create
|= =target
^- (quip move _this)
chat-cli: Cosmetic improvements Better variable naming. Trailing newline.
2019-10-09 00:00:46 +03:00
=^ moves this
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
?: (~(has by bound) target)
[~ this]
(bind-default-glyph target)
chat-cli: Cosmetic improvements Better variable naming. Trailing newline.
2019-10-09 00:00:46 +03:00
[[(show-create:sh-out target) moves] this]
chat-cli: try not to double-bind glyphs Try to use the default glyph. If that is already in use, random available glyph. If there's none available, the default glyph.
2019-10-10 23:38:18 +03:00
:: +bind-default-glyph: bind to default, or random available
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ bind-default-glyph
|= =target
^- (quip move _this)
chat-cli: try not to double-bind glyphs Try to use the default glyph. If that is already in use, random available glyph. If there's none available, the default glyph.
2019-10-10 23:38:18 +03:00
=; =glyph (bind-glyph glyph target)
|^ =/ g=glyph (choose glyphs)
?. (~(has by binds) g) g
=/ available=(list glyph)
%~ tap in
(~(dif in `(set glyph)`(sy glyphs)) ~(key by binds))
?~ available g
(choose available)
++ choose
|= =(list glyph)
=; i=@ud (snag i list)
(mod (mug target) (lent list))
--
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +bind-glyph: add binding for glyph
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ bind-glyph
|= [=glyph =target]
^- (quip move _this)
::TODO should send these to settings store eventually
chat-cli: maintain sane glyph binding state This ensures that `binds` is updated to match overwrites in `bounds`.
2019-10-11 00:49:20 +03:00
:: if the target was already bound to another glyph, un-bind that
::
=? binds (~(has by bound) target)
(~(del ju binds) (~(got by bound) target) target)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
=. bound (~(put by bound) target glyph)
=. binds (~(put ju binds) glyph target)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
[(show-glyph:sh-out glyph `target) this]
:: +unbind-glyph: remove all binding for glyph
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ unbind-glyph
chat-cli: support per-target glyph unbinding
2019-10-11 00:40:08 +03:00
|= [=glyph targ=(unit target)]
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
^- (quip move _this)
chat-cli: support per-target glyph unbinding
2019-10-11 00:40:08 +03:00
?^ targ
=. binds (~(del ju binds) glyph u.targ)
=. bound (~(del by bound) u.targ)
[(show-glyph:sh-out glyph ~) this]
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
=/ ole=(set target)
(~(get ju binds) glyph)
=. binds (~(del by binds) glyph)
=. bound
|-
?~ ole bound
=. bound $(ole l.ole)
=. bound $(ole r.ole)
(~(del by bound) n.ole)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
[(show-glyph:sh-out glyph ~) this]
:: +decode-glyph: find the target that matches a glyph, if any
::
++ decode-glyph
|= =glyph
^- (unit target)
=+ lax=(~(get ju binds) glyph)
chat-cli: properly decode double-bound glyphs Resolves glyph to most recently seen target.
2019-10-10 23:39:41 +03:00
:: no circle
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
?: =(~ lax) ~
chat-cli: properly decode double-bound glyphs Resolves glyph to most recently seen target.
2019-10-10 23:39:41 +03:00
%- some
:: single circle
?: ?=([* ~ ~] lax) n.lax
:: in case of multiple audiences, pick the most recently active one
|- ^- target
?~ grams -:~(tap in lax)
=* source source.i.grams
?: (~(has in lax) source)
source
$(grams t.grams)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +read-envelope: add envelope to state and show it to user
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
++ read-envelope
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
|= [=target =envelope]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- (quip move _this)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
?: (~(has in known) [target uid.envelope])
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::NOTE we no-op only because edits aren't possible
[~ this]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:- (show-envelope:sh-out target envelope)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
%_ this
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
known (~(put in known) [target uid.envelope])
grams [[target envelope] grams]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
count +(count)
==
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +sh-in: handle user input
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ sh-in
::NOTE interestingly, adding =, sh-out breaks compliation
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
|%
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +sole: apply sole action
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
++ sole
|= act=sole-action:sole-sur
^- (quip move _this)
?- -.act
$det (edit +.act)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
$clr [~ this]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
$ret obey
==
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +edit: apply sole edit
::
:: called when typing into the cli prompt.
:: applies the change and does sanitizing.
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
++ edit
|= cal=sole-change:sole-sur
^- (quip move _this)
=^ inv state.cli (~(transceive sole-lib state.cli) cal)
=+ fix=(sanity inv buf.state.cli)
?~ lit.fix
[~ this]
:: just capital correction
?~ err.fix
(slug fix)
:: allow interior edits and deletes
?. &(?=($del -.inv) =(+(p.inv) (lent buf.state.cli)))
[~ this]
(slug fix)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +sanity: check input sanity
::
:: parses cli prompt using +read.
:: if invalid, produces error correction description, for use with +slug.
::
++ sanity
|= [inv=sole-edit:sole-sur buf=(list @c)]
^- [lit=(list sole-edit:sole-sur) err=(unit @u)]
=+ res=(rose (tufa buf) read)
?: ?=(%& -.res) [~ ~]
[[inv]~ `p.res]
:: +slug: apply error correction to prompt input
::
++ slug
|= [lit=(list sole-edit:sole-sur) err=(unit @u)]
^- (quip move _this)
?~ lit [~ this]
=^ lic state.cli
%- ~(transmit sole-lib state.cli)
^- sole-edit:sole-sur
?~(t.lit i.lit [%mor lit])
:_ this
:_ ~
%+ effect:sh-out %mor
:- [%det lic]
?~(err ~ [%err u.err]~)
:: +read: command parser
::
:: parses the command line buffer.
:: produces commands which can be executed by +work.
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
++ read
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
|^
%+ knee *command |. ~+
=- ;~(pose ;~(pfix mic -) message)
;~ pose
(stag %target tars)
::
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
;~ (glue ace)
(tag %create)
security
;~(plug path (punt ;~(pfix ace glyph)))
==
chat-cli: Properly support deleting local chats Since the current implementation of ;leave is silently destroying state instead of unsubscribing, we disallow running ;leave on local chats and provide an explicit ;delete instead.
2019-10-08 23:27:43 +03:00
;~((glue ace) (tag %delete) path)
;~((glue ace) (tag %invite) rw path ships)
;~((glue ace) (tag %banish) rw path ships)
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
;~((glue ace) (tag %join) ;~(plug targ (punt ;~(pfix ace glyph))))
;~((glue ace) (tag %leave) targ)
::
;~((glue ace) (tag %bind) glyph targ)
chat-cli: support per-target glyph unbinding
2019-10-11 00:40:08 +03:00
;~((glue ace) (tag %unbind) ;~(plug glyph (punt ;~(pfix ace targ))))
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
;~(plug (perk %what ~) (punt ;~(pfix ace ;~(pose glyph targ))))
::
;~(plug (tag %settings) (easy ~))
;~((glue ace) (tag %set) flag)
;~((glue ace) (tag %unset) flag)
;~(plug (cold %width (jest 'set width ')) dem:ag)
;~ plug
(cold %timezone (jest 'set timezone '))
;~ pose
(cold %| (just '-'))
(cold %& (just '+'))
==
%+ sear
|= a=@ud
^- (unit @ud)
?:(&((gte a 0) (lte a 14)) `a ~)
dem:ag
==
::
;~(plug (tag %chats) (easy ~))
;~(plug (tag %help) (easy ~))
::
(stag %select nump)
==
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
::TODO
:: ++ cmd
:: |* [cmd=term req=(list rule) opt=(list rule)]
:: |^ ;~ plug
:: (tag cmd)
:: ::
:: ::TODO this feels slightly too dumb
:: ?~ req
:: ?~ opt (easy ~)
:: (opt-rules opt)
:: ?~ opt (req-rules req)
:: ;~(plug (req-rules req) (opt-rules opt)) ::TODO rest-loop
:: ==
:: ++ req-rules
:: |* req=(lest rule)
:: =- ;~(pfix ace -)
:: ?~ t.req i.req
:: ;~(plug i.req $(req t.req))
:: ++ opt-rules
:: |* opt=(lest rule)
:: =- (punt ;~(pfix ace -))
:: ?~ t.opt ;~(pfix ace i.opt)
:: ;~(pfix ace ;~(plug i.opt $(opt t.opt)))
:: --
::
++ tag |*(a=@tas (cold a (jest a))) ::TODO into stdlib
++ ship ;~(pfix sig fed:ag)
++ path ;~(pfix net (most net urs:ab))
:: +tarl: local target, as /path
::
++ tarl (stag our-self path)
:: +tarp: sponsor target, as ^/path
::
++ tarp
=- ;~(pfix ket (stag - path))
(sein:title our.bowl now.bowl our-self)
:: +targ: any target, as tarl, tarp, ~ship/path or glyph
::
++ targ
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
;~ pose
tarl
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
tarp
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
;~(plug ship path)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
(sear decode-glyph glyph)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
==
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +tars: set of comma-separated targs
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ tars
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
%+ cook ~(gas in *(set target))
(most ;~(plug com (star ace)) targ)
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
:: +ships: set of comma-separated ships
::
++ ships
%+ cook ~(gas in *(set ^ship))
(most ;~(plug com (star ace)) ship)
::
:: +security: security mode
::
++ security
(perk %channel %village %journal %mailbox ~)
:: +rw: read, write, or read-write
::
++ rw
(perk %rw %r %w ~)
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +glyph: shorthand character
::
++ glyph (mask glyphs)
:: +flag: valid flag
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ flag
%- perk :~
%notify
%showtime
==
:: +nump: message number reference
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ nump
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
;~ pose
;~(pfix hep dem:ag)
;~ plug
(cook lent (plus (just '0')))
;~(pose dem:ag (easy 0))
==
(stag 0 dem:ag)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
(cook lent (star mic))
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
==
chat-cli: Simplify message command type & logic By dropping support for •-separated multi-messaging, we can simplify the parsing and handling of message sending inputs.
2019-10-08 20:54:26 +03:00
:: +message: all messages
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ message
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
;~ pose
;~(plug (cold %eval hax) expr)
chat-cli: Simplify message command type & logic By dropping support for •-separated multi-messaging, we can simplify the parsing and handling of message sending inputs.
2019-10-08 20:54:26 +03:00
(stag %say letter)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
==
chat-cli: Simplify message command type & logic By dropping support for •-separated multi-messaging, we can simplify the parsing and handling of message sending inputs.
2019-10-08 20:54:26 +03:00
:: +letter: simple messages
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Simplify message command type & logic By dropping support for •-separated multi-messaging, we can simplify the parsing and handling of message sending inputs.
2019-10-08 20:54:26 +03:00
++ letter
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
;~ pose
chat-cli: Support %url and %me message types
2019-10-07 21:45:58 +03:00
(stag %url turl)
:(stag %me ;~(pfix vat text))
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
:(stag %text ;~(less mic hax text))
==
chat-cli: Support %url and %me message types
2019-10-07 21:45:58 +03:00
:: +turl: url parser
::
++ turl
=- (sear - text)
|= t=cord
^- (unit cord)
?~((rush t aurf:de-purl:html) ~ `t)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +text: text message body
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ text
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
%+ cook crip
(plus ;~(less (jest '•') next))
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +expr: parse expression into [cord hoon]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ expr
|= tub=nail
%. tub
%+ stag (crip q.tub)
wide:(vang & [&1:% &2:% (scot %da now.bowl) |3:%])
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
--
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +obey: apply result
::
:: called upon hitting return in the prompt.
:: if input is invalid, +slug is called.
:: otherwise, the appropriate work is done and
:: the command (if any) gets echoed to the user.
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
++ obey
^- (quip move _this)
=+ buf=buf.state.cli
=+ fix=(sanity [%nop ~] buf)
?^ lit.fix
(slug fix)
=+ jub=(rust (tufa buf) read)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
?~ jub [[(effect:sh-out %bel ~) ~] this]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
=^ cal state.cli (~(transmit sole-lib state.cli) [%set ~])
=^ moves this (work u.jub)
:_ this
%+ weld
^- (list move)
:: echo commands into scrollback
?. =(`0 (find ";" buf)) ~
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
[(note:sh-out (tufa `(list @)`buf)) ~]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
:_ moves
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
%+ effect:sh-out %mor
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
:~ [%nex ~]
[%det cal]
==
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +work: run user command
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
++ work
|= job=command
^- (quip move _this)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
|^ ?- -.job
%target (set-target +.job)
%say (say +.job)
%eval (eval +.job)
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
::
%create (create +.job)
chat-cli: Properly support deleting local chats Since the current implementation of ;leave is silently destroying state instead of unsubscribing, we disallow running ;leave on local chats and provide an explicit ;delete instead.
2019-10-08 23:27:43 +03:00
%delete (delete +.job)
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
%invite (change-permission & +.job)
%banish (change-permission | +.job)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
%join (join +.job)
%leave (leave +.job)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
%bind (bind-glyph +.job)
%unbind (unbind-glyph +.job)
%what (lookup-glyph +.job)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%settings show-settings
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
%set (set-setting +.job)
%unset (unset-setting +.job)
%width (set-width +.job)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%timezone (set-timezone +.job)
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
%select (select +.job)
%chats chats
%help help
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
==
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +act: build action move
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
++ act
|= [what=term app=term =out-action]
^- move
:* ost.bowl
%poke
/cli-command/[what]
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
[our-self app]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
out-action
==
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +set-target: set audience, update prompt
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
++ set-target
|= tars=(set target)
^- (quip move _this)
=. audience tars
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
[[prompt:sh-out ~] this]
:: +create: new local mailbox
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
++ create
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
|= [security=chat-security =path gyf=(unit char)]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- (quip move _this)
::TODO check if already exists
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
=/ =target [our-self path]
chat-cli: Update prompt on-create Creating a mailbox would refresh the prompt before setting a new audience, instead of after. This change corrects the behavior. Also updates glyph binding code and print style.
2019-10-08 17:15:19 +03:00
=. audience [target ~ ~]
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
=^ moz this
?. ?=(^ gyf) [~ this]
(bind-glyph u.gyf target)
chat-cli: Update prompt on-create Creating a mailbox would refresh the prompt before setting a new audience, instead of after. This change corrects the behavior. Also updates glyph binding code and print style.
2019-10-08 17:15:19 +03:00
=- [[- moz] this]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
%^ act %do-create %chat-view
:- %chat-view-action
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
:^ %create path security
:: ensure we can read from/write to our own chats
::
:- :: read
?- security
?(%channel %journal) ~
?(%village %mailbox) [our-self ~ ~]
==
:: write
?- security
?(%channel %mailbox) ~
?(%village %journal) [our-self ~ ~]
==
chat-cli: Properly support deleting local chats Since the current implementation of ;leave is silently destroying state instead of unsubscribing, we disallow running ;leave on local chats and provide an explicit ;delete instead.
2019-10-08 23:27:43 +03:00
:: +delete: delete local chats
::
++ delete
|= =path
^- (quip move _this)
=- [[- ~] this]
%^ act %do-delete %chat-view
:- %chat-view-action
[%delete (target-to-path our-self path)]
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
:: +change-permission: modify permissions on a local chat
::
++ change-permission
|= [allow=? rw=?(%r %w %rw) =path ships=(set ship)]
^- (quip move _this)
:_ this
%+ murn
^- (list term)
?- rw
%r [%read ~]
%w [%write ~]
%rw [%read %write ~]
==
|= =term
^- (unit move)
=. path
=- (snoc `^path`- term)
[%chat (target-to-path our-self path)]
chat-cli: Add clarity
2019-10-09 01:06:39 +03:00
:: whitelist: empty if no matching permission, else true if whitelist
::
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
=/ whitelist=(unit ?)
chat-cli: Add clarity
2019-10-09 01:06:39 +03:00
=; perm=(unit permission)
?~(perm ~ `?=(%white kind.u.perm))
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
::TODO +permission-of-target?
.^ (unit permission)
%gx
(scot %p our-self)
%permission-store
(scot %da now.bowl)
%permission
(snoc path %noun)
==
?~ whitelist
~& [%weird-no-permission path]
~
%- some
%^ act %do-permission %group-store
^- out-action
:- %group-action
?: =(u.whitelist allow)
[%add ships path]
[%remove ships path]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +join: sync with remote mailbox
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
++ join
|= [=target gyf=(unit char)]
^- (quip move _this)
=^ moz this
?. ?=(^ gyf) [~ this]
(bind-glyph u.gyf target)
=- [[- moz] this(audience [target ~ ~])]
chat-cli: Implement permission management Set security type during ;create. Use ;invite and ;banish to dis/allow ships from reading and/or writing. Talks to the group-store to modify permission groups. Scries into permission-store to check for white- vs blacklist.
2019-10-08 20:26:30 +03:00
::TODO ideally we'd check permission first. attempting this and failing
:: gives ugly %chat-hook-reap
apps: added permission hook and chat-view %join action
2019-10-08 23:08:53 +03:00
%^ act %do-join %chat-view
:- %chat-view-action
[%join target]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +leave: unsync & destroy mailbox
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
chat-cli: Properly support deleting local chats Since the current implementation of ;leave is silently destroying state instead of unsubscribing, we disallow running ;leave on local chats and provide an explicit ;delete instead.
2019-10-08 23:27:43 +03:00
::TODO allow us to "mute" local chats using this
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
++ leave
|= =target
=- [[- ~] this]
chat-cli: Properly support deleting local chats Since the current implementation of ;leave is silently destroying state instead of unsubscribing, we disallow running ;leave on local chats and provide an explicit ;delete instead.
2019-10-08 23:27:43 +03:00
?: =(our-self ship.target)
%- print:sh-out
"can't ;leave local chats, maybe use ;delete instead"
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%^ act %do-leave %chat-hook
:- %chat-hook-action
[%remove (target-to-path target)]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +say: send messages
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
++ say
chat-cli: Simplify message command type & logic By dropping support for •-separated multi-messaging, we can simplify the parsing and handling of message sending inputs.
2019-10-08 20:54:26 +03:00
|= =letter
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- (quip move _this)
=/ =serial (shaf %msg-uid eny.bowl)
:_ this(eny.bowl (shax eny.bowl))
^- (list move)
%+ turn ~(tap in audience)
|= =target
%^ act %out-message %chat-hook
:- %chat-action
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
:+ %message (target-to-path target)
chat-cli: Simplify message command type & logic By dropping support for •-separated multi-messaging, we can simplify the parsing and handling of message sending inputs.
2019-10-08 20:54:26 +03:00
[serial *@ our-self now.bowl letter]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +eval: run hoon, send code and result as message
::
:: this double-virtualizes and clams to disable .^ for security reasons
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
++ eval
|= [txt=cord exe=hoon]
chat: Move eval logic into lib
2019-10-08 21:54:02 +03:00
(say %code txt (eval:chat-eval bowl exe))
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +lookup-glyph: print glyph info for all, glyph or target
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ lookup-glyph
|= qur=(unit $@(glyph target))
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- (quip move _this)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
=- [[- ~] this]
?^ qur
?^ u.qur
=+ gyf=(~(get by bound) u.qur)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
(print:sh-out ?~(gyf "none" [u.gyf]~))
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
=+ pan=~(tap in (~(get ju binds) `@t`u.qur))
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
?: =(~ pan) (print:sh-out "~")
=< (effect:sh-out %mor (turn pan .))
|=(t=target [%txt ~(phat tr t)])
%- print-more:sh-out
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%- ~(rep by binds)
|= $: [=glyph tars=(set target)]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
lis=(list tape)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
==
%+ weld lis
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
^- (list tape)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%- ~(rep in tars)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
|= [t=target l=(list tape)]
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%+ weld l
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
^- (list tape)
[glyph ' ' ~(phat tr t)]~
:: +show-settings: print enabled flags, timezone and width settings
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ show-settings
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- (quip move _this)
:_ this
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:~ %- print:sh-out
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%- zing
^- (list tape)
:- "flags: "
%+ ^join ", "
(turn `(list @t)`~(tap in settings) trip)
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
%- print:sh-out
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%+ weld "timezone: "
^- tape
:- ?:(p.timez '+' '-')
(scow %ud q.timez)
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
(print:sh-out "width: {(scow %ud width)}")
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
==
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +set-setting: enable settings flag
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ set-setting
|= =term
^- (quip move _this)
[~ this(settings (~(put in settings) term))]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +unset-setting: disable settings flag
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ unset-setting
|= =term
^- (quip move _this)
[~ this(settings (~(del in settings) term))]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +set-width: configure cli printing width
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ set-width
|= w=@ud
[~ this(width w)]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +set-timezone: configure timestamp printing adjustment
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ set-timezone
|= tz=[? @ud]
[~ this(timez tz)]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +select: expand message from number reference
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ select
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
::NOTE rel is the nth most recent message,
:: abs is the last message whose numbers ends in n
:: (with leading zeros used for precision)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
|= num=$@(rel=@ud [zeros=@u abs=@ud])
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
^- (quip move _this)
|^ ?@ num
=+ tum=(scow %s (new:si | +(num)))
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
?: (gte rel.num count)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%- just-print
"{tum}: no such telegram"
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
(activate tum rel.num)
?. (gte abs.num count)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
?: =(count 0)
(just-print "0: no messages")
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
=+ msg=(index (dec count) num)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
(activate (scow %ud msg) (sub count +(msg)))
%- just-print
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
"…{(reap zeros.num '0')}{(scow %ud abs.num)}: no such telegram"
:: +just-print: full [moves state] output with a single print move
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ just-print
|= txt=tape
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
[[(print:sh-out txt) ~] this]
:: +index: get message index from absolute reference
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ index
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
|= [max=@ud nul=@u fin=@ud]
^- @ud
=+ dog=|-(?:(=(0 fin) 1 (mul 10 $(fin (div fin 10)))))
=. dog (mul dog (pow 10 nul))
=- ?:((lte - max) - (sub - dog))
(add fin (sub max (mod max dog)))
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +activate: echo message selector and print details
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ activate
|= [number=tape index=@ud]
^- (quip move _this)
=+ gam=(snag index grams)
=. audience [source.gam ~ ~]
:_ this
^- (list move)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:~ (print:sh-out ['?' ' ' number])
(effect:sh-out ~(render-activate mr gam))
prompt:sh-out
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
==
--
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +chats: display list of local mailboxes
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ chats
^- (quip move _this)
:_ this
:_ ~
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
%- print-more:sh-out
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
=/ all
::TODO refactor
::TODO remote scries fail... but moon support?
.^ (set path)
%gx
/(scot %p our-self)/chat-store/(scot %da now.bowl)/keys/noun
==
%+ turn ~(tap in all)
%+ cork path-to-target
|= target
(weld (scow %p ship) (spud path))
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +help: print (link to) usage instructions
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ help
^- (quip move _this)
=- [[- ~] this]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
(print:sh-out "see https://urbit.org/docs/using/messaging/")
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
--
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
--
::
:: +sh-out: output to the cli
::
++ sh-out
|%
:: +effect: console effect move
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ effect
|= fec=sole-effect:sole-sur
^- move
[bone.cli %diff %sole-effect fec]
:: +print: puts some text into the cli as-is
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ print
|= txt=tape
^- move
(effect %txt txt)
:: +print-more: puts lines of text into the cli
::
++ print-more
|= txs=(list tape)
^- move
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
%+ effect %mor
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
(turn txs |=(t=tape [%txt t]))
:: +note: prints left-padded ---| txt
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ note
|= txt=tape
^- move
=+ lis=(simple-wrap txt (sub width 16))
%- print-more
=+ ?:((gth (lent lis) 0) (snag 0 lis) "")
:- (runt [14 '-'] '|' ' ' -)
%+ turn (slag 1 lis)
|=(a=tape (runt [14 ' '] '|' ' ' a))
:: +prompt: update prompt to display current audience
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ prompt
^- move
%+ effect %pro
:+ & %talk-line
^- tape
=- ?: =(1 (lent -)) "{-} "
"[{-}] "
=/ all
%+ sort ~(tap in audience)
|= [a=target b=target]
(~(beat tr a) b)
=+ fir=&
|- ^- tape
?~ all ~
;: welp
?:(fir "" " ")
~(show tr i.all)
$(all t.all, fir |)
==
:: +show-envelope: print incoming message
::
:: every five messages, prints the message number also.
:: if the message mentions the user's (shortened) ship name,
:: and the %notify flag is set, emit a bell.
::
++ show-envelope
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
|= [=target =envelope]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- (list move)
%+ weld
^- (list move)
?. =(0 (mod count 5)) ~
:_ ~
=+ num=(scow %ud count)
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%- print
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
(runt [(sub 13 (lent num)) '-'] "[{num}]")
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
=+ lis=~(render-inline mr target envelope)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
?~ lis ~
:_ ~
%+ effect %mor
%+ turn `(list tape)`lis
=+ nom=(scag 7 (cite:title our-self))
|= t=tape
?. ?& (~(has in settings) %notify)
?=(^ (find nom (slag 15 t)))
==
[%txt t]
[%mor [%txt t] [%bel ~] ~]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +show-create: print mailbox creation notification
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ show-create
|= =target
^- move
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
(note "new: {~(phat tr target)}")
:: +show-delete: print mailbox deletion notification
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ show-delete
|= =target
^- move
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
(note "del: {~(phat tr target)}")
:: +show-glyph: print glyph un/bind notification
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
++ show-glyph
|= [=glyph target=(unit target)]
^- (list move)
chat-cli: Update prompt on-create Creating a mailbox would refresh the prompt before setting a new audience, instead of after. This change corrects the behavior. Also updates glyph binding code and print style.
2019-10-08 17:15:19 +03:00
:_ [prompt ~]
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%- note
chat-cli: Update prompt on-create Creating a mailbox would refresh the prompt before setting a new audience, instead of after. This change corrects the behavior. Also updates glyph binding code and print style.
2019-10-08 17:15:19 +03:00
%+ weld "set: {[glyph ~]} "
chat-cli: support per-target glyph unbinding
2019-10-11 00:40:08 +03:00
?~ target "unbound"
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
~(phat tr u.target)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
--
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +tr: render targets
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ tr
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
|_ :: one: the target.
::
one=target
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +beat: true if one is more "relevant" than two
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ beat
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
|= two=target
^- ?
:: the target that's ours is better.
?: =(our-self ship.one)
?. =(our-self ship.two) &
?< =(path.one path.two)
:: if both targets are ours, the main story is better.
?: =(%inbox path.one) &
?: =(%inbox path.two) |
:: if neither are, pick the "larger" one.
(lth (lent path.one) (lent path.two))
:: if one isn't ours but two is, two is better.
?: =(our-self ship.two) |
?: =(ship.one ship.two)
:: if they're from the same ship, pick the "larger" one.
(lth (lent path.one) (lent path.two))
:: if they're from different ships, neither ours, pick hierarchically.
(lth (xeb ship.one) (xeb ship.two))
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +phat: render target fully
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: renders as ~ship/path.
:: for local mailboxes, renders just /path.
:: for sponsor's mailboxes, renders ^/path.
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
::NOTE but, given current implementation, all will be local
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ phat
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- tape
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
%+ weld
?: =(our-self ship.one) ~
?: =((sein:title our.bowl now.bowl our-self) ship.one) "^"
(scow %p ship.one)
(spud path.one)
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +show: render as tape, as glyph if we can
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ show
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- tape
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
=+ cha=(~(get by bound) one)
?~(cha phat "{u.cha ~}")
:: +glyph: tape for glyph of target, defaulting to *
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ glyph
chat-cli: Make more fully-featured Brings it largely up to parity with Talk, save for features relating to: - presence & nicknames - circle management (permissions, sources) - deprecated message types In addition to implementing remaining functionality for basic usage patterns, makes the following changes: - glyphs per target, not multiple targets - assume /~ship/path paths are created/used by the chat-hook Code cleanup pending.
2019-10-04 23:38:22 +03:00
^- tape
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
[(~(gut by bound) one '*') ~]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
--
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +mr: render messages
::
++ mr
|_ $: source=target
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
envelope
==
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +activate: produce sole-effect for printing message details
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ render-activate
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- sole-effect:sole-sur
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
~[%mor [%tan meta] body]
:: +meta: render message metadata (serial, timestamp, author, target)
::
++ meta
^- tang
=. when (sub when (mod when (div when ~s0..0001))) :: round
=+ hed=leaf+"{(scow %uv uid)} at {(scow %da when)}"
=/ src=tape ~(phat tr source)
[%rose [" " ~ ~] [hed >author< [%rose [", " "to " ~] [leaf+src]~] ~]]~
:: +body: long-form render of message contents
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ body
|- ^- sole-effect:sole-sur
?- -.letter
chat-cli: Support %url and %me message types
2019-10-07 21:45:58 +03:00
?(%text %me)
=/ pre=tape ?:(?=(%me -.letter) "@ " "")
tan+~[leaf+"{pre}{(trip +.letter)}"]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
%url
url+url.letter
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
%code
=/ texp=tape ['>' ' ' (trip expression.letter)]
:- %mor
|- ^- (list sole-effect:sole-sur)
?: =("" texp) [tan+output.letter ~]
=/ newl (find "\0a" texp)
?~ newl [txt+texp $(texp "")]
=+ (trim u.newl texp)
:- txt+(scag u.newl texp)
$(texp [' ' ' ' (slag +(u.newl) texp)])
==
:: +render-inline: produces lines to display message body in scrollback
::
++ render-inline
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- (list tape)
=/ wyd
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: termwidth,
%+ sub width
:: minus autor,
%+ add 14
:: minus timestamp.
?:((~(has in settings) %showtime) 10 0)
=+ txs=(line wyd)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
?~ txs ~
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: nom: rendered author
:: den: regular indent
:: tam: timestamp, if desired
::
=/ nom=tape (nome author)
=/ den=tape (reap (lent nom) ' ')
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
=/ tam=tape
?. (~(has in settings) %showtime) ""
=. when
%. [when (mul q.timez ~h1)]
?:(p.timez add sub)
=+ dat=(yore when)
=/ t
|= a/@
%+ weld
?:((lth a 10) "0" ~)
(scow %ud a)
=/ time
;: weld
"~" (t h.t.dat)
"." (t m.t.dat)
"." (t s.t.dat)
==
%+ weld
(reap (sub +(wyd) (min wyd (lent (tuba i.txs)))) ' ')
time
%- flop
%+ roll `(list tape)`txs
|= [t=tape l=(list tape)]
?~ l [:(weld nom t tam) ~]
[(weld den t) l]
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +nome: prints a ship name in 14 characters, left-padding with spaces
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
++ nome
|= =ship
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- tape
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
=+ raw=(cite:title ship)
(runt [(sub 14 (lent raw)) ' '] raw)
:: +line: renders most important contents, tries to fit one line
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
::
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
::TODO this should probably be rewritten someday
++ line
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
:: pre: replace/append line prefix
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
::
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
=| pre=(unit (pair ? tape))
|= wyd=@ud
^- (list tape)
?- -.letter
%code
=+ texp=(trip expression.letter)
=+ newline=(find "\0a" texp)
=? texp ?=(^ newline)
(weld (scag u.newline texp) " ...")
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:- (truncate wyd '#' ' ' texp)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
?~ output.letter ~
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
=- [' ' (truncate (dec wyd) ' ' -)]~
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
~(ram re (snag 0 `(list tank)`output.letter))
::
%url
:_ ~
=+ ful=(trip url.letter)
=+ pef=q:(fall pre [p=| q=""])
:: clean up prefix if needed.
=? pef =((scag 1 (flop pef)) " ")
(scag (dec (lent pef)) pef)
=. pef (weld "/" pef)
=. wyd (sub wyd +((lent pef))) :: account for prefix.
:: if the full url fits, just render it.
?: (gte wyd (lent ful)) :(weld pef " " ful)
:: if it doesn't, prefix with _ and render just (the tail of) the domain.
%+ weld (weld pef "_")
chat-cli: Support %url and %me message types
2019-10-07 21:45:58 +03:00
=+ prl=(rust ful aurf:de-purl:html)
?~ prl (weld (scag (dec wyd) ful) "…")
=+ hok=r.p.p.u.prl
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
=- (swag [a=(sub (max wyd (lent -)) wyd) b=wyd] -)
^- tape
=< ?: ?=(%& -.hok)
(reel p.hok .)
+:(scow %if p.hok)
|= [a=knot b=tape]
?~ b (trip a)
(welp b '.' (trip a))
::
chat-cli: Support %url and %me message types
2019-10-07 21:45:58 +03:00
?(%text %me)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
:: glyph prefix
=/ pef=tape
?: &(?=(^ pre) p.u.pre) q.u.pre
chat-cli: Support %url and %me message types
2019-10-07 21:45:58 +03:00
?: ?=(%me -.letter) " "
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
=- (weld - q:(fall pre [p=| q=" "]))
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
~(glyph tr source)
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
=/ lis=(list tape)
%+ simple-wrap
chat-cli: Support %url and %me message types
2019-10-07 21:45:58 +03:00
`tape``(list @)`(tuba (trip +.letter))
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
(sub wyd (min (div wyd 2) (lent pef)))
=+ lef=(lent pef)
=+ ?:((gth (lent lis) 0) (snag 0 lis) "")
:- (weld pef -)
%+ turn (slag 1 lis)
|=(a=tape (runt [lef ' '] a))
==
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
:: +truncate: truncate txt to fit len, indicating truncation with _ or …
::
++ truncate
|= [len=@u txt=tape]
^- tape
?: (gth len (lent txt)) txt
=. txt (scag len txt)
|-
?~ txt txt
?: =(' ' i.txt)
|-
:- '_'
?. ?=([%' ' *] t.txt)
t.txt
$(txt t.txt)
?~ t.txt "…"
[i.txt $(txt t.txt)]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
--
::
++ simple-wrap
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
|= [txt=tape wid=@ud]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
^- (list tape)
?~ txt ~
chat-cli: Clean up code Renames, refactors, and occasionally rewrites many of the arms used within the application. Splits +sh into +sh-in and +sh-out, improves naming for rendering cores, moves arms around for better organization, and adds descriptions to all arms.
2019-10-07 17:02:03 +03:00
=+ ^- [end=@ud nex=?]
?: (lte (lent txt) wid) [(lent txt) &]
=+ ace=(find " " (flop (scag +(wid) `tape`txt)))
?~ ace [wid |]
[(sub wid u.ace) &]
apps: Add WIP chat-cli
2019-10-03 02:30:07 +03:00
:- (tufa (scag end `(list @)`txt))
$(txt (slag ?:(nex +(end) end) `tape`txt))
chat-cli: Cosmetic improvements Better variable naming. Trailing newline.
2019-10-09 00:00:46 +03:00
--
Reference in New Issue Copy Permalink