From 7d05a28f9353bbb94376f8fecc8e6bfecaae3b42 Mon Sep 17 00:00:00 2001
From: Koichi Murase <myoga.murase@gmail.com>
Date: Tue, 25 Jan 2022 00:39:33 +0900
Subject: [PATCH] edit (ble-bind -x): preserve multiline prompts on execution
 of "bind -x" commands

---
 docs/ChangeLog.md |  1 +
 note.txt          | 17 +++++++++++++++++
 src/edit.sh       | 26 ++++++++++++++++++++------
 3 files changed, 38 insertions(+), 6 deletions(-)

diff --git a/docs/ChangeLog.md b/docs/ChangeLog.md
index 5e7066f2..7275c2b9 100644
--- a/docs/ChangeLog.md
+++ b/docs/ChangeLog.md
@@ -138,6 +138,7 @@
   - util (`ble/is-alias`): fix a bug of unredirected error messages for bash-3.2 (fixup d6242a7) `#D1730` 31372cb
 - edit (`history_share`): update history on `discard-line` (reported by SuperSandro2000) `#D1742` 8dbefe0
 - canvas: do not insert explicit newlines on line folding if possible (reported by banoris) `#D1745` 02b9da6 0000000
+- edit (`ble-bind -x`): preserve multiline prompts on execution of `bind -x` commands `#D1755` 0000000
 
 ## Fixes
 
diff --git a/note.txt b/note.txt
index cf1de6bb..acff6316 100644
--- a/note.txt
+++ b/note.txt
@@ -5900,6 +5900,23 @@ bash_tips
 
 2022-01-24
 
+  * edit: bind -x 関数の呼び出しに際しての画面クリアの振る舞いについて (motivated by SuperSandro2000) [#D1755]
+    https://github.com/akinomyoga/blesh-contrib/issues/6#issuecomment-1020165711
+
+    GNU readline は 4.4 で振る舞いを変更した様だ。それ以前はただ単純に現在の編
+    集位置にカーソルを置いたまま bind -x の関数を呼び出していた。4.4 以降ではプ
+    ロンプトの終了点・編集文字列の開始点の行にカーソルを置いて bind -x の関数を
+    呼び出す様になった様だ。実は
+
+      https://github.com/junegunn/fzf/issues/490#issuecomment-184402254
+
+    でもその事が説明されている気がする (何が書かれているかちゃんとは見ていない
+    が)。というよりこの振る舞いについては前にも議論した事があるような気がする。
+    →うーん。#D0915 (90ca3bea) の最後の動作確認の所で微妙に言及しているだけで
+    ある。これ以降は .hide-current-line も対して更新されていないし振る舞いにつ
+    いては変更はなかったと思われる。その時は手元で試して振る舞いを決定した気が
+    するが詳細については記録に残っていないという事。
+
   * patsubWA: compat42 での振る舞い [#D1754]
 
     それとは別に compat42 の効果についても考察する必要がある。compat42 の時には
diff --git a/src/edit.sh b/src/edit.sh
index d58f4742..88c653df 100644
--- a/src/edit.sh
+++ b/src/edit.sh
@@ -5765,16 +5765,30 @@ function ble/widget/.insert-newline {
   _ble_textarea_gendx=0 _ble_textarea_gendy=0
   _ble_canvas_panel_height[_ble_textarea_panel]=1
 }
+## @fn ble/widget/.hide-current-line [opts]
+##   @param[in] opts
+##     a colon-separated list of the following fields:
+##
+##     keep-header
+##       keep the multiline prompt displayed in the terminal except
+##       for the last line.
+##
 function ble/widget/.hide-current-line {
+  local opts=$1 y_erase=0
+  [[ :$opts: == *:keep-header:* ]] && y_erase=${_ble_prompt_ps1_data[4]}
   ble/edit/enter-command-layout
   local -a DRAW_BUFF=()
-  ble/canvas/panel#clear.draw "$_ble_textarea_panel"
-  ble/canvas/panel#goto.draw "$_ble_textarea_panel" 0 0
+  if ((y_erase)); then
+    ble/canvas/panel#clear-after.draw "$_ble_textarea_panel" 0 "$y_erase"
+  else
+    ble/canvas/panel#clear.draw "$_ble_textarea_panel"
+  fi
+  ble/canvas/panel#goto.draw "$_ble_textarea_panel" 0 "$y_erase"
   ble/canvas/bflush.draw
   ble/textarea#invalidate
-  _ble_canvas_x=0 _ble_canvas_y=0
-  _ble_textarea_gendx=0 _ble_textarea_gendy=0
-  _ble_canvas_panel_height[_ble_textarea_panel]=1
+  _ble_canvas_x=0 _ble_canvas_y=$y_erase
+  _ble_textarea_gendx=0 _ble_textarea_gendy=$y_erase
+  ((_ble_canvas_panel_height[_ble_textarea_panel]=1+y_erase))
 }
 
 function ble/widget/.newline/clear-content {
@@ -9023,7 +9037,7 @@ function ble/widget/.EDIT_COMMAND {
   local -x READLINE_MARK=$_ble_edit_mark
   [[ $_ble_edit_arg ]] &&
     local -x READLINE_ARGUMENT=$_ble_edit_arg
-  ble/widget/.hide-current-line
+  ble/widget/.hide-current-line keep-header
   ble/util/buffer.flush >&2
   builtin eval -- "$command" || return 1
   ble-edit/content/clear-arg