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