shrub/pkg/arvo/gen/hood/new-desk.hoon

::  |new-desk: creates a minimal desk
::
/+  *generators
::
:-  %ask
|=  $:  [now=@da eny=@uvJ bek=beak]
        [=desk ~]
        [from=$~(%base desk) hard=_|]
    ==
::
=;  make-new-desk
  ?.  ?&  !hard
          (~(has in .^((set ^desk) %cd (en-beam bek(q %$) /))) desk)
      ==
    (make-new-desk)
  %+  print    (rap 3 'the desk %' desk ' already exists. overwrite it?' ~)
  %+  prompt   [%& %prompt "overwrite? (y/N) "]
  |=  in=tape
  ?.  |(=("y" in) =("Y" in) =("yes" in))
    no-product
  (make-new-desk)
::
|.  %-  produce
:-  %helm-pass
%^  new-desk:cloy  desk
  ~
%-  ~(gas by *(map path page:clay))
|^  =-  (turn - mage)
    ^-  (list path)
    :~  /mar/noun/hoon
        /mar/hoon/hoon
        /mar/txt/hoon
        /mar/kelvin/hoon
        /sys/kelvin
    ==
::
++  mage
  |=  =path
  :-  path
  ^-  page:clay
  :-  (rear path)
  ~|  [%missing-source-file from path]
  .^  *
    %cx
    (scot %p p.bek)
    from
    (scot %da now)
    path
  ==
--
gen: add \|new-desk for creating minimal desks Includes the bare minimum of necessary files. 2021-10-25 17:20:34 +03:00			`:: \|new-desk: creates a minimal desk`
			`::`
gen: in \|new-desk, prompt instead of crash If a desk already existed, we would crash the generator, embedding a message in the resulting stack trace. To improve legibility, we turn this into an %ask generator, prompting only if we are about to overwrite an existing desk. We also update the =force argument to be =hard instead, to match \|nuke. 2022-06-01 21:21:27 +03:00			`/+ *generators`
			`::`
			`:- %ask`
gen: add \|new-desk for creating minimal desks Includes the bare minimum of necessary files. 2021-10-25 17:20:34 +03:00			`\|= $: [now=@da eny=@uvJ bek=beak]`
			`[=desk ~]`
gen: in \|new-desk, prompt instead of crash If a desk already existed, we would crash the generator, embedding a message in the resulting stack trace. To improve legibility, we turn this into an %ask generator, prompting only if we are about to overwrite an existing desk. We also update the =force argument to be =hard instead, to match \|nuke. 2022-06-01 21:21:27 +03:00			`[from=$~(%base desk) hard=_\|]`
gen: add \|new-desk for creating minimal desks Includes the bare minimum of necessary files. 2021-10-25 17:20:34 +03:00			`==`
			`::`
gen: in \|new-desk, prompt instead of crash If a desk already existed, we would crash the generator, embedding a message in the resulting stack trace. To improve legibility, we turn this into an %ask generator, prompting only if we are about to overwrite an existing desk. We also update the =force argument to be =hard instead, to match \|nuke. 2022-06-01 21:21:27 +03:00			`=; make-new-desk`
			`?. ?& !hard`
			`(~(has in .^((set ^desk) %cd (en-beam bek(q %$) /))) desk)`
			`==`
			`(make-new-desk)`
			`%+ print (rap 3 'the desk %' desk ' already exists. overwrite it?' ~)`
			`%+ prompt [%& %prompt "overwrite? (y/N) "]`
			`\|= in=tape`
			`?. \|(=("y" in) =("Y" in) =("yes" in))`
			`no-product`
			`(make-new-desk)`
gen: add \|new-desk for creating minimal desks Includes the bare minimum of necessary files. 2021-10-25 17:20:34 +03:00			`::`
gen: in \|new-desk, prompt instead of crash If a desk already existed, we would crash the generator, embedding a message in the resulting stack trace. To improve legibility, we turn this into an %ask generator, prompting only if we are about to overwrite an existing desk. We also update the =force argument to be =hard instead, to match \|nuke. 2022-06-01 21:21:27 +03:00			`\|. %- produce`
gen: add \|new-desk for creating minimal desks Includes the bare minimum of necessary files. 2021-10-25 17:20:34 +03:00			`:- %helm-pass`
			`%^ new-desk:cloy desk`
			`~`
			`%- ~(gas by *(map path page:clay))`
			`\|^ =- (turn - mage)`
			`^- (list path)`
			`:~ /mar/noun/hoon`
			`/mar/hoon/hoon`
make-desk: include /mar/txt 2022-01-04 17:58:37 +03:00			`/mar/txt/hoon`
gen: add \|new-desk for creating minimal desks Includes the bare minimum of necessary files. 2021-10-25 17:20:34 +03:00			`/mar/kelvin/hoon`
			`/sys/kelvin`
			`==`
			`::`
			`++ mage`
			`\|= =path`
			`:- path`
			`^- page:clay`
gen: in \|new-desk, fetch files individually The ankh is no longer included in the dome, so we must scry out files one by one. 2022-06-01 21:20:18 +03:00			`:- (rear path)`
gen: add \|new-desk for creating minimal desks Includes the bare minimum of necessary files. 2021-10-25 17:20:34 +03:00			`~\| [%missing-source-file from path]`
gen: in \|new-desk, fetch files individually The ankh is no longer included in the dome, so we must scry out files one by one. 2022-06-01 21:20:18 +03:00			`.^ *`
			`%cx`
			`(scot %p p.bek)`
			`from`
			`(scot %da now)`
			`path`
			`==`
gen: add \|new-desk for creating minimal desks Includes the bare minimum of necessary files. 2021-10-25 17:20:34 +03:00			`--`