lib-history.c

   1 /*
   2  * Copyright Neil Brown ©2016-2020 <neil@brown.name>
   3  * May be distributed under terms of GPLv2 - see file:COPYING
   4  *
   5  * history
   6  *
   7  * A history pane supports selection of lines from a separate
   8  * document.  The underlying document is assumed to be one line
   9  * and this line can be replaced by various lines from the history document.
  10  * When a line is replaced, if it had been modified, it is saved first.
  11  * :M-p - replace current line with previous line from history, if there is one
  12  * :M-n - replace current line with next line from history.  If none, restore
  13  *        saved line
  14  * :M-r - incremental search - later
  15  * When a selection is committed, it is added to end of history.
  16  */
  17
  18 #include <unistd.h>
  19 #include <stdlib.h>
  20 #include <string.h>
  21
  22 #include "core.h"
  23 #include "misc.h"
  24
  25 struct history_info {
  26         struct pane     *history;
  27         char            *saved;
  28         struct buf      search;
  29         int             changed;
  30         struct map      *done_map;
  31         struct lookup_cmd handle;
  32 };
  33
  34 static struct map *history_map;
  35 DEF_LOOKUP_CMD(history_handle, history_map);
  36
  37 DEF_CMD(history_close)
  38 {
  39         struct history_info *hi = ci->home->data;
  40
  41         if (hi->history)
  42                 pane_close(hi->history);
  43         return 1;
  44 }
  45
  46 DEF_CMD(history_free)
  47 {
  48         struct history_info *hi = ci->home->data;
  49
  50         free(hi->search.b);
  51         free(hi->saved);
  52         unalloc(hi, pane);
  53         /* handle was in 'hi' */
  54         ci->home->handle = NULL;
  55         return 1;
  56 }
  57
  58 DEF_CMD(history_notify_close)
  59 {
  60         struct history_info *hi = ci->home->data;
  61
  62         if (ci->focus == hi->history)
  63                 /* The history document is going away!!! */
  64                 hi->history = NULL;
  65         return 1;
  66 }
  67
  68 DEF_CMD(history_save)
  69 {
  70         struct history_info *hi = ci->home->data;
  71         const char *eol;
  72         const char *line = ci->str;
  73         const char *prev;
  74
  75         if (!hi->history || !ci->str)
  76                 /* history document was destroyed */
  77                 return 1;
  78         /* Must never include a newline in a history entry! */
  79         eol = strchr(ci->str, '\n');
  80         if (eol)
  81                 line = strnsave(ci->home, ci->str, eol - ci->str);
  82
  83         prev = call_ret(strsave, "history:get-last", ci->focus);
  84         if (prev && line && strcmp(prev, line) == 0)
  85                 return 0;
  86
  87         call("Move-File", hi->history, 1);
  88         call("Replace", hi->history, 1, NULL, line);
  89         call("Replace", hi->history, 1, NULL, "\n", 1);
  90         return 1;
  91 }
  92
  93 DEF_CMD(history_done)
  94 {
  95         history_save_func(ci);
  96         return Efallthrough;
  97 }
  98
  99
 100 DEF_CMD(history_notify_replace)
 101 {
 102         struct history_info *hi = ci->home->data;
 103
 104         if (hi->history)
 105                 hi->changed = 1;
 106         return 1;
 107 }
 108
 109 DEF_CMD(history_move)
 110 {
 111         struct history_info *hi = ci->home->data;
 112         struct mark *m;
 113         char *l, *e;
 114         const char *suffix = ksuffix(ci, "K:M-");
 115
 116         if (!hi->history || !ci->mark)
 117                 return 0;
 118         if (*suffix == 'p') {
 119                 m = mark_at_point(hi->history, NULL, MARK_UNGROUPED);
 120                 call("Move-EOL", hi->history, -2);
 121         } else {
 122                 call("Move-EOL", hi->history, 1);
 123                 call("Move-Char", hi->history, 1);
 124                 m = mark_at_point(hi->history, NULL, MARK_UNGROUPED);
 125                 call("Move-EOL", hi->history, 1, m);
 126                 call("Move-Char", hi->history, 1, m);
 127         }
 128         l = call_ret(str, "doc:get-str", hi->history, 0, NULL, NULL, 0, m);
 129         if (!l || !*l) {
 130                 /* No more history */
 131                 free(l);
 132                 if (*suffix == 'p') {
 133                         mark_free(m);
 134                         return 1;
 135                 } else
 136                         l = hi->saved;
 137         }
 138         if (l) {
 139                 e = strchr(l, '\n');
 140                 if (e)
 141                         *e = 0;
 142         }
 143         call("Move-EOL", ci->focus, -1, ci->mark);
 144         m = mark_dup(ci->mark);
 145         call("Move-EOL", ci->focus, 1, m);
 146         if (hi->changed) {
 147                 if (l != hi->saved)
 148                         free(hi->saved);
 149                 hi->saved = call_ret(str, "doc:get-str", ci->focus,
 150                                      0, ci->mark, NULL,
 151                                      0, m);
 152         }
 153         call("Replace", ci->focus, 1, m, l);
 154         if (l != hi->saved){
 155                 free(l);
 156                 hi->changed = 0;
 157         }
 158         mark_free(m);
 159         return 1;
 160 }
 161
 162 DEF_CMD(history_attach)
 163 {
 164         struct history_info *hi;
 165         struct pane *p;
 166
 167         if (!ci->str || !ci->str2)
 168                 return Enoarg;
 169
 170         alloc(hi, pane);
 171         hi->done_map = key_alloc();
 172         hi->handle = history_handle;
 173         hi->handle.m = &hi->done_map;
 174         key_add_chain(hi->done_map, history_map);
 175         key_add(hi->done_map, ci->str2, &history_done);
 176         p = call_ret(pane, "docs:byname", ci->focus, 0, NULL, ci->str);
 177         if (!p)
 178                 p = call_ret(pane, "doc:from-text", ci->focus, 0, NULL, ci->str,
 179                              0, NULL, "");
 180         if (!p) {
 181                 free(hi);
 182                 return 0;
 183         }
 184         hi->history = call_ret(pane, "doc:attach-view", p, -1, NULL, "invisible");
 185         if (!hi->history)
 186                 return 0;
 187         call("Move-File", hi->history, 1);
 188         buf_init(&hi->search);
 189         p = pane_register(ci->focus, 0, &hi->handle.c, hi);
 190         pane_add_notify(p, hi->history, "Notify:Close");
 191         call("doc:request:doc:replaced", p);
 192         return comm_call(ci->comm2, "callback:attach", p);
 193 }
 194
 195 DEF_CMD(history_hlast)
 196 {
 197         struct history_info *hi = ci->home->data;
 198         struct pane *doc = hi->history;
 199         struct mark *m, *m2;
 200         int rv;
 201
 202         if (!doc)
 203                 return Einval;
 204
 205         m = vmark_new(doc, MARK_UNGROUPED, NULL);
 206         if (!m)
 207                 return 1;
 208         call("doc:set-ref", doc, 0, m);
 209         call("doc:set", doc, 0, m, NULL, 1);
 210         mark_step_pane(doc, m, 0, 1);
 211         m2 = mark_dup(m);
 212         while (doc_prior_pane(doc, m) != '\n')
 213                 if (mark_step_pane(doc, m, 0, 1) == WEOF)
 214                         break;
 215         rv = call_comm("doc:get-str", doc, ci->comm2, 0, m, NULL, 0, m2);
 216         mark_free(m);
 217         mark_free(m2);
 218         return rv;
 219 }
 220
 221 DEF_CMD(history_last)
 222 {
 223         /* Get last line from the given history document */
 224         struct pane *doc;
 225         struct mark *m, *m2;
 226         int rv;
 227
 228         doc = call_ret(pane, "docs:byname", ci->focus, 0, NULL, ci->str);
 229         if (!doc)
 230                 return 1;
 231         m = vmark_new(doc, MARK_UNGROUPED, NULL);
 232         if (!m)
 233                 return 1;
 234         call("doc:set-ref", doc, 0, m);
 235         call("doc:set", doc, 0, m, NULL, 1);
 236         mark_step_pane(doc, m, 0, 1);
 237         m2 = mark_dup(m);
 238         while (doc_prior_pane(doc, m) != '\n')
 239                 if (mark_step_pane(doc, m, 0, 1) == WEOF)
 240                         break;
 241         rv = call_comm("doc:get-str", doc, ci->comm2, 0, m, NULL, 0, m2);
 242         mark_free(m);
 243         mark_free(m2);
 244         return rv;
 245 }
 246
 247 void edlib_init(struct pane *ed safe)
 248 {
 249         call_comm("global-set-command", ed, &history_attach, 0, NULL, "attach-history");
 250         call_comm("global-set-command", ed, &history_last, 0, NULL, "history-get-last");
 251
 252         if (history_map)
 253                 return;
 254
 255         history_map = key_alloc();
 256         key_add(history_map, "Close", &history_close);
 257         key_add(history_map, "Free", &history_free);
 258         key_add(history_map, "Notify:Close", &history_notify_close);
 259         key_add(history_map, "doc:replaced", &history_notify_replace);
 260         key_add(history_map, "K:M-p", &history_move);
 261         key_add(history_map, "K:M-n", &history_move);
 262         key_add(history_map, "history:save", &history_save);
 263         key_add(history_map, "history:get-last", &history_hlast);
 264 }