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-2007 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['word_count'] = sub (d) {
 103
 104         mp.busy(1);
 105         local c = mp.word_count(d);
 106         mp.busy(0);
 107
 108         mp.alert(sprintf(L("Lines: %d Words: %d"),
 109                 size(mp.get_active_area(d)), c));
 110 };
 111
 112 mp.actions['about'] = sub (d) {
 113         local msg = L(
 114         "\nMinimum Profit %s - Programmer Text Editor\n\n"\
 115         "Components: MPDM %s, MPSL %s\n\n"\
 116         "Copyright (C) 1991-2007 Angel Ortega <angel@triptico.com>\n"\
 117         "\n"\
 118         "This program is free software; you can redistribute it and/or\n"\
 119         "modify it under the terms of the GNU General Public License\n"\
 120         "as published by the Free Software Foundation; either version 2\n"\
 121         "of the License, or (at your option) any later version.\n"\
 122         "\n"\
 123         "This program is distributed in the hope that it will be useful,\n"\
 124         "but WITHOUT ANY WARRANTY; without even the implied warranty of\n"\
 125         "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n"\
 126         "See the GNU General Public License for more details.\n"\
 127         "\n"\
 128         "You should have received a copy of the GNU General Public License\n"\
 129         "along with this program; if not, write to the Free Software Foundation,\n"\
 130         "Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.\n"\
 131         "\n"\
 132         "Home page: http://www.triptico.com/software/mp.html\n"\
 133         "Mailing list: mp-subscribe@lists.triptico.com\n");
 134
 135         local mpdm = MPDM();
 136         msg = sprintf(msg, mp.VERSION, mpdm.version, MPSL.VERSION);
 137
 138         d = mp.open("<about>");
 139
 140         if (size(d.txt.lines) == 1) {
 141                 mp.insert(d, msg);
 142                 d.txt.mod = 0;
 143                 d.read_only = 1;
 144         }
 145 };
 146
 147 /** default key bindings **/
 148
 149 mp.keycodes['escape']           = 'eval';
 150 mp.keycodes['f12']              = 'zoom_in';
 151 mp.keycodes['ctrl-kp-plus' ]    = 'zoom_in';
 152 mp.keycodes['f11']              = 'zoom_out';
 153 mp.keycodes['ctrl-kp-minus' ]   = 'zoom_out';
 154
 155 /** action descriptions **/
 156
 157 mp.actdesc['eval']              = LL("Execute MPSL code...");
 158 mp.actdesc['eval_doc']          = LL("Execute document as MPSL");
 159 mp.actdesc['encoding']          = LL("Set charset encoding...");
 160 mp.actdesc['zoom_in']           = LL("Bigger font");
 161 mp.actdesc['zoom_out']          = LL("Smaller font");
 162 mp.actdesc['word_count']        = LL("Count words");
 163 mp.actdesc['about']             = LL("About...");
 164
 165 /** code **/
 166
 167 sub dump(v)
 168 /* overwrite of the MPSL dump() function, dumping over a text document */
 169 {
 170         local d = mp.open("<dump>");
 171
 172         mp.move_eof(d);
 173         mp.insert(d, dumper(v));
 174         d.txt.mod = 0;
 175         d.read_only = 1;
 176 }
 177
 178
 179 sub mp.word_count(doc)
 180 /* counts the number of words in doc */
 181 {
 182         local w = 0;
 183
 184         foreach (l, mp.get_active_area(doc))
 185                 w += size(mp.split_by_words(l));
 186
 187         return w;
 188 }