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-2009 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('/;\s*$/', t))
  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("\n", d.txt.lines);
  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;
  67
  68                         if ((l = regex( [ '/, line /', '/[0-9]+/' ], ERROR)) != NULL)
  69                                 mp.set_y(d, l[1]);
  70
  71                         ERROR = NULL;
  72                 }
  73         }
  74 };
  75
  76 mp.actions['encoding']  = sub (d) {
  77         local t = mp.form( [
  78                 { 'label' => L("Encoding (utf-8, iso8859-1, etc.; empty, current locale)") ~ ':',
  79                   'type' => 'text',
  80                   'history' => 'encoding' }
  81                 ]);
  82
  83         if (t != NULL)
  84                 if (encoding(t[0]) == -1)
  85                         mp.alert(L("Invalid encoding ") ~ t[0]);
  86 };
  87
  88 mp.actions['zoom_in']   = sub (d) {
  89
  90         mp.config.font_size++;
  91         mp.update_ui();
  92 };
  93
  94 mp.actions['zoom_out']  = sub (d) {
  95
  96         if (mp.config.font_size > 4) {
  97                 mp.config.font_size--;
  98                 mp.update_ui();
  99         }
 100 };
 101
 102 mp.actions['about'] = sub (d) {
 103         local msg = L(
 104         "\nMinimum Profit %s - Programmer Text Editor\n\n"\
 105         "Components: MPDM %s, MPSL %s\n\n"\
 106         "Copyright (C) 1991-2009 Angel Ortega <angel@triptico.com>\n"\
 107         "\n"\
 108         "This program is free software; you can redistribute it and/or\n"\
 109         "modify it under the terms of the GNU General Public License\n"\
 110         "as published by the Free Software Foundation; either version 2\n"\
 111         "of the License, or (at your option) any later version.\n"\
 112         "\n"\
 113         "This program is distributed in the hope that it will be useful,\n"\
 114         "but WITHOUT ANY WARRANTY; without even the implied warranty of\n"\
 115         "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n"\
 116         "See the GNU General Public License for more details.\n"\
 117         "\n"\
 118         "You should have received a copy of the GNU General Public License\n"\
 119         "along with this program; if not, write to the Free Software Foundation,\n"\
 120         "Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.\n"\
 121         "\n"\
 122         "Home page: http://www.triptico.com/software/mp.html\n"\
 123         "Mailing list: mp-subscribe@lists.triptico.com\n");
 124
 125         local mpdm = MPDM();
 126         msg = sprintf(msg, mp.VERSION, mpdm.version, MPSL.VERSION);
 127
 128         d = mp.open("<about>");
 129
 130         if (size(d.txt.lines) == 1) {
 131                 mp.insert(d, msg);
 132                 d.txt.mod = 0;
 133                 d.read_only = 1;
 134         }
 135 };
 136
 137 /** default key bindings **/
 138
 139 mp.keycodes['escape']           = 'eval';
 140 mp.keycodes['f12']              = 'zoom_in';
 141 mp.keycodes['ctrl-kp-plus' ]    = 'zoom_in';
 142 mp.keycodes['f11']              = 'zoom_out';
 143 mp.keycodes['ctrl-kp-minus' ]   = 'zoom_out';
 144
 145 /** action descriptions **/
 146
 147 mp.actdesc['eval']                      = LL("Execute MPSL code...");
 148 mp.actdesc['eval_doc']                  = LL("Execute document as MPSL");
 149 mp.actdesc['encoding']                  = LL("Set charset encoding...");
 150 mp.actdesc['zoom_in']                   = LL("Bigger font");
 151 mp.actdesc['zoom_out']                  = LL("Smaller font");
 152 mp.actdesc['about']                     = LL("About...");
 153
 154 /** code **/
 155
 156 sub dump(v)
 157 /* overwrite of the MPSL dump() function, dumping over a text document */
 158 {
 159         local d = mp.open("<dump>");
 160
 161         mp.move_eof(d);
 162         mp.insert(d, dumper(v));
 163         d.txt.mod = 0;
 164         d.read_only = 1;
 165 }