Re: [NTG-context] How to make something appear to the right of every paragraph?

2022-10-13 Thread Max Chernoff via ntg-context
Hi Joel,
> When I use the code given, it compiles and displays fine. But when I
> try replacing \everypar with \EveryPar, it halts during compiling

It looks like \EveryPar is a macro and not a token list.

> These both work great, but do that for the whole document? Is there a
> way to restrict it to only apply the lines to some parts of the file,
> not every single paragraph?

Option 1:

   \newif\ifprintlines
   
   \EveryPar{%
   \ifprintlines%
   \vbox to 0pt{%
   \dorecurse{3}{%
   \rlap{%
   \hskip\dimexpr\hsize+1em%
   \vrule height 0.4pt width 3cm%
   \relax%
   }%
   }%
   }%
   \fi%
   }
   
   \parskip=\baselineskip
   
   \starttext
   \printlinestrue
   One line paragraph
   
   Two line paragraph \\
   Two line paragraph
   
   Three line paragraph \\
   Three line paragraph \\
   Three line paragraph
   \printlinesfalse
   
   Four line paragraph \\
   Four line paragraph \\
   Four line paragraph \\
   Four line paragraph
   
   \samplefile{bryson}
   
   \printlinestrue
   \samplefile{knuth}
   \stoptext

Option 2:

   \startluacode
   -- Constants
   local RULE_OFFSET= tex.sp "1em"
   local RULE_THICKNESS = tex.sp "0.4pt"
   local RULE_LENGTH= tex.sp "3cm"
   
   local show_lines = true
   
   -- Callback
   function userdata.lines(head)
   if status.output_active or
  tex.nest.ptr > 1 or
  not show_lines
   then
   return head
   end
   
   local i = 0
   for n in node.traverseid(node.id "hlist", head) do
   i = i + 1
   if i > 3 then
   break
   end
   
   local offset = node.new "glue"
   offset.width = RULE_OFFSET
   node.slide(n.list).next = offset
   
   local rule = node.new "rule"
   rule.width = RULE_LENGTH
   rule.height = RULE_THICKNESS
   rule.depth = 0
   offset.next = rule
   end
   
   return head
   end
   
   nodes.tasks.appendaction(
   "finalizers",
   "after",
   "userdata.lines"
   )
   
   interfaces.implement {
   name  = "showlines",
   public= true,
   arguments = { "boolean" },
   actions   = function(x)
   show_lines = x
   end,
   }
   \stopluacode
   
   \parskip=\baselineskip
   
   \starttext
   \showlines true
   One line paragraph
   
   Two line paragraph \\
   Two line paragraph
   
   Three line paragraph \\
   Three line paragraph \\
   Three line paragraph
   
   \showlines false
   Four line paragraph \\
   Four line paragraph \\
   Four line paragraph \\
   Four line paragraph
   
   \samplefile{bryson}
   
   \showlines true
   \samplefile{knuth}
   \stoptext

These are both kind of hacky though. I'd recommend that you use Hans's
solution instead:

   \starttext
   
   \def\StartHack
 {\margintext
   [location=right,style=]
   {\thinrules[n=3]}}
   
   \def\StopHack
 {\par \ifnum\prevgraf<3
\blank[\the\numexpr4-\prevgraf\relax*line]
  \fi}
   
   \StartHack \input tufte \StopHack
   
   \StartHack test test \StopHack
   
   \StartHack test test \StopHack
   
   \stoptext

Thanks,
-- Max
___
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : https://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___


Re: [NTG-context] How to make something appear to the right of every paragraph?

2022-10-13 Thread Joel via ntg-context
 These both work great, but do that for the whole document? Is there a way to 
restrict it to only apply the lines to some parts of the file, not every single 
paragraph?
Thanks!
--Joel

On Monday, October 10, 2022 at 04:57:07 PM MDT, Max Chernoff 
 wrote:  
 
 Hi Joel,

On Mon, 2022-10-10 at 12:46 +, Joel wrote:
>  Hello Max,
> It is preferred if the solution is just three lines per paragraph,
> rather than some content parallel to the text

