File 0001-Add-support-for-command-history.patch of Package kjell

Overview Repositories Revisions Requests Users Attributes Meta

File 0001-Add-support-for-command-history.patch of Package kjell (Revision 436d144463b813113e17b7c69c1df6cf)

Currently displaying revision 436d144463b813113e17b7c69c1df6cf , Show latest

From 94d1957c8143a5bfaa37c7e0d1447f3841dd3a3a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andrzej=20Trawi=C5=84ski?= <andrzej.trawinski@jtendo.com>
Date: Mon, 23 Feb 2015 17:08:56 +0100
Subject: [PATCH] Add support for command history

---
 src/k_group.erl | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/src/k_group.erl b/src/k_group.erl
index 685a1ee..3a4951c 100644
--- a/src/k_group.erl
+++ b/src/k_group.erl
@@ -37,7 +37,11 @@ start(Drv, Shell, Options) ->
 server(Drv, Shell, Options) ->
     process_flag(trap_exit, true),
     ?EDLIN:init(),
-    put(line_buffer, proplists:get_value(line_buffer, Options, [])),
+    Buffer = case check_history_support() of
+                 true -> group_history:load();
+                 false -> []
+             end,
+    put(line_buffer, proplists:get_value(line_buffer, Options, Buffer)),
     put(read_mode, list),
     put(user_drv, Drv),
     put(expand_fun,
@@ -786,6 +790,7 @@ save_line_buffer("\n", Lines) ->
 save_line_buffer(Line, [Line|_Lines]=Lines) ->
     save_line_buffer(Lines);
 save_line_buffer(Line, Lines) ->
+    get(history) andalso group_history:add(Line),
     save_line_buffer([Line|Lines]).
 
 save_line_buffer(Lines) ->
@@ -872,3 +877,14 @@ append(L1, L2, _) when is_list(L1) ->
     L1++L2;
 append(_Eof, L, _) ->
     L.
+
+check_history_support() ->
+    try group_history:module_info() of
+        _ ->
+            put(history, true),
+            true
+    catch
+        error:undef ->
+            put(history, false),
+            false
+    end.
-- 
2.1.4

Places

File 0001-Add-support-for-command-history.patch of Package kjell (Revision 436d144463b813113e17b7c69c1df6cf)

Places