Added option for smart_paste() to reindent text; modules/textadept/editing.lua

1 files changed, 9 insertions, 1 deletions

diff --git a/modules/textadept/editing.lua b/modules/textadept/editing.lua
index a9947b73..ab113f1e 100644
--- a/modules/textadept/editing.lua
+++ b/modules/textadept/editing.lua
@@ -306,8 +306,9 @@ end
 -- @param action If given, specifies whether to cycle through the kill-ring in
 --   normal or reverse order. A value of 'cycle' cycles through normally,
 --   'reverse' in reverse.
+-- @param reindent Flag indicating whether or not to reindent the pasted text.
 -- @see scroll_kill_ring
-function smart_paste(action)
+function smart_paste(action, reindent)
   local buffer = buffer
   local anchor, caret = buffer.anchor, buffer.current_pos
   if caret < anchor then anchor = caret end
@@ -326,6 +327,13 @@ function smart_paste(action)
 
   txt = kill_ring[kill_ring.pos]
   if txt then
+    if reindent then
+      local indent = buffer.line_indentation[
+        buffer:line_from_position(buffer.current_pos) ]
+      local padding = string.rep(buffer.use_tabs and '\t' or ' ',
+        buffer.use_tabs and indent / buffer.tab_width or indent)
+      txt = txt:gsub('\n', '\n'..padding)
+    end
     buffer:replace_sel(txt)
     if action then buffer.anchor = anchor end -- cycle
   end