urbit/pkg/arvo/sur/link.hoon

::  link: social bookmarking
::
::    link operates on the core structure of "pages", which are URLs saved at a
::    specific time with a specific title.
::    submissions, then, are pages received from a specific ship.
::
|%
::  primitives
::
+$  url   @t
+$  site  @t  ::  domain, host, etc.
::  +page: a saved URL with timestamp and custom title
::
+$  page
  $:  title=@t
      =url
      =time
  ==
::  +submission: a page saved by a ship
::
+$  submission
  $:  =ship
      page
  ==
::  +note: a comment on some url
::
+$  note
  $:  =time
      udon=@t
  ==
::  +comment: a comment by a ship on some url
::
+$  comment
  $:  =ship
      note
  ==
::  lists, reverse chronological / newest first
::
+$  pages        (list page)
+$  submissions  (list submission)
+$  notes        (list note)
+$  comments     (list comment)
::
::  state builder
::
++  per-path-url
  |$  [value]
  (map path (map url value))
::
::  +action: local actions
::
+$  action
  $%  ::    user actions
      ::
      ::  %save: save page to path on our ship
      ::
      [%save =path title=@t =url]
      ::  %note: save a note for a url
      ::
      [%note =path =url udon=@t]
      ::  %seen: mark item as read (~ for all in path)
      ::
      [%seen =path url=(unit url)]
      ::    hook actions
      ::
      ::  %hear: hear about page at path on other ship
      ::
      [%hear =path submission]
      ::  %read: hear about note on url from ship
      ::
      [%read =path =url comment]
  ==
::
::  +initial: local result
::
+$  initial
  $%  [%local-pages pages=(map path pages)]
      [%submissions submissions=(map path submissions)]
      [%annotations notes=(per-path-url notes)]
      [%discussions comments=(per-path-url comments)]
  ==
::  +update: local updates
::
::NOTE  we include paths/urls to support the "subscribed to all" case
::
+$  update
  $%  [%local-pages =path =pages]
      [%submissions =path =submissions]
      [%annotations =path =url =notes]
      [%discussions =path =url =comments]
      [%observation =path urls=(set url)]
  ==
--
link: social bookmarking core implementation Stores URLs and their titles for the local ship. Can listen to "submissions" on foreign ships. Has a primitive perspective on groups, treating them as always-interesting. Auto-subscribes to all ships in all groups. Foreign communications untested. 2019-11-19 19:26:05 +03:00			`:: link: social bookmarking`
			`::`
			`:: link operates on the core structure of "pages", which are URLs saved at a`
			`:: specific time with a specific title.`
			`:: submissions, then, are pages received from a specific ship.`
			`::`
			`\|%`
			`:: primitives`
			`::`
			`+$ url @t`
			`+$ site @t :: domain, host, etc.`
			`:: +page: a saved URL with timestamp and custom title`
			`::`
			`+$ page`
			`$: title=@t`
			`=url`
			`=time`
			`==`
			`:: +submission: a page saved by a ship`
			`::`
			`+$ submission`
			`$: =ship`
			`page`
			`==`
link: rudimentary comments As of yet largely untested. The "urls in paths" might bring trouble. 2019-12-21 02:51:49 +03:00			`:: +note: a comment on some url`
link: update subscription model Better subscription path API support. Should support us better moving forward. Note that this kills the server-hook. It will be replaced with a link-view shortly. 2020-01-15 04:46:24 +03:00			`::`
link: rudimentary comments As of yet largely untested. The "urls in paths" might bring trouble. 2019-12-21 02:51:49 +03:00			`+$ note`
			`$: =time`
			`udon=@t`
			`==`
			`:: +comment: a comment by a ship on some url`
			`::`
			`+$ comment`
			`$: =ship`
			`note`
			`==`
link: social bookmarking core implementation Stores URLs and their titles for the local ship. Can listen to "submissions" on foreign ships. Has a primitive perspective on groups, treating them as always-interesting. Auto-subscribes to all ships in all groups. Foreign communications untested. 2019-11-19 19:26:05 +03:00			`:: lists, reverse chronological / newest first`
			`::`
			`+$ pages (list page)`
			`+$ submissions (list submission)`
link: rudimentary comments As of yet largely untested. The "urls in paths" might bring trouble. 2019-12-21 02:51:49 +03:00			`+$ notes (list note)`
			`+$ comments (list comment)`