A Lua callback solution:

  \startluacode
      -- Constants
      RULE_OFFSET    = tex.sp "1em"
      RULE_THICKNESS = tex.sp "0.4pt"
      RULE_LENGTH    = tex.sp "3cm"
  
      -- Callback
      function userdata.lines(head)
          if status.output_active or
              tex.nest.ptr > 1
          then
              return head
          end
  
          local i = 0
          for n in node.traverseid(node.id "hlist", head) do
              i = i + 1
              if i > 3 then
                  break
              end
  
              local offset = node.new "glue"
              offset.width = RULE_OFFSET
              node.slide(n.list).next = offset
  
              local rule = node.new "rule"
              rule.width = RULE_LENGTH
              rule.height = RULE_THICKNESS
              rule.depth = 0
              offset.next = rule
          end
  
          return head
      end
  
      nodes.tasks.appendaction(
          "finalizers",
          "after",
          "userdata.lines"
      )
  \stopluacode
  
  \parskip=\baselineskip
  
  \starttext
      One line paragraph
  
      Two line paragraph \\
      Two line paragraph
  
      Three line paragraph \\
      Three line paragraph \\
      Three line paragraph
  
      Four line paragraph \\
      Four line paragraph \\
      Four line paragraph \\
      Four line paragraph
  
      \samplefile{bryson}
  
      \samplefile{knuth}
  \stoptext

An \everypar solution:

  \appendtoks%
      \vbox to 0pt{%
          \dorecurse{3}{%
              \rlap{%
                  \hskip\dimexpr\hsize+1em%
                  \vrule height 0.4pt width 3cm%
                  \relax%
              }%
          }%
      }%
  \to\everypar
  
  \parskip=\baselineskip
  
  \starttext
      One line paragraph
  
      Two line paragraph \\
      Two line paragraph
  
      Three line paragraph \\
      Three line paragraph \\
      Three line paragraph
  
      Four line paragraph \\
      Four line paragraph \\
      Four line paragraph \\
      Four line paragraph
  
      \samplefile{bryson}
  
      \samplefile{knuth}
  \stoptext

Neither of these solutions are great though. Both of these solutions are
pretty low-level, so there's presumably a more ConTeXt-y way of doing
this.

Thanks,
-- Max
  ___
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : https://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___


Re: [NTG-context] How to make something appear to the right of every paragraph?

2022-10-13 Thread Joel via ntg-context
 When I use the code given, it compiles and displays fine. But when I try 
replacing \everypar with \EveryPar, it halts during compiling with this 
complaint:
"A number should have been here; I inserted '0'. (If you can't figure out why I
needed to see a number, look up 'weird error' in the index to The TeXbook.)
mtx-context | fatal error: return code: 1

"

On Monday, October 10, 2022 at 09:58:11 PM MDT, Wolfgang Schuster 
 wrote:  
 
 Max Chernoff via ntg-context schrieb am 11.10.2022 um 00:57:
> Hi Joel,
>
> On Mon, 2022-10-10 at 12:46 +, Joel wrote:
>>  Hello Max,
>> It is preferred if the solution is just three lines per paragraph,
>> rather than some content parallel to the text
> A Lua callback solution:
>
> [...]
>
> An \everypar solution:
>
>    \appendtoks%
>        \vbox to 0pt{%
>            \dorecurse{3}{%
>                \rlap{%
>                    \hskip\dimexpr\hsize+1em%
>                    \vrule height 0.4pt width 3cm%
>                    \relax%
>                }%
>            }%
>        }%
>    \to\everypar

You can use the \EveryPar register but \everypar is off limits.

Wolfgang

  ___
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : https://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___


Re: [NTG-context] How to make something appear to the right of every paragraph?

2022-10-11 Thread Hans Hagen via ntg-context

On 10/10/2022 12:12 AM, Joel via ntg-context wrote:
I'd like to add some area for readers to write in the margins of some 
text. This would leave three lines, like this to the right of the text.


__
__
__

The passage would take up about the left 60% of the text and the margin 
note space about 30% of textwidth, so no need to use the margins.


Though its easy for me to implement this code using some \thinrules and 
manually dropping macros in the text, is there some way ConTeXt can be 
told to just add them to right of every paragraph (at the start of the 
paragraph)?


Sample:

This is some text  
that is written in        
the passage and      
you can see the th-
ree lines to the right.
The text in the para-
graph continues even
though there are
just three lines to
the right.

Here is another par-    
agraph.                        
       

Here is yet another    
paragraph. You can    
see it also has the 
three liens.

This is just for a segment of the book, not every paragraph in the book.


\starttext

\def\StartHack
 {\margintext
   [location=right,style=]
   {\thinrules[n=3]}}

\def\StopHack
 {\par \ifnum\prevgraf<3
\blank[\the\numexpr4-\prevgraf\relax*line]
  \fi}

\StartHack \input tufte \StopHack

\StartHack test test \StopHack

\StartHack test test \StopHack

\stoptext



--

-
  Hans Hagen | PRAGMA ADE
  Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
   tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-
___
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : https://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___


Re: [NTG-context] How to make something appear to the right of every paragraph?

2022-10-10 Thread Wolfgang Schuster via ntg-context

Max Chernoff via ntg-context schrieb am 11.10.2022 um 00:57:

Hi Joel,

On Mon, 2022-10-10 at 12:46 +, Joel wrote:

  Hello Max,
It is preferred if the solution is just three lines per paragraph,
rather than some content parallel to the text

A Lua callback solution:

[...]

An \everypar solution:

\appendtoks%
\vbox to 0pt{%
\dorecurse{3}{%
\rlap{%
\hskip\dimexpr\hsize+1em%
\vrule height 0.4pt width 3cm%
\relax%
}%
}%
}%
\to\everypar


You can use the \EveryPar register but \everypar is off limits.

Wolfgang

___
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : https://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___


Re: [NTG-context] How to make something appear to the right of every paragraph?

2022-10-10 Thread Max Chernoff via ntg-context
Hi Joel,

On Mon, 2022-10-10 at 12:46 +, Joel wrote:
>  Hello Max,
> It is preferred if the solution is just three lines per paragraph,
> rather than some content parallel to the text

A Lua callback solution:

   \startluacode
   -- Constants
   RULE_OFFSET= tex.sp "1em"
   RULE_THICKNESS = tex.sp "0.4pt"
   RULE_LENGTH= tex.sp "3cm"
   
   -- Callback
   function userdata.lines(head)
   if status.output_active or
  tex.nest.ptr > 1
   then
   return head
   end
   
   local i = 0
   for n in node.traverseid(node.id "hlist", head) do
   i = i + 1
   if i > 3 then
   break
   end
   
   local offset = node.new "glue"
   offset.width = RULE_OFFSET
   node.slide(n.list).next = offset
   
   local rule = node.new "rule"
   rule.width = RULE_LENGTH
   rule.height = RULE_THICKNESS
   rule.depth = 0
   offset.next = rule
   end
   
   return head
   end
   
   nodes.tasks.appendaction(
   "finalizers",
   "after",
   "userdata.lines"
   )
   \stopluacode
   
   \parskip=\baselineskip
   
   \starttext
   One line paragraph
   
   Two line paragraph \\
   Two line paragraph
   
   Three line paragraph \\
   Three line paragraph \\
   Three line paragraph
   
   Four line paragraph \\
   Four line paragraph \\
   Four line paragraph \\
   Four line paragraph
   
   \samplefile{bryson}
   
   \samplefile{knuth}
   \stoptext

An \everypar solution:

   \appendtoks%
   \vbox to 0pt{%
   \dorecurse{3}{%
   \rlap{%
   \hskip\dimexpr\hsize+1em%
   \vrule height 0.4pt width 3cm%
   \relax%
   }%
   }%
   }%
   \to\everypar
   
   \parskip=\baselineskip
   
   \starttext
   One line paragraph
   
   Two line paragraph \\
   Two line paragraph
   
   Three line paragraph \\
   Three line paragraph \\
   Three line paragraph
   
   Four line paragraph \\
   Four line paragraph \\
   Four line paragraph \\
   Four line paragraph
   
   \samplefile{bryson}
   
   \samplefile{knuth}
   \stoptext

Neither of these solutions are great though. Both of these solutions are
pretty low-level, so there's presumably a more ConTeXt-y way of doing
this.

Thanks,
-- Max
___
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : https://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___


Re: [NTG-context] How to make something appear to the right of every paragraph?

2022-10-10 Thread Joel via ntg-context
 Hello Max,
It is preferred if the solution is just three lines per paragraph, rather than 
some content parallel to the text...I'll be modifying whatever solution to fix 
a bunch of other situations (e.g. display a box next to each paragraph).

--Joel

On Monday, October 10, 2022 at 12:24:03 AM MDT, Max Chernoff 
 wrote:  
 
 Hi Joel,

> I'd like to add some area for readers to write in the margins of some
> text. This would leave three lines, like this to the right of the
> text.

Is it okay if there are rules continuously down the right column? If so,
this is fairly simple to do with layers/backgrounds + MetaFun. 

If you want for there to be exactly three rules per paragraph, then that
is more complicated. I can think of some bad solutions (\everypar, Lua
callbacks), but I'll leave it to someone else to think of a good
solution.

Thanks,
-- Max
  ___
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : https://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___


Re: [NTG-context] How to make something appear to the right of every paragraph?

2022-10-09 Thread Max Chernoff via ntg-context
Hi Joel,

> I'd like to add some area for readers to write in the margins of some
> text. This would leave three lines, like this to the right of the
> text.

Is it okay if there are rules continuously down the right column? If so,
this is fairly simple to do with layers/backgrounds + MetaFun. 

If you want for there to be exactly three rules per paragraph, then that
is more complicated. I can think of some bad solutions (\everypar, Lua
callbacks), but I'll leave it to someone else to think of a good
solution.

Thanks,
-- Max
___
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : https://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___