Add more methods to type Doc

Author: tarleb

src/HsLua/Module/DocLayout.hs

@@ -208,17 +208,25 @@ typeDoc = deftype "Doc"
       [ method before_non_blank
       , method braces
       , method brackets
+      , method cblock
       , method chomp
       , method double_quotes
       , method is_empty
       , method flush
+      , method hang
       , method height
+      , method inside
+      , method lblock
       , method min_offset
+      , method nest
       , method nestle
       , method nowrap
       , method offset
       , method parens
+      , method prefixed
       , method quotes
+      , method rblock
+      , method render
       , method update_column
       , method vfill
       ]

test/test-doclayout.lua

@@ -87,15 +87,15 @@ return {
         .. doclayout.literal 'How' .. doclayout.space
         .. doclayout.literal 'are' .. doclayout.space
         .. doclayout.literal 'you?'
-      assert.are_equal(doclayout.render(greeting, 7), 'Hi! How\nare\nyou?')
+      assert.are_equal(greeting:render(7), 'Hi! How\nare\nyou?')
     end),
     test('after_break', function ()
       local doc = doclayout.literal 'hi'
         + doclayout.after_break '!'
         .. doclayout.after_break '?'
         .. doclayout.literal 'x'
         .. doclayout.after_break '?'
-      assert.are_equal(doclayout.render(doc, 2), 'hi\n!x')
+      assert.are_equal(doc:render(2), 'hi\n!x')
     end),
     test('before_non_blank', function ()
       local doc = doclayout.before_non_blank '!!' .. ' ab'
@@ -148,15 +148,22 @@ return {
     end),
     test('nowrap', function()
       local doc = doclayout.nowrap(doclayout.literal 'first' + 'second')
-      assert.are_equal(doclayout.render(doc, 8), 'first second')
+      assert.are_equal(doc:render(8), 'first second')
     end),
     test('parens', function ()
       local doc = doclayout.parens 'lisp'
       assert.are_equal(doclayout.render(doc), '(lisp)')
+      -- as method
+      assert.are_equal(doc:parens():render(), '((lisp))')
     end),
     test('prefixed', function ()
       local doc = doclayout.prefixed(doclayout.literal 'aa' // 'bb', '# ' )
       assert.are_equal(doclayout.render(doc), '# aa\n#\n# bb')
+      -- as method
+      assert.are_equal(
+        (doclayout.literal'aa' // 'bb'):prefixed('# '):render(),
+        '# aa\n#\n# bb'
+      )
     end),
     group 'table helpers' {
       test('cblock', function ()