link: social bookmarking core implementation Stores URLs and their titles for the local ship. Can listen to "submissions" on foreign ships. Has a primitive perspective on groups, treating them as always-interesting. Auto-subscribes to all ships in all groups. Foreign communications untested. 2019-11-19 19:26:05 +03:00			`::`
link: update subscription model Better subscription path API support. Should support us better moving forward. Note that this kills the server-hook. It will be replaced with a link-view shortly. 2020-01-15 04:46:24 +03:00			`:: state builder`
			`::`
			`++ per-path-url`
			`\|$ [value]`
			`(map path (map url value))`
			`::`
link: social bookmarking core implementation Stores URLs and their titles for the local ship. Can listen to "submissions" on foreign ships. Has a primitive perspective on groups, treating them as always-interesting. Auto-subscribes to all ships in all groups. Foreign communications untested. 2019-11-19 19:26:05 +03:00			`:: +action: local actions`
			`::`
			`+$ action`
link: rudimentary comments As of yet largely untested. The "urls in paths" might bring trouble. 2019-12-21 02:51:49 +03:00			`$% :: user actions`
			`::`
			`:: %save: save page to path on our ship`
			`::`
			`[%save =path title=@t =url]`
			`:: %note: save a note for a url`
			`::`
			`[%note =path =url udon=@t]`
link: support marking urls as seen 2020-02-07 23:49:16 +03:00			`:: %seen: mark item as read (~ for all in path)`
			`::`
			`[%seen =path url=(unit url)]`
link: rudimentary comments As of yet largely untested. The "urls in paths" might bring trouble. 2019-12-21 02:51:49 +03:00			`:: hook actions`
			`::`
			`:: %hear: hear about page at path on other ship`
			`::`
			`[%hear =path submission]`
			`:: %read: hear about note on url from ship`
			`::`
			`[%read =path =url comment]`
link: social bookmarking core implementation Stores URLs and their titles for the local ship. Can listen to "submissions" on foreign ships. Has a primitive perspective on groups, treating them as always-interesting. Auto-subscribes to all ships in all groups. Foreign communications untested. 2019-11-19 19:26:05 +03:00			`==`
link: update subscription model Better subscription path API support. Should support us better moving forward. Note that this kills the server-hook. It will be replaced with a link-view shortly. 2020-01-15 04:46:24 +03:00			`::`
			`:: +initial: local result`
			`::`
			`+$ initial`
			`$% [%local-pages pages=(map path pages)]`
			`[%submissions submissions=(map path submissions)]`
			`[%annotations notes=(per-path-url notes)]`
			`[%discussions comments=(per-path-url comments)]`
			`==`
link: social bookmarking core implementation Stores URLs and their titles for the local ship. Can listen to "submissions" on foreign ships. Has a primitive perspective on groups, treating them as always-interesting. Auto-subscribes to all ships in all groups. Foreign communications untested. 2019-11-19 19:26:05 +03:00			`:: +update: local updates`
			`::`
link: rudimentary comments As of yet largely untested. The "urls in paths" might bring trouble. 2019-12-21 02:51:49 +03:00			`::NOTE we include paths/urls to support the "subscribed to all" case`
link: social bookmarking core implementation Stores URLs and their titles for the local ship. Can listen to "submissions" on foreign ships. Has a primitive perspective on groups, treating them as always-interesting. Auto-subscribes to all ships in all groups. Foreign communications untested. 2019-11-19 19:26:05 +03:00			`::`
			`+$ update`
			`$% [%local-pages =path =pages]`
			`[%submissions =path =submissions]`
link: rudimentary comments As of yet largely untested. The "urls in paths" might bring trouble. 2019-12-21 02:51:49 +03:00			`[%annotations =path =url =notes]`
			`[%discussions =path =url =comments]`
link: support marking urls as seen 2020-02-07 23:49:16 +03:00			`[%observation =path urls=(set url)]`
link: social bookmarking core implementation Stores URLs and their titles for the local ship. Can listen to "submissions" on foreign ships. Has a primitive perspective on groups, treating them as always-interesting. Auto-subscribes to all ships in all groups. Foreign communications untested. 2019-11-19 19:26:05 +03:00			`==`
			`--`