mp_misc.mpsl

   1 /*
   2
   3     Minimum Profit 5.x
   4     A Programmer's Text Editor
   5
   6     Miscellaneous editor actions.
   7
   8     Copyright (C) 1991-2011 Angel Ortega <angel@triptico.com>
   9
  10     This program is free software; you can redistribute it and/or
  11     modify it under the terms of the GNU General Public License
  12     as published by the Free Software Foundation; either version 2
  13     of the License, or (at your option) any later version.
  14
  15     This program is distributed in the hope that it will be useful,
  16     but WITHOUT ANY WARRANTY; without even the implied warranty of
  17     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18     GNU General Public License for more details.
  19
  20     You should have received a copy of the GNU General Public License
  21     along with this program; if not, write to the Free Software
  22     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  23
  24     http://www.triptico.com
  25
  26 */
  27
  28 /** editor actions **/
  29
  30 mp.actions['eval']      = sub (d) {
  31         local t = mp.form( [
  32                 { 'label' => L("Code to execute:"),
  33                   'type' => 'text',
  34                   'history' => 'eval' }
  35                 ]);
  36
  37         if (t != NULL) {
  38                 t = t[0];
  39
  40                 if (! regex(t, '/;\s*$/'))
  41                         t = t ~ ';';
  42
  43                 t = eval(t);
  44
  45                 if (ERROR != NULL) {
  46                         mp.alert(L("Error: ") ~ ERROR);
  47                         ERROR = NULL;
  48                 }
  49                 else
  50                 if (t != NULL)
  51                         mp.alert(L("Exit value:\n") ~ t);
  52         }
  53 };
  54
  55 mp.actions['eval_doc']  = sub (d) {
  56         local t = join(mp.get_active_area(d), "\n");
  57
  58         if (t != NULL) {
  59                 t = eval(t);
  60
  61                 if (ERROR != NULL) {
  62                         mp.alert(L("Error: ") ~ ERROR);
  63
  64                         /* try to move the cursor to the line
  65                            where the error was */
  66                         local l = regex(ERROR, [ '/, line /', '/[0-9]+/' ]);
  67
  68                         if (size(l) == 2)
  69                                 mp.set_y(d, l[1]);
  70
  71                         ERROR = NULL;
  72                 }
  73         }
  74 };
  75
  76 mp.actions['exec_action'] = sub(d) {
  77     local l = mp.actions->keys()->sort();
  78
  79     l = map(l, sub (e) { e ~ ' - ' ~ L(mp.actdesc[e] || ''); });
  80
  81     local r = mp.form( [
  82         { 'label'   => L("Select action to execute:"),
  83           'type'    => 'list',
  84           'list'    => l }
  85         ]);
  86
  87     if (r != NULL) {
  88         local a = regex(l[r[0]], '/^[^ ]+/');
  89
  90         mp.active()->mp.actions[a]();
  91     }
  92 };
  93
  94 mp.actions['encoding']  = sub (d) {
  95         local t = mp.form( [
  96                 { 'label' => L("Encoding (utf-8, iso8859-1, etc.; empty, current locale)") ~ ':',
  97                   'type' => 'text',
  98                   'history' => 'encoding' }
  99                 ]);
 100
 101         if (t != NULL)
 102                 if (encoding(t[0]) == -1)
 103                         mp.alert(L("Invalid encoding ") ~ t[0]);
 104 };
 105
 106 mp.actions['zoom_in']   = sub (d) {
 107
 108         mp.config.font_size++;
 109         mp.update_ui();
 110 };
 111
 112 mp.actions['zoom_out']  = sub (d) {
 113
 114         if (mp.config.font_size > 4) {
 115                 mp.config.font_size--;
 116                 mp.update_ui();
 117         }
 118 };
 119
 120 mp.actions['about'] = sub (d) {
 121         local msg = L(
 122         "\nMinimum Profit %s - Programmer Text Editor\n\n"\
 123         "Components: MPDM %s, MPSL %s\n\n"\
 124         "Copyright (C) 1991-2011 Angel Ortega <angel@triptico.com>\n"\
 125         "\n"\
 126         "This program is free software; you can redistribute it and/or\n"\
 127         "modify it under the terms of the GNU General Public License\n"\
 128         "as published by the Free Software Foundation; either version 2\n"\
 129         "of the License, or (at your option) any later version.\n"\
 130         "\n"\
 131         "This program is distributed in the hope that it will be useful,\n"\
 132         "but WITHOUT ANY WARRANTY; without even the implied warranty of\n"\
 133         "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n"\
 134         "See the GNU General Public License for more details.\n"\
 135         "\n"\
 136         "You should have received a copy of the GNU General Public License\n"\
 137         "along with this program; if not, write to the Free Software Foundation,\n"\
 138         "Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.\n"\
 139         "\n"\
 140         "Home page: http://www.triptico.com/software/mp.html\n"\
 141         "Mailing list: mp-subscribe@lists.triptico.com\n");
 142
 143         local mpdm = MPDM();
 144         msg = sprintf(msg, mp.VERSION, mpdm.version, MPSL.VERSION);
 145
 146         d = mp.open("<about>");
 147
 148         if (size(d.txt.lines) == 1) {
 149                 mp.insert(d, msg);
 150                 d.txt.mod = 0;
 151                 d.read_only = 1;
 152         }
 153 };
 154
 155 /** default key bindings **/
 156
 157 mp.keycodes['escape']           = 'eval';
 158 mp.keycodes['f12']              = 'zoom_in';
 159 mp.keycodes['ctrl-kp-plus' ]    = 'zoom_in';
 160 mp.keycodes['f11']              = 'zoom_out';
 161 mp.keycodes['ctrl-kp-minus' ]   = 'zoom_out';
 162
 163 /** action descriptions **/
 164
 165 mp.actdesc['eval']          = LL("Execute MPSL code...");
 166 mp.actdesc['eval_doc']      = LL("Execute document as MPSL");
 167 mp.actdesc['exec_action']   = LL("Execute action on document...");
 168 mp.actdesc['encoding']      = LL("Set charset encoding...");
 169 mp.actdesc['zoom_in']       = LL("Bigger font");
 170 mp.actdesc['zoom_out']      = LL("Smaller font");
 171 mp.actdesc['about']         = LL("About...");
 172
 173 /** code **/
 174
 175 sub dump(v)
 176 /* overwrite of the MPSL dump() function, dumping over a text document */
 177 {
 178         local d = mp.open("<dump>");
 179
 180         mp.move_eof(d);
 181         mp.insert(d, dumper(v));
 182         d.txt.mod = 0;
 183         d.read_only = 1;
 184 }