├── .gitignore ├── .travis.yml ├── CMakeLists.txt ├── COPYING ├── ChangeLog ├── README ├── README.md ├── build.txt ├── cygwin.txt ├── faq.txt ├── infolist.txt ├── license.txt ├── patch.txt └── src ├── CMakeLists.txt ├── abbrev.c ├── basic.c ├── bfs.c ├── bfs.h ├── bind.c ├── buffer.c ├── crypt.c ├── dirlist.c ├── display.c ├── dosterm.c ├── ebind.def ├── ebind.h ├── edef.h ├── eextrn.h ├── efunc.def ├── efunc.h ├── emain.h ├── emode.def ├── emode.h ├── eopt.h ├── eprint.def ├── eprint.h ├── esearch.h ├── eskeys.def ├── eskeys.h ├── estruct.h ├── eterm.h ├── etermcap.def ├── eval.c ├── evar.def ├── evar.h ├── evers.h ├── exec.c ├── faq.txt ├── file.c ├── fileio.c ├── frame.c ├── hilight.c ├── history.c ├── icon_me.ico ├── icon_ne.ico ├── infolist.txt ├── input.c ├── isearch.c ├── key.c ├── line.c ├── macro.c ├── macros ├── 2dos.emf ├── 2mac.emf ├── 2unix.emf ├── 2win.emf ├── abbrev.emf ├── abbrlist.emf ├── ada.eaf ├── aix.emf ├── asmx86.etf ├── asn1.etf ├── asp.eaf ├── au3.eaf ├── au3.etf ├── benchmrk.emf ├── bibtex.etf ├── bookmark.emf ├── buffinit.emf ├── c.eaf ├── c.etf ├── calc.emf ├── cfind.emf ├── cfm.eaf ├── cfm.etf ├── charset.emf ├── charsutl.emf ├── clearcs.emf ├── cmacros.emf ├── cobol.etf ├── collapse.emf ├── comment.emf ├── cpp.eaf ├── cpp.etf ├── crosswd.emf ├── ctags.emf ├── cvs.emf ├── cygwin.emf ├── darwin.emf ├── dmf.emf ├── doc.etf ├── docmacro.emf ├── docutl.emf ├── dos.emf ├── draw.emf ├── ehftools.emf ├── emf.eaf ├── emf.etf ├── emftags.emf ├── etfinsrt.emf ├── euphor.eaf ├── euphor.etf ├── f.etf ├── f90.etf ├── fattrib.emf ├── favorite.emf ├── fileopen.emf ├── filetool.emf ├── filetype.emf ├── find.emf ├── fold.emf ├── format.emf ├── freebsd.emf ├── ftp.emf ├── games.emf ├── gdiff.emf ├── gentags.emf ├── go.eaf ├── go.etf ├── h.etf ├── hkada.emf ├── hkapache.emf ├── hkasmx86.emf ├── hkasn1.emf ├── hkasp.eaf ├── hkasp.emf ├── hkau3.emf ├── hkawk.emf ├── hkbibtex.emf ├── hkbinary.emf ├── hkblist.emf ├── hkbnf.emf ├── hkc.eaf ├── hkc.emf ├── hkcfm.emf ├── hkcfms.emf ├── hkcobol.emf ├── hkcpp.eaf ├── hkcpp.emf ├── hkcss.emf ├── hkcygwin.emf ├── hkdiff.emf ├── hkdirlst.emf ├── hkdirtre.emf ├── hkdoc.emf ├── hkdos.emf ├── hkdot.emf ├── hkehf.emf ├── hkemf.eaf ├── hkemf.emf ├── hkerf.emf ├── hkeuphor.emf ├── hkf90.emf ├── hkfvwm.emf ├── hkgo.emf ├── hkhtml.eaf ├── hkhtml.emf ├── hkidl.emf ├── hkimake.emf ├── hkinfo.emf ├── hkini.emf ├── hkipipe.emf ├── hkiss.emf ├── hkjava.emf ├── hkjs.emf ├── hkjsp.eaf ├── hkjsp.emf ├── hkjst.eaf ├── hkjst.emf ├── hklatex.emf ├── hklhtml.emf ├── hklisp.emf ├── hklists.emf ├── hklua.emf ├── hkm4.emf ├── hkmake.emf ├── hkman.emf ├── hkmeta.emf ├── hkmhg.emf ├── hkmod2.emf ├── hknroff.eaf ├── hknroff.emf ├── hkpascal.emf ├── hkperl.emf ├── hkphp.eaf ├── hkphp.emf ├── hkphps.emf ├── hkpls.emf ├── hkpseudo.emf ├── hkpsf.emf ├── hkpython.emf ├── hkr.emf ├── hkreg.emf ├── hkruby.emf ├── hkrul.emf ├── hksamba.emf ├── hkscheme.emf ├── hksgml.emf ├── hkshell.emf ├── hkslang.emf ├── hkspec.emf ├── hksql.emf ├── hktcl.emf ├── hktexi.emf ├── hktxt.emf ├── hkvb.emf ├── hkverilg.emf ├── hkvhdl.emf ├── hkvrml.emf ├── hkwiki.emf ├── hkxml.emf ├── hkyacc.emf ├── hpp.etf ├── hpux.emf ├── html.eaf ├── html.etf ├── htmlcore.emf ├── htmltool.emf ├── htmlutil.emf ├── idl.etf ├── imake.etf ├── insdate.emf ├── irix.emf ├── itemlist.emf ├── java.eaf ├── java.etf ├── javatags.emf ├── js.eaf ├── js.etf ├── jsp.eaf ├── jst.eaf ├── jst.etf ├── jst2html.emf ├── jst2ltx.emf ├── jst2rtf.emf ├── jst2text.emf ├── jstags.emf ├── jstprint.erf ├── jstutl.emf ├── keyboard.emf ├── killlist.emf ├── language.emf ├── langutl.emf ├── latex.eaf ├── latex.etf ├── linux.emf ├── list.emf ├── mahjongg.emf ├── mail.emf ├── mailmerg.emf ├── majormod.emf ├── makefile.etf ├── matchit.edf ├── matchit.emf ├── me.ehf ├── me.emf ├── mecua.emf ├── meemacs.emf ├── melogo.emf ├── meme3_8.emf ├── menedit.emf ├── meserver.emf ├── metris.emf ├── mhg.etf ├── misc.emf ├── mod2.etf ├── mouse.emf ├── mouseosd.emf ├── mouserec.emf ├── msshift.emf ├── narrow.emf ├── newcomp.etf ├── newuser.emf ├── newuser.erf ├── newuser.etf ├── notes.emf ├── notesutl.emf ├── nroff.etf ├── ntags.emf ├── null ├── openbsd.emf ├── openstep.emf ├── organiza.emf ├── organizd.emf ├── organize.emf ├── organizi.emf ├── organizl.emf ├── organizm.emf ├── organizt.emf ├── organizw.emf ├── osd.emf ├── osdcua.emf ├── osdhelp.emf ├── osdmisc.emf ├── osdnedit.emf ├── osf1.emf ├── pagefile.emf ├── pascal.eaf ├── pascal.etf ├── password.emf ├── patience.emf ├── perl.eaf ├── perl.etf ├── perltags.emf ├── php.eaf ├── pls.eaf ├── pls.etf ├── print.emf ├── print.erf ├── printall.emf ├── printd.emf ├── printd.erf ├── printepc.emf ├── printeps.erf ├── printers.emf ├── printf.emf ├── printhpd.erf ├── printhpl.erf ├── printhtm.erf ├── printstp.emf ├── printwdw.erf ├── psf.etf ├── python.eaf ├── python.etf ├── rect.emf ├── ruby.etf ├── rul.etf ├── scheme.emf ├── schemeb.emf ├── schemebc.emf ├── schemebh.emf ├── schemech.emf ├── schemed.emf ├── schemegb.emf ├── schemege.emf ├── schemegg.emf ├── schemego.emf ├── schemej.emf ├── schemel.emf ├── schemel2.emf ├── schemelj.emf ├── schemelm.emf ├── schememd.emf ├── schememw.emf ├── schemepd.emf ├── schemepl.emf ├── schemes.emf ├── schemesf.emf ├── schemetb.emf ├── schemetw.emf ├── schemevi.emf ├── schemosd.emf ├── search.emf ├── session.emf ├── sessnstp.emf ├── sgml.eaf ├── spec.etf ├── spell.emf ├── spellaut.emf ├── spellutl.emf ├── ssaver.emf ├── sunos.emf ├── tcl.eaf ├── tcl.etf ├── tcltags.emf ├── textags.emf ├── toolbar.emf ├── tooldef.emf ├── toollist.emf ├── tools.emf ├── toolstd.emf ├── toolstp.emf ├── triangle.emf ├── txt.eaf ├── unixterm.emf ├── userstp.emf ├── utils.emf ├── vbtags.emf ├── vhdl.eaf ├── vhdl.etf ├── vm.emf ├── watch.emf ├── win32.emf ├── word.emf ├── xfind.emf ├── xml.etf ├── xmlutil.emf ├── yacc.etf ├── zaurus.emf └── zfile.emf ├── main.c ├── me.rc ├── me32.bmp ├── memsvc20.rc ├── narrow.c ├── ncmsvc20.rc ├── ne.rc ├── ne32.bmp ├── nec.rc ├── nemsvc20.rc ├── next.c ├── osd.c ├── patch.txt ├── print.c ├── random.c ├── readme.txt ├── regex.c ├── region.c ├── registry.c ├── search.c ├── spawn.c ├── spell.c ├── tag.c ├── termio.c ├── time.c ├── undo.c ├── unixterm.c ├── window.c ├── winprint.c ├── winterm.c ├── winterm.h ├── wintermr.h └── word.c /.gitignore: -------------------------------------------------------------------------------- 1 | CMakeCache.txt 2 | **/cmake_install.cmake 3 | **/CMakeFiles/** 4 | **/Makefile 5 | /src/*.o 6 | /src/me 7 | -------------------------------------------------------------------------------- /.travis.yml: -------------------------------------------------------------------------------- 1 | sudo: false 2 | language: c 3 | 4 | compiler: 5 | - clang 6 | - gcc 7 | 8 | before_script: cmake . 9 | 10 | script : make 11 | -------------------------------------------------------------------------------- /CMakeLists.txt: -------------------------------------------------------------------------------- 1 | cmake_minimum_required(VERSION 2.6) 2 | project (me) 3 | add_subdirectory(src) 4 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | [![Build Status GCC/Clang](https://travis-ci.org/vitalyster/microemacs.svg?branch=master)](https://travis-ci.org/vitalyster/microemacs) 2 | [![Build status MSVC](https://ci.appveyor.com/api/projects/status/7rrur258cwnpwp6v/branch/master?svg=true)](https://ci.appveyor.com/project/vitalyster/microemacs/branch/master) 3 | -------------------------------------------------------------------------------- /infolist.txt: -------------------------------------------------------------------------------- 1 | Install Shield Installation Notes 2 | 3 | Do not install a MicroEmacs JASSPA distribution over of an 4 | existing MicroEmacs JASSPA distribution, always remove the 5 | existing distribution first. This ensures that the 6 | distribution will uninstall correctly. 7 | 8 | If you have an existing distribution installed then quit 9 | now and remove it. New files that you have created in the 10 | existing distribution, such as you personal and company 11 | profiles may be left on the system. 12 | 13 | During the installation you will be prompted for types of 14 | file extensions to install. It is recommended that you only 15 | select those groups of extension that you will use. This 16 | operation creates an "Open" action against the file 17 | extension which makes MicroEmacs the default application 18 | when the file is selected from Explorer, etc. 19 | -------------------------------------------------------------------------------- /license.txt: -------------------------------------------------------------------------------- 1 | JASSPA's MicroEMACS is distributed under the GNU GENERAL PUBLIC LICENSE (GPL). 2 | A copy of the GPL license may be found in the file COPYING. 3 | 4 | This license is valid from January 1st 2002 and applies to the JASSPA 5 | Distribution of MicroEmacs only. These license terms may not be applied to 6 | other versions of MicroEmacs or retrospectively to older versions of JASSPA 7 | MicroEmacs which fall under their own licensing terms. 8 | 9 | Special thanks go to Danial M. Lawrence, the original author and license 10 | holder of MicroEMACS, who granted JASSPA permission to move the code base to 11 | GPL on 19th December 2001. Permission was granted on the grounds that code 12 | base is nearly 14 years diverged from the original and has been substantially 13 | modified. 14 | 15 | Jon Green & Steve Philips (JASSPA - www.jasspa.com) 16 | 30th December 2001 17 | -------------------------------------------------------------------------------- /patch.txt: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | Patching(1) microemacs Patching(1) 5 | 6 | 7 | 8 | 9 | PATCHING 10 | This page describes how to patch a MicroEmacs installation with a later 11 | release without re-installing. 12 | 13 | Windows 14 | Windows requires careful patching in order not to disturb the registry 15 | settings The following procedure should be followed. 16 | 17 | * Move to the jasspa directory, c:\ProgramFiles\JASSPA\Microemacs. 18 | * COPY the executable me32.exe to a backup, you MUST copy the file 19 | otherwise the registry settings will change. DO NOT MOVE THE FILE. 20 | 21 | copy me32.exe me32_2002_12.exe 22 | 23 | * Save the macros directory, these may be moved i.e. 24 | 25 | rename macros macros_2002_12 26 | 27 | * Unpack and install the new Windows executable and COPY over the 28 | original executable that was previously backed up i.e. 29 | 30 | copy c:\path-to-executable\me32-win32-20040108-rc1.exe me32.exe 31 | 32 | * Create a new macros directory and install the macros into this new 33 | directory, do this manually or using a utility like WINZip. 34 | 35 | mkdir macros 36 | cd macros 37 | unzip c:\path-to\memacros-20040108-rc1.zip 38 | 39 | * The new version of MicroEmacs will now operate with the old 40 | installation environment. You may return to the old release by 41 | reversing the steps to patch the installation. 42 | 43 | UNIX/Linux 44 | For *NIX package installations then patching is a little easier. The steps 45 | are defined as follows:- 46 | 47 | * Move to the jasspa directory. 48 | 49 | cd /opt/jasspa/bin 50 | 51 | * Save the original executable. 52 | 53 | mv me me_200212 54 | 55 | * Unpack the new executable and make it executable. 56 | 57 | gunzip me-sun-solaris-20040108-rc1.gz 58 | mv me-sun-solaris-20040108-rc1 me 59 | chmod a+x me 60 | 61 | * Save the existing macros directory. 62 | 63 | cd /opt/jasspa 64 | mv macros macros_200212 65 | 66 | * Create a new macros directory and install the new macros:- 67 | 68 | mkdir macros 69 | cd macros 70 | unzip /path-to/memacros-20040108-rc1.zip 71 | 72 | * Installed packages are built with the install path built into the 73 | executable, this may be different from the patch version of the 74 | executable so the environment variable $MEINSTALLPATH(5) may be 75 | defined in the environment with the macro installation search paths. 76 | 77 | SEE ALSO 78 | $MENAME(5), $MEINSTALLPATH(5), Company Profiles, Installation, File Hooks, 79 | File Language Templates, User Profiles. 80 | 81 | -------------------------------------------------------------------------------- /src/CMakeLists.txt: -------------------------------------------------------------------------------- 1 | if (NOT APPLE) 2 | option(ENABLE_GUI "Build GUI" OFF) 3 | endif() 4 | set (SRCS abbrev.c 5 | basic.c 6 | bind.c 7 | buffer.c 8 | crypt.c 9 | dirlist.c 10 | termio.c 11 | display.c 12 | eval.c 13 | exec.c 14 | file.c 15 | fileio.c 16 | frame.c 17 | hilight.c 18 | history.c 19 | input.c 20 | isearch.c 21 | key.c 22 | line.c 23 | macro.c 24 | main.c 25 | narrow.c 26 | next.c 27 | osd.c 28 | print.c 29 | random.c 30 | regex.c 31 | region.c 32 | registry.c 33 | search.c 34 | spawn.c 35 | spell.c 36 | tag.c 37 | time.c 38 | undo.c 39 | window.c 40 | word.c) 41 | 42 | set (WIN32_SRCS winterm.c 43 | winprint.c 44 | me.rc) 45 | set (VTE_SRCS unixterm.c) 46 | if (WIN32) 47 | list(APPEND SRCS ${WIN32_SRCS}) 48 | add_definitions(-D_CRT_SECURE_NO_WARNINGS) 49 | add_definitions(-D_UNICODE) 50 | add_definitions(-DUNICODE) 51 | endif() 52 | if (APPLE) 53 | add_definitions(-D_DARWIN) 54 | endif() 55 | if(${CMAKE_SYSTEM_NAME} STREQUAL "Linux") 56 | add_definitions(-D_LINUX) 57 | add_definitions(-D_LINUX26) 58 | endif() 59 | if (UNIX) 60 | add_definitions(-D_LARGEFILE_SOURCE) 61 | add_definitions(-D_FILE_OFFSET_BITS=64) 62 | list(APPEND SRCS ${VTE_SRCS}) 63 | endif() 64 | if (ENABLE_GUI) 65 | add_definitions(-D_ME_WINDOW) 66 | endif() 67 | add_definitions(-D_ME_CONSOLE) 68 | add_executable(me ${SRCS}) 69 | if (UNIX) 70 | find_library(TERMCAP_LIBRARY NAMES tinfo termcap ncursesw ncurses cursesw curses) 71 | target_link_libraries(me ${TERMCAP_LIBRARY}) 72 | endif() 73 | -------------------------------------------------------------------------------- /src/ebind.h: -------------------------------------------------------------------------------- 1 | /* -*- c -*- 2 | * 3 | * JASSPA MicroEmacs - www.jasspa.com 4 | * ebind.h - initial key to command binding definitions. 5 | * 6 | * Copyright (C) 1988-2009 JASSPA (www.jasspa.com) 7 | * 8 | * This program is free software; you can redistribute it and/or modify it 9 | * under the terms of the GNU General Public License as published by the Free 10 | * Software Foundation; either version 2 of the License, or (at your option) 11 | * any later version. 12 | * 13 | * This program is distributed in the hope that it will be useful, but WITHOUT 14 | * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 15 | * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 16 | * more details. 17 | * 18 | * You should have received a copy of the GNU General Public License along 19 | * with this program; if not, write to the Free Software Foundation, Inc., 20 | * 675 Mass Ave, Cambridge, MA 02139, USA. 21 | */ 22 | /* 23 | * Created: For MicroEMACS 3.7 24 | * Synopsis: initial key to command binding definitions. 25 | * Authors: Unknown, Jon Green & Steven Phillips 26 | * Description: 27 | * Includes ebind.def to create an ordered list of initial 28 | * key binding definitions. 29 | */ 30 | #ifdef maindef 31 | 32 | #define DEFBIND(x,y,z) {(meUShort)(x), (meUShort)(z), (meUInt)(y)}, 33 | 34 | meBind keytab[meBIND_MAX] = { 35 | 36 | #include "ebind.def" 37 | 38 | { ME_INVALID_KEY, 0, 0 } 39 | 40 | }; 41 | 42 | #undef DEFBIND 43 | 44 | #endif /* maindef */ 45 | -------------------------------------------------------------------------------- /src/emode.def: -------------------------------------------------------------------------------- 1 | /* -*- c -*- 2 | * 3 | * JASSPA MicroEmacs - www.jasspa.com 4 | * emode.def - Definition of the modes. 5 | * 6 | * Copyright (C) 1998-2009 JASSPA (www.jasspa.com) 7 | * 8 | * This program is free software; you can redistribute it and/or modify it 9 | * under the terms of the GNU General Public License as published by the Free 10 | * Software Foundation; either version 2 of the License, or (at your option) 11 | * any later version. 12 | * 13 | * This program is distributed in the hope that it will be useful, but WITHOUT 14 | * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 15 | * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 16 | * more details. 17 | * 18 | * You should have received a copy of the GNU General Public License along 19 | * with this program; if not, write to the Free Software Foundation, Inc., 20 | * 675 Mass Ave, Cambridge, MA 02139, USA. 21 | */ 22 | /* 23 | * Created: Thu Jan 15 1998 24 | * Synopsis: Definition of the modes. 25 | * Authors: Steve Philips 26 | * Description: 27 | * Included by emode.h to create an ordered list of global/buffer modes. 28 | * 29 | * Notes: 30 | * The modes were originally defined in edef.h. 31 | * The list MUST be ordered for the message-line auto-complete to work. 32 | */ 33 | DEFMODE(MDAUTOSV, "autosv", 'a') /* Auto-save the buffer */ 34 | DEFMODE(MDBACKUP, "backup", 'B') /* Do file backup */ 35 | DEFMODE(MDBINARY, "binary", 'b') /* File loaded in binary mode */ 36 | DEFMODE(MDCR, "cr", 'c') /* Save \r's on end of line */ 37 | DEFMODE(MDCRYPT, "crypt", 'Y') /* encrytion mode active */ 38 | DEFMODE(MDCTRLZ, "ctrlz", 'z') /* Save \CZ at end of file */ 39 | DEFMODE(MDEDIT, "edit", 'e') /* Changed since last write */ 40 | DEFMODE(MDEXACT, "exact", 'E') /* Exact matching for searches */ 41 | DEFMODE(MDFENCE, "fence", 'f') /* Auto display matching fence */ 42 | DEFMODE(MDHIDE, "hide", 'H') /* Buffer is hidden */ 43 | DEFMODE(MDINDENT, "indent", 'I') /* indent mode */ 44 | DEFMODE(MDJUST, "justify",'J') /* indent mode */ 45 | DEFMODE(MDLF, "lf", 'l') /* Save \r's on end of line */ 46 | DEFMODE(MDLOCK, "lock", 'L') /* Ipipe buffer with reframe */ 47 | DEFMODE(MDMAGIC, "magic", 'M') /* regular expresions in search */ 48 | DEFMODE(MDNACT, "nact", 'n') /* Buffer is not active */ 49 | DEFMODE(MDNARROW, "narrow", 'N') /* Buffer has a narrowing */ 50 | DEFMODE(MDOVER, "over", 'O') /* overwrite mode */ 51 | DEFMODE(MDPIPE, "pipe", 'P') /* Buffer is an ipipe buffer */ 52 | DEFMODE(MDRBIN, "rbin", 'r') /* File loaded in reduced binary*/ 53 | DEFMODE(MDTAB, "tab", 'T') /* Virtual tabs */ 54 | DEFMODE(MDTIME, "time", 't') /* Time stamping mode */ 55 | DEFMODE(MDUNDO, "undo", 'U') /* Undo enabled */ 56 | DEFMODE(MDVIEW, "view", 'V') /* read-only buffer */ 57 | DEFMODE(MDWRAP, "wrap", 'W') /* word wrap */ 58 | 59 | -------------------------------------------------------------------------------- /src/eopt.h: -------------------------------------------------------------------------------- 1 | /* -*- c -*- 2 | * 3 | * JASSPA MicroEmacs - www.jasspa.com 4 | * eopt.h - &opt optional functionality labels. 5 | * 6 | * Copyright (C) 2002-2009 JASSPA (www.jasspa.com) 7 | * 8 | * This program is free software; you can redistribute it and/or modify it 9 | * under the terms of the GNU General Public License as published by the Free 10 | * Software Foundation; either version 2 of the License, or (at your option) 11 | * any later version. 12 | * 13 | * This program is distributed in the hope that it will be useful, but WITHOUT 14 | * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 15 | * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 16 | * more details. 17 | * 18 | * You should have received a copy of the GNU General Public License along 19 | * with this program; if not, write to the Free Software Foundation, Inc., 20 | * 675 Mass Ave, Cambridge, MA 02139, USA. 21 | */ 22 | /* 23 | * Created: Sat Jan 19 2002 24 | * Synopsis: &opt optional functionality labels. 25 | * Authors: Steve Phillips 26 | * Description: 27 | * Creates an meOptionList string defining all optional components 28 | * enabled in the current build. 29 | */ 30 | 31 | #ifndef __EOPT_H 32 | #define __EOPT_H 33 | 34 | /* List of available options */ 35 | meUByte meOptionList[]= 36 | #if MEOPT_ABBREV 37 | "abb\n" 38 | #endif 39 | #if MEOPT_CALLBACK 40 | "cal\n" 41 | #endif 42 | #if MEOPT_CLIENTSERVER 43 | "cli\n" 44 | #endif 45 | #if MEOPT_COLOR 46 | "col\n" 47 | #endif 48 | #if MEOPT_CRYPT 49 | "cry\n" 50 | #endif 51 | #if MEOPT_DEBUGM 52 | "deb\n" 53 | #endif 54 | #if MEOPT_DIRLIST 55 | "dir\n" 56 | #endif 57 | #if MEOPT_EXTENDED 58 | "ext\n" 59 | #endif 60 | #if MEOPT_FENCE 61 | "fen\n" 62 | #endif 63 | #if MEOPT_FILEHOOK 64 | "fho\n" 65 | #endif 66 | #if MEOPT_FRAME 67 | "fra\n" 68 | #endif 69 | #if MEOPT_CMDHASH 70 | "has\n" 71 | #endif 72 | #if MEOPT_HILIGHT 73 | "hil\n" 74 | #endif 75 | #if MEOPT_HSPLIT 76 | "hsp\n" 77 | #endif 78 | #if MEOPT_IPIPES 79 | "ipi\n" 80 | #endif 81 | #if MEOPT_ISEARCH 82 | "ise\n" 83 | #endif 84 | #if MEOPT_LOCALBIND 85 | "lbi\n" 86 | #endif 87 | #if MEOPT_MAGIC 88 | "mag\n" 89 | #endif 90 | #if MEOPT_MOUSE 91 | "mou\n" 92 | #endif 93 | #if MEOPT_MWFRAME 94 | "mwf\n" 95 | #endif 96 | #if MEOPT_NARROW 97 | "nar\n" 98 | #endif 99 | #if MEOPT_FILENEXT 100 | "nex\n" 101 | #endif 102 | #if MEOPT_OSD 103 | "osd\n" 104 | #endif 105 | #if MEOPT_POSITION 106 | "pos\n" 107 | #endif 108 | #if MEOPT_PRINT 109 | "pri\n" 110 | #endif 111 | #if MEOPT_RCS 112 | "rcs\n" 113 | #endif 114 | #if MEOPT_REGISTRY 115 | "reg\n" 116 | #endif 117 | #if MEOPT_SCROLL 118 | "scr\n" 119 | #endif 120 | #if MEOPT_SOCKET 121 | "soc\n" 122 | #endif 123 | #if MEOPT_SPAWN 124 | "spa\n" 125 | #endif 126 | #if MEOPT_SPELL 127 | "spe\n" 128 | #endif 129 | #if MEOPT_TAGS 130 | "tag\n" 131 | #endif 132 | #if MEOPT_TIMSTMP 133 | "tim\n" 134 | #endif 135 | #if MEOPT_TYPEAH 136 | "typ\n" 137 | #endif 138 | #if MEOPT_UNDO 139 | "und\n" 140 | #endif 141 | #if MEOPT_WORDPRO 142 | "wor\n" 143 | #endif 144 | ; 145 | 146 | #endif /* __EOPT_H */ 147 | -------------------------------------------------------------------------------- /src/eskeys.h: -------------------------------------------------------------------------------- 1 | /* -*- c -*- 2 | * 3 | * JASSPA MicroEmacs - www.jasspa.com 4 | * eskeys.h - Extended key definitions. 5 | * 6 | * Copyright (C) 1997-2009 JASSPA (www.jasspa.com) 7 | * 8 | * This program is free software; you can redistribute it and/or modify it 9 | * under the terms of the GNU General Public License as published by the Free 10 | * Software Foundation; either version 2 of the License, or (at your option) 11 | * any later version. 12 | * 13 | * This program is distributed in the hope that it will be useful, but WITHOUT 14 | * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 15 | * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 16 | * more details. 17 | * 18 | * You should have received a copy of the GNU General Public License along 19 | * with this program; if not, write to the Free Software Foundation, Inc., 20 | * 675 Mass Ave, Cambridge, MA 02139, USA. 21 | */ 22 | /* 23 | * Created: Thu Sep 18 1997 24 | * Synopsis: Extended key definitions. 25 | * Authors: Steven Phillips & Jon Green 26 | * Description: 27 | * Includes eskeys.def to create an ordered list of extended (special) 28 | * key names. 29 | */ 30 | 31 | #ifndef __ESKEYS_H__ 32 | #define __ESKEYS_H__ 33 | 34 | #define DEFSKEY(s,i,d,t) t, 35 | 36 | enum 37 | { 38 | #include "eskeys.def" 39 | SKEY_MAX 40 | }; 41 | 42 | #undef DEFSKEY 43 | 44 | extern meUByte *specKeyNames[] ; 45 | 46 | #ifdef maindef 47 | 48 | #define DEFSKEY(s,i,d,t) (meUByte *) s, 49 | 50 | meUByte *specKeyNames[]= 51 | { 52 | #include "eskeys.def" 53 | }; 54 | #undef DEFSKEY 55 | 56 | #endif /* maindef */ 57 | 58 | #endif /* __ESKEYS_H__ */ 59 | 60 | -------------------------------------------------------------------------------- /src/evers.h: -------------------------------------------------------------------------------- 1 | /* -*- c -*- 2 | * 3 | * JASSPA MicroEmacs - www.jasspa.com 4 | * evers.h - The build version definition. 5 | * 6 | * Copyright (C) 1992-2009 JASSPA (www.jasspa.com) 7 | * 8 | * This program is free software; you can redistribute it and/or modify it 9 | * under the terms of the GNU General Public License as published by the Free 10 | * Software Foundation; either version 2 of the License, or (at your option) 11 | * any later version. 12 | * 13 | * This program is distributed in the hope that it will be useful, but WITHOUT 14 | * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 15 | * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 16 | * more details. 17 | * 18 | * You should have received a copy of the GNU General Public License along 19 | * with this program; if not, write to the Free Software Foundation, Inc., 20 | * 675 Mass Ave, Cambridge, MA 02139, USA. 21 | */ 22 | /* 23 | * Created: 1st May 1992 24 | * Synopsis: The build version definition. 25 | * Authors: Jon Green & Steven Phillips 26 | * Description: 27 | * These are put in here so that you wont have to grub around in the depths 28 | * of display.c & main.c etc every time you want to remind yourself that 29 | * you've hacked emacs by updating the version number. 30 | * 31 | * Notes: 32 | * The definitions have been moved out of estruct.h, because, if you change 33 | * them and you have written your makefile properly, everything gets recompiled 34 | * whereas putting them here only makes "make" recompile display.c 35 | * 36 | * The history was removed from this file as CVS and the help pages are used 37 | * instead. 38 | */ 39 | 40 | /* THESE MAY ONLY BE MODIFIED BY JASSPA THEY REPRESENT THE CURRENT 41 | * RELEASE OF THE BUILD AND ARE USED AS A REFERENCE POINT WHEN 42 | * PROBLEMS OCCUR. THESE VALUES ARE NOT INTENDED TO REPRESENT 43 | * THE BUILD DATE OF THE SOFTWARE AND MUST NOT BE MODIFIED AS SUCH */ 44 | #define meCENTURY "20" /* Current century. Y2 complient :-) */ 45 | #define meYEAR "09" /* Current year */ 46 | #define meMONTH "12" /* Current month */ 47 | #define meDAY "12" /* Day of the month */ 48 | 49 | /* Version information - Date of build */ 50 | #define meDATE meYEAR "/" meMONTH "/" meDAY 51 | /* Version information - Major version number is the year of build */ 52 | #define meVERSION meYEAR 53 | /* Version information - Minor version number is the month of build */ 54 | #define meVERSION_MINOR meMONTH 55 | /* Version information - Version as a numeric date code */ 56 | #define meVERSION_CODE meCENTURY meYEAR meMONTH meDAY 57 | 58 | /* The program names - these values are also used in the rc files */ 59 | #define ME_MICROEMACS_FULLNAME "MicroEmacs" 60 | #define ME_MICROEMACS_SHORTNAME "me" 61 | #define ME_NANOEMACS_FULLNAME "NanoEmacs" 62 | #define ME_NANOEMACS_SHORTNAME "ne" 63 | 64 | #define ME_COMPANY_NAME "JASSPA" 65 | #define ME_COMPANY_SITE "www.jasspa.com" 66 | -------------------------------------------------------------------------------- /src/icon_me.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/icon_me.ico -------------------------------------------------------------------------------- /src/icon_ne.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/icon_ne.ico -------------------------------------------------------------------------------- /src/infolist.txt: -------------------------------------------------------------------------------- 1 | Install Shield Installation Notes 2 | 3 | Do not install a MicroEmacs JASSPA distribution over of an 4 | existing MicroEmacs JASSPA distribution, always remove the 5 | existing distribution first. This ensures that the 6 | distribution will uninstall correctly. 7 | 8 | If you have an existing distribution installed then quit 9 | now and remove it. New files that you have created in the 10 | existing distribution, such as you personal and company 11 | profiles may be left on the system. 12 | 13 | During the installation you will be prompted for types of 14 | file extensions to install. It is recommended that you only 15 | select those groups of extension that you will use. This 16 | operation creates an "Open" action against the file 17 | extension which makes MicroEmacs the default application 18 | when the file is selected from Explorer, etc. 19 | -------------------------------------------------------------------------------- /src/macros/2dos.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1998-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: To dos text file conversion routine. 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Usage: 10 | ; me [-B] "@2dos" 11 | ; 12 | ; set the default so empty files are handled correctly 13 | 1 global-mode "cr" 14 | 1 global-mode "lf" 15 | -1 global-mode "ctrlz" 16 | define-macro start-up 17 | delete-other-windows 18 | !while ¬ &seq $buffer-bname "*scratch*" 19 | set-variable #l2 0 20 | !if &band $buffer-fmod 0x10000 21 | set-variable #l0 "Directory, skip" 22 | !elif &band $buffer-fmod 0x80000 23 | set-variable #l0 "Binary, skip" 24 | !else 25 | set-variable #l3 &add &add &bmod "cr" &mul &bmod "lf" 2 &mul &bmod "ctrlz" 4 26 | set-variable #l0 &mid "Strange0Unix Mac Windows Strange4Strange5Strange6Dos" &mul #l3 8 8 27 | !if &seq &rig #l0 -1 " " 28 | set-variable #l0 &lef #l0 -1 29 | !jump -2 30 | !endif 31 | !if &band $buffer-fmod 0x100000 32 | set-variable #l0 &cat #l0 " (bad), fix" 33 | set-variable #l2 1 34 | !elif &sub #l3 7 35 | set-variable #l0 &cat #l0 ", fix" 36 | set-variable #l2 1 37 | !else 38 | set-variable #l0 &cat #l0 ", okay" 39 | !endif 40 | !endif 41 | !if &band $system 0x1000000 42 | -1 ml-write &cat &cat $buffer-fname " - " #l0 43 | !else 44 | ml-write &cat &cat &cat &cat "[Processing \"" $buffer-fname "\" - " #l0 "]" 45 | !endif 46 | !if #l2 47 | ; flag as a unix file and as edited, then save 48 | 1 buffer-mode "cr" 49 | 1 buffer-mode "lf" 50 | 1 buffer-mode "ctrlz" 51 | 1 buffer-mode "edit" 52 | 0 save-buffer 53 | !endif 54 | delete-buffer $buffer-bname 55 | !done 56 | exit-emacs 57 | !emacro 58 | -------------------------------------------------------------------------------- /src/macros/2mac.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2006 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: 2006-10-20 7 | ; Synopsis: To Mac text file conversion routine. 8 | ; Authors: Steven Phillips 9 | ; 10 | ; Usage: 11 | ; me [-B] "@2mac" 12 | ; 13 | ; set the default so empty files are handled correctly 14 | -1 global-mode "cr" 15 | 1 global-mode "lf" 16 | -1 global-mode "ctrlz" 17 | define-macro start-up 18 | delete-other-windows 19 | !while ¬ &seq $buffer-bname "*scratch*" 20 | set-variable #l2 0 21 | !if &band $buffer-fmod 0x10000 22 | set-variable #l0 "Directory, skip" 23 | !elif &band $buffer-fmod 0x80000 24 | set-variable #l0 "Binary, skip" 25 | !else 26 | set-variable #l3 &add &add &bmod "cr" &mul &bmod "lf" 2 &mul &bmod "ctrlz" 4 27 | set-variable #l0 &mid "Strange0Unix Mac Windows Strange4Strange5Strange6Dos" &mul #l3 8 8 28 | !if &seq &rig #l0 -1 " " 29 | set-variable #l0 &lef #l0 -1 30 | !jump -2 31 | !endif 32 | !if &band $buffer-fmod 0x100000 33 | set-variable #l0 &cat #l0 " (bad), fix" 34 | set-variable #l2 1 35 | !elif &sub #l3 2 36 | set-variable #l0 &cat #l0 ", fix" 37 | set-variable #l2 1 38 | !else 39 | set-variable #l0 &cat #l0 ", okay" 40 | !endif 41 | !endif 42 | !if &band $system 0x1000000 43 | -1 ml-write &cat &cat $buffer-fname " - " #l0 44 | !else 45 | ml-write &cat &cat &cat &cat "[Processing \"" $buffer-fname "\" - " #l0 "]" 46 | !endif 47 | !if #l2 48 | ; flag as a unix file and as edited, then save 49 | -1 buffer-mode "cr" 50 | 1 buffer-mode "lf" 51 | -1 buffer-mode "ctrlz" 52 | 1 buffer-mode "edit" 53 | 0 save-buffer 54 | !endif 55 | delete-buffer $buffer-bname 56 | !done 57 | exit-emacs 58 | !emacro 59 | -------------------------------------------------------------------------------- /src/macros/2unix.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1998-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: To unix text file conversion routine. 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Usage: 10 | ; me [-B] "@2unix" 11 | ; 12 | ; set the default so empty files are handled correctly 13 | 1 global-mode "cr" 14 | -1 global-mode "lf" 15 | -1 global-mode "ctrlz" 16 | define-macro start-up 17 | delete-other-windows 18 | !while ¬ &seq $buffer-bname "*scratch*" 19 | set-variable #l2 0 20 | !if &band $buffer-fmod 0x10000 21 | set-variable #l0 "Directory, skip" 22 | !elif &band $buffer-fmod 0x80000 23 | set-variable #l0 "Binary, skip" 24 | !else 25 | set-variable #l3 &add &add &bmod "cr" &mul &bmod "lf" 2 &mul &bmod "ctrlz" 4 26 | set-variable #l0 &mid "Strange0Unix Mac Windows Strange4Strange5Strange6Dos" &mul #l3 8 8 27 | !if &seq &rig #l0 -1 " " 28 | set-variable #l0 &lef #l0 -1 29 | !jump -2 30 | !endif 31 | !if &band $buffer-fmod 0x100000 32 | set-variable #l0 &cat #l0 " (bad), fix" 33 | set-variable #l2 1 34 | !elif &sub #l3 1 35 | set-variable #l0 &cat #l0 ", fix" 36 | set-variable #l2 1 37 | !else 38 | set-variable #l0 &cat #l0 ", okay" 39 | !endif 40 | !endif 41 | !if &band $system 0x1000000 42 | -1 ml-write &cat &cat $buffer-fname " - " #l0 43 | !else 44 | ml-write &cat &cat &cat &cat "[Processing \"" $buffer-fname "\" - " #l0 "]" 45 | !endif 46 | !if #l2 47 | ; flag as a unix file and as edited, then save 48 | 1 buffer-mode "cr" 49 | -1 buffer-mode "lf" 50 | -1 buffer-mode "ctrlz" 51 | 1 buffer-mode "edit" 52 | 0 save-buffer 53 | !endif 54 | delete-buffer $buffer-bname 55 | !done 56 | exit-emacs 57 | !emacro 58 | -------------------------------------------------------------------------------- /src/macros/2win.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1998-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: To Windows text file conversion routine. 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Usage: 10 | ; me [-B] "@2win" 11 | ; 12 | ; set the default so empty files are left alone 13 | 1 global-mode "cr" 14 | 1 global-mode "lf" 15 | -1 global-mode "ctrlz" 16 | define-macro start-up 17 | delete-other-windows 18 | !while ¬ &seq $buffer-bname "*scratch*" 19 | set-variable #l2 0 20 | !if &band $buffer-fmod 0x10000 21 | set-variable #l0 "Directory, skip" 22 | !elif &band $buffer-fmod 0x80000 23 | set-variable #l0 "Binary, skip" 24 | !else 25 | set-variable #l3 &add &add &bmod "cr" &mul &bmod "lf" 2 &mul &bmod "ctrlz" 4 26 | set-variable #l0 &mid "Strange0Unix Mac Windows Strange4Strange5Strange6Dos" &mul #l3 8 8 27 | !if &seq &rig #l0 -1 " " 28 | set-variable #l0 &lef #l0 -1 29 | !jump -2 30 | !endif 31 | !if &band $buffer-fmod 0x100000 32 | set-variable #l0 &cat #l0 " (bad), fix" 33 | set-variable #l2 1 34 | !elif &sub #l3 3 35 | set-variable #l0 &cat #l0 ", fix" 36 | set-variable #l2 1 37 | !else 38 | set-variable #l0 &cat #l0 ", okay" 39 | !endif 40 | !endif 41 | !if &band $system 0x1000000 42 | -1 ml-write &cat &cat $buffer-fname " - " #l0 43 | !else 44 | ml-write &cat &cat &cat &cat "[Processing \"" $buffer-fname "\" - " #l0 "]" 45 | !endif 46 | !if #l2 47 | ; flag as a unix file and as edited, then save 48 | 1 buffer-mode "cr" 49 | 1 buffer-mode "lf" 50 | -1 buffer-mode "ctrlz" 51 | 1 buffer-mode "edit" 52 | 0 save-buffer 53 | !endif 54 | delete-buffer $buffer-bname 55 | !done 56 | exit-emacs 57 | !emacro 58 | -------------------------------------------------------------------------------- /src/macros/abbrev.emf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/macros/abbrev.emf -------------------------------------------------------------------------------- /src/macros/ada.eaf: -------------------------------------------------------------------------------- 1 | be "begin\r\T\p\rend;\P" 2 | ca "case \p of\rend;\P" 3 | el "else\rbegin\r\T\p\rend;\P" 4 | fo "for \p in do\rbegin\rend;\P" 5 | fu "function \p ( );\rbegin\rend;\P" 6 | if "if \p then\rbegin\rend;\P" 7 | pr "procedure \p ( );\rbegin\rend;\P" 8 | re "repeat\r\T\p\runtil ;\P" 9 | wh "while \p do\rbegin\rend;\P" 10 | wi "with \p do\rbegin\rend;\P" 11 | wr "writeln (\p);\P" 12 | 13 | -------------------------------------------------------------------------------- /src/macros/aix.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Setup file for IBM AIX boxes 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Load up common unix stuff 10 | !force exec-file "unixterm" 11 | ; 12 | ; Compile stuff 13 | 0 add-next-line "*compile*" 14 | add-next-line "*compile*" "\"%f\", line %l" 15 | ; gcc compiler 16 | add-next-line "*compile*" "%f:%l:" 17 | 18 | -------------------------------------------------------------------------------- /src/macros/asmx86.etf: -------------------------------------------------------------------------------- 1 | # -!- asmx86 -!- ########################################################### 2 | # 3 | # System : 4 | # Module : 5 | # Object Name : $RCSfile$ 6 | # Revision : $Revision$ 7 | # Date : $Date$ 8 | # Author : $Author$ 9 | # Created By : $USER_NAME$ 10 | # Created : $ASCII_TIME$ 11 | # Last Modified : <090829.1746> 12 | # 13 | # Description 14 | # 15 | # Notes 16 | # 17 | # History 18 | # 19 | ############################################################################# 20 | # 21 | # Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | # 23 | # All Rights Reserved. 24 | # 25 | # This document may not, in whole or in part, be copied, photocopied, 26 | # reproduced, translated, or reduced to any electronic medium or machine 27 | # readable form without prior written consent from $COMPANY_NAME$. 28 | # 29 | ############################################################################# 30 | 31 | -------------------------------------------------------------------------------- /src/macros/asn1.etf: -------------------------------------------------------------------------------- 1 | -- -!- asn.1 -!- ============================================================- 2 | -- 3 | -- System : 4 | -- Module : 5 | -- Object Name : $RCSfile$ 6 | -- Revision : $Revision$ 7 | -- Date : $Date$ 8 | -- Author : $Author$ 9 | -- Created By : $USER_NAME$ 10 | -- Created : $ASCII_TIME$ 11 | -- Last Modified : <090829.1746> 12 | -- 13 | -- Description 14 | -- 15 | -- Notes 16 | -- 17 | -- History 18 | -- 19 | --=========================================================================== 20 | -- 21 | -- Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | -- 23 | -- All Rights Reserved. 24 | -- 25 | -- This document may not, in whole or in part, be copied, photocopied, 26 | -- reproduced, translated, or reduced to any electronic medium or machine 27 | -- readable form without prior written consent from $COMPANY_NAME$. 28 | -- 29 | --=========================================================================== 30 | -------------------------------------------------------------------------------- /src/macros/asp.eaf: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /src/macros/au3.eaf: -------------------------------------------------------------------------------- 1 | If "If \p Then\r\rEndIf\r\P" 2 | Se "Select\rCase \p\rCase\rEndSelect\r\P" 3 | Fo "For $i = \p To . Step 1\r\rNext\r\P" 4 | Wh "While \p\r\rWEnd\r\P" 5 | Do "Do\r\rUntil " 6 | Fu "Func \p\r\rEndFunc\r\P" 7 | -------------------------------------------------------------------------------- /src/macros/au3.etf: -------------------------------------------------------------------------------- 1 | ; -*- Autoit3 -*- 2 | ; 3 | ; Copyright $YEAR$ $COMPANY_NAME$. 4 | ; All Rights Reserved 5 | ; 6 | ; System : $BUFFER_NAME$ : 7 | ; Module : 8 | ; Object Name : $RCS_FILE$ 9 | ; Revision : $REVISION$ 10 | ; Date : $ASCII_TIME$ 11 | ; Author : $USER_NAME$ 12 | ; Created By : $USER_NAME$, $COMPANY_NAME$ 13 | ; Created : $ASCII_TIME$ 14 | ; Last Modified : <090829.1746> 15 | ; 16 | ; History : 17 | ; 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/macros/bibtex.etf: -------------------------------------------------------------------------------- 1 | @ARTICLE{ 2 | author = {$USER_NAME$}, 3 | year = {$YEAR$}, 4 | title = {A}, 5 | journal = {A}, 6 | volume = {n}, 7 | pages = {n-n}, 8 | } 9 | -------------------------------------------------------------------------------- /src/macros/c.eaf: -------------------------------------------------------------------------------- 1 | "" "\ecCText Insertion\ecA" 2 | #i "#include <\p>\r\P" " #include" 3 | #d "#define " " #define" 4 | if "if(\p)\r{\r\r}\r\P" " if()" 5 | ef "else if(\p)\r{\r\r}\r\P" " else if()" 6 | el "else\r{\r\p\r}\r\P" " else" 7 | sw "switch(\p)\r{\rcase :\rdefault:\r}\r\P" " switch()" 8 | wh "while(\p)\r{\r\r}\r\P" " while()" 9 | 10 | -------------------------------------------------------------------------------- /src/macros/c.etf: -------------------------------------------------------------------------------- 1 | /* -*- C -*- **************************************************************** 2 | * 3 | * System : 4 | * Module : 5 | * Object Name : $RCSfile$ 6 | * Revision : $Revision$ 7 | * Date : $Date$ 8 | * Author : $Author$ 9 | * Created By : $USER_NAME$ 10 | * Created : $ASCII_TIME$ 11 | * Last Modified : <090829.1746> 12 | * 13 | * Description 14 | * 15 | * Notes 16 | * 17 | * History 18 | * 19 | **************************************************************************** 20 | * 21 | * Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | * 23 | * All Rights Reserved. 24 | * 25 | * This document may not, in whole or in part, be copied, photocopied, 26 | * reproduced, translated, or reduced to any electronic medium or machine 27 | * readable form without prior written consent from $COMPANY_NAME$. 28 | * 29 | ****************************************************************************/ 30 | 31 | static const char rcsid[] = "@(#) : $Id$"; 32 | 33 | 34 | -------------------------------------------------------------------------------- /src/macros/cfind.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2007 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: 2007-10-17 7 | ; Synopsis: Command-line wrapper for ME based find and grep commands 8 | ; Authors: Steven Phillips 9 | ; 10 | ; Notes: 11 | ; 12 | ; The following vars must be set (.arg0...argn via option -f): 13 | ; .about.argn - Numeric argument to give the command 14 | ; .about.arg0 - Must be set to find, grep or replace-string-in-files 15 | ; .about.arg1 - first argument for the command 16 | ; .about.arg2 - second argument for the command (if required) 17 | ; .about.arg3 - second argument for the command (if required etc) 18 | ; 19 | !if ¬ &exi .about.arg0 20 | -1 ml-write "Error: Find command not set" 21 | 0 exit-emacs 22 | !elif &seq .about.arg1 "ERROR" 23 | -1 ml-write &spr "Error: Arguments for the %s command not given" .about.arg0 24 | 0 exit-emacs 25 | !elif &seq &find $user-name ".erf" "ERROR" 26 | -1 ml-write &spr "Error: Failed to find ME registry for \"%s\"" $user-name 27 | 0 exit-emacs 28 | !endif 29 | !force read-registry "/history" $user-name "c" 30 | set-variable $kept-versions ® &spr "/history/%s/kept-vers" $platform "0" 31 | set-variable $file-ignore ® &spr "/history/%s/file-ignore" $platform "" 32 | 33 | 0 define-macro-file buffinit buffer-init buffer-init-fhook buffer-bind-create fhook-default 34 | 0 define-macro-file utils frame-handle ascii-time var-str-sub str-to-regex filemask-to-regex copy-registry create-file-path 35 | 0 define-macro exec-file 36 | set-variable .first 1 37 | !force @# execute-file @1 38 | !if $status 39 | !return 40 | !endif 41 | !if .first 42 | !if &seq &set #l0 &find @1 ".emf" "ERROR" 43 | ml-write &spr "[Failed to find Macro file %s.emf]" @1 44 | !else 45 | find-file #l0 46 | !force execute-buffer $buffer-bname 47 | ml-write &spr "[Error found in Macro file %s, line %d]" #l0 $window-line 48 | !endif 49 | set-variable .first 0 50 | !endif 51 | !abort 52 | !emacro 53 | set-variable .osd.tmp 40 54 | set-variable .osd.next &cond &exi .osd.next .osd.next &add .osd.tmp 1 55 | 0 exec-file "find" 56 | 57 | define-macro start-up 58 | set-variable $buffer-fname &stat a "." 59 | ml-write &spr "Exec: [%s] [%s] [%s] [%s] [%s] [%s]" .about.arg0 .about.arg1 .about.arg2 .about.arg3 .about.arg4 .about.arg5 60 | ml-write &cat "Find from dir: " $buffer-fname 61 | !if &exi .about.argn 62 | .about.argn execute-named-command .about.arg0 .about.arg1 .about.arg2 .about.arg3 .about.arg4 .about.arg5 63 | !else 64 | execute-named-command .about.arg0 .about.arg1 .about.arg2 .about.arg3 .about.arg4 .about.arg5 65 | !endif 66 | 0 exit-emacs 67 | !emacro 68 | -------------------------------------------------------------------------------- /src/macros/cfm.etf: -------------------------------------------------------------------------------- 1 | 30 | 31 | -------------------------------------------------------------------------------- /src/macros/charset.emf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/macros/charset.emf -------------------------------------------------------------------------------- /src/macros/cobol.etf: -------------------------------------------------------------------------------- 1 | * -*- cobol -*- ************************************************************ 2 | * 3 | * System : 4 | * Module : 5 | * Object Name : $RCSfile$ 6 | * Revision : $Revision$ 7 | * Date : $Date$ 8 | * Author : $Author$ 9 | * Created By : $USER_NAME$ 10 | * Created : $ASCII_TIME$ 11 | * Last Modified : <090829.1747> 12 | * 13 | * Description 14 | * 15 | * Notes 16 | * 17 | * History 18 | * 19 | **************************************************************************** 20 | * 21 | * Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | * 23 | * All Rights Reserved. 24 | * 25 | * This document may not, in whole or in part, be copied, photocopied, 26 | * reproduced, translated, or reduced to any electronic medium or machine 27 | * readable form without prior written consent from $COMPANY_NAME$. 28 | * 29 | **************************************************************************** 30 | -------------------------------------------------------------------------------- /src/macros/cpp.eaf: -------------------------------------------------------------------------------- 1 | #i "#include <\p>\r\P" 2 | #d "#define " 3 | if "if(\p)\r{\r\r}\r\P" 4 | ef "else if(\p)\r{\r\r}\r\P" 5 | el "else\r{\r\p\r}\r\P" 6 | wh "while(\p)\r{\r\r}\r\P" 7 | sw "switch(\p)\r{\rcase :\rdefault:\r}\r\P" 8 | -------------------------------------------------------------------------------- /src/macros/cpp.etf: -------------------------------------------------------------------------------- 1 | // -!- C++ -!- ////////////////////////////////////////////////////////////// 2 | // 3 | // System : 4 | // Module : 5 | // Object Name : $RCSfile$ 6 | // Revision : $Revision$ 7 | // Date : $Date$ 8 | // Author : $Author$ 9 | // Created By : $USER_NAME$ 10 | // Created : $ASCII_TIME$ 11 | // Last Modified : <090829.1747> 12 | // 13 | // Description 14 | // 15 | // Notes 16 | // 17 | // History 18 | // 19 | ///////////////////////////////////////////////////////////////////////////// 20 | // 21 | // Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | // 23 | // All Rights Reserved. 24 | // 25 | // This document may not, in whole or in part, be copied, photocopied, 26 | // reproduced, translated, or reduced to any electronic medium or machine 27 | // readable form without prior written consent from $COMPANY_NAME$. 28 | // 29 | ////////////////////////////////////////////////////////////////////////////// 30 | 31 | static const char rcsid[] = "@(#) : $Id$"; 32 | 33 | -------------------------------------------------------------------------------- /src/macros/cygwin.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2001-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Nov 2001 7 | ; Synopsis: setup file for Cygwin installation boxes 8 | ; Authors: Jon Green 9 | ; 10 | ; Load up common unix stuff (colors, templates, grep, RCS, mail) 11 | !force exec-file "unixterm" 12 | ; no vt100-nam on linux, this may cause problems in an ishell 13 | set-variable %ipipe-term "TERM=vt100" 14 | ;--- COMSHELL 15 | ; As command.com's prompt echoing is broken ishell is useless without 16 | ; the following 2 variables which enable ME's command-line support 17 | ; NOTE - if you use a different prompt (i.e. not "PATH>") then you 18 | ; must configure .ishell.prompt appropriately 19 | set-variable .ishell.prompt "^[^>\n]*>" 20 | set-variable .ishell.noecho "1" 21 | ;--- CYGWIN 22 | ; Cygwin environment may not have a $SHELL variable defined. 23 | ; Define the shell if not defined. 24 | !if &seq $SHELL "ERROR" 25 | set-variable $SHELL /bin/bash 26 | !endif 27 | ; Try to find cygwin automatically. We need to identify where cygwin exists 28 | ; in the file system as information received from BASH is DOS drive 29 | ; information that is converted into cygwin space. 30 | !if ¬ &exi %cygwin-path 31 | !if &seq "D" &stat "t" "c:/cygwin" 32 | set-variable %cygwin-path "c:/cygwin" 33 | !endif 34 | !endif 35 | ; Wrapper to define cygwin macro, this is based on the Win32 version, our 36 | ; path information is a little different so we adjust. 37 | define-macro cygwin 38 | !if &seq %cygwin-path "ERROR" 39 | ; Bitch if the environment is not defined. 40 | 5000 ml-write "[Error: %cygwin-path not set - see hkcygwin.emf]" 41 | !abort 42 | ; See if bash exists. 43 | !elif &seq "R" &stat "t" &cat %cygwin-path "/bin/bash.exe" 44 | ; Load the macro file and execute the cygwin session. 45 | !force exec-file "hkcygwin" 46 | !if $status 47 | cygwin 48 | !endif 49 | !else 50 | 5000 ml-write &spr "[Error: Cannot find bash program. %s]" "/bin/bash.exe" 51 | !abort 52 | !endif 53 | !emacro 54 | ; Define the info path for cygwin. 55 | !if ¬ &exi $INFOPATH 56 | set-variable $INFOPATH "/usr/share/info" 57 | !endif 58 | ; Compile stuff 59 | 0 add-next-line "*compile*" 60 | add-next-line "*compile*" "%f:%l:" 61 | ; 62 | ; Diff stuff; Cygwin uses GNU diff so set this up for all Cygwin 63 | ; platforms. Nobody is going to change this are they ?? 64 | ; 65 | set-variable %diff-com "diff --context --minimal --ignore-space-change --recursive" 66 | ; 67 | ; Set up the info path 68 | ; 69 | !if ¬ &exi $INFOPATH 70 | set-variable $INFOPATH "/usr/info" 71 | !endif 72 | -------------------------------------------------------------------------------- /src/macros/darwin.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Setup file for Darwin (Mac OS X) boxes 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Load up common unix stuff 10 | !force exec-file "unixterm" 11 | ; 12 | ; Compile stuff 13 | 0 add-next-line "*compile*" 14 | add-next-line "*compile*" "%f:%l:" 15 | ; 16 | ; Diff stuff; FreeBSD uses GNU diff so set this up for all 17 | ; platforms. Nobody is going to change this are they ?? 18 | set-variable %diff-com "diff --context --minimal --ignore-space-change --recursive" 19 | -------------------------------------------------------------------------------- /src/macros/doc.etf: -------------------------------------------------------------------------------- 1 | > -!- document -!- 2 | > 3 | > Copyright $YEAR$ $COMPANY_NAME$. 4 | > 5 | > Created By : $USER_NAME$ 6 | > Created : $ASCII_TIME$ 7 | > Last Modified : <160495.1521> 8 | > 9 | -------------------------------------------------------------------------------- /src/macros/docutl.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2002-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Mon Jan 14 2002 7 | ; Synopsis: Common document macros. 8 | ; Authors: Jon Green & Steven Phillips 9 | ; 10 | ; Notes: broken out of docmacro.emf 11 | ; 12 | !if ¬ &exist .osd.doc-stat 13 | set-variable .osd.doc-stat &pinc .osd.next 1 14 | !endif 15 | -1 osd .osd.doc-stat 16 | osd .osd.doc-stat 0 "batcDH" 9 3 99 .scheme.osd-title "Current Mode Settings" 17 | osd .osd.doc-stat 3 "" 18 | osd .osd.doc-stat 7 "" 19 | osd .osd.doc-stat 11 "" 20 | osd .osd.doc-stat 99 "BcfH" .scheme.osd-ebtt " \HOK " f void 21 | 22 | define-macro doc-mode-state 23 | osd .osd.doc-stat 4 "" &spr " Filling to column : %d " $buffer-fill-col 24 | osd .osd.doc-stat 5 "" &spr " Justification Mode: %s " $buffer-fill-mode 25 | set-variable #l0 "Unknown mode, default to left:NAuto-detect All (L/R/C):OAuto-detect One for word-processor:BAuto-detect Both (R/C):LAuto-detect Left:RAuto-detect Right:CAuto-detect Center:nNone:bBoth justify (L/R):lLeft:rRight:cCenter:oOne for word-processor:" 26 | set-variable #l0 &rig #l0 &add 1 &sin &cat ":" $buffer-fill-mode #l0 27 | set-variable #l0 &lef #l0 &sub &sin ":" #l0 1 28 | osd .osd.doc-stat 6 "" &spr " %s " #l0 29 | osd .osd.doc-stat 8 "" &spr " Ignore characters : %s " $fill-ignore 30 | osd .osd.doc-stat 9 "" &spr " Bullet characters : %s " $fill-bullet 31 | osd .osd.doc-stat 10 "" &spr " Bullet lookahead : %d " $fill-bullet-len 32 | .osd.doc-stat osd 33 | !emacro 34 | 35 | 0 define-macro doc-set-justify 36 | set-variable $buffer-fill-mode &mid "BBCLnR" @# 1 37 | doc-mode-state 38 | !emacro 39 | 40 | define-macro fill-paragraph-center 41 | set-variable #l1 $buffer-fill-mode 42 | set-variable $buffer-fill-mode "c" 43 | !force !force @# fill-paragraph 44 | set-variable $buffer-fill-mode #l1 45 | !emacro 46 | 47 | define-macro fill-paragraph-left 48 | set-variable #l1 $buffer-fill-mode 49 | set-variable $buffer-fill-mode "l" 50 | !force !force @# fill-paragraph @mna 51 | set-variable $buffer-fill-mode #l1 52 | !emacro 53 | 54 | define-macro fill-paragraph-right 55 | set-variable #l1 $buffer-fill-mode 56 | set-variable $buffer-fill-mode "r" 57 | !force !force @# fill-paragraph @mna 58 | set-variable $buffer-fill-mode #l1 59 | !emacro 60 | 61 | define-macro fill-paragraph-both 62 | set-variable #l1 $buffer-fill-mode 63 | set-variable $buffer-fill-mode "b" 64 | !force !force @# fill-paragraph @mna 65 | set-variable $buffer-fill-mode #l1 66 | !emacro 67 | 68 | define-macro fill-paragraph-gutter 69 | set-variable #l1 $buffer-fill-mode 70 | set-variable $buffer-fill-mode "g" 71 | !force !force @# fill-paragraph @mna 72 | set-variable $buffer-fill-mode #l1 73 | !emacro 74 | 75 | -------------------------------------------------------------------------------- /src/macros/dos.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1995-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Setup file for MS-DOS boxes 7 | ; Authors: Steven Phillips 8 | ; 9 | 0 define-macro exec-me 10 | pipe-shell-command &spr "%s %s" $progname @1 @mna 11 | !emacro 12 | ; Setup the screen resolution 13 | define-macro reset-25 14 | change-font "3" "0" 15 | !emacro 16 | define-macro reset-50 17 | change-font "3" "1" 18 | !emacro 19 | define-macro reset-def 20 | !if &seq $TERM "E80x50" 21 | reset-50 22 | !elif &seq $TERM "E80x25" 23 | reset-25 24 | !else 25 | change-font ® &spr "/history/%s/font" %platform "3" ® &spr "/history/%s/font-dbl" $platform "1" 26 | !endif 27 | !emacro 28 | global-bind-key reset-25 "C-c 2" 29 | global-bind-key reset-50 "C-c 5" 30 | global-bind-key reset-def "C-c 9" 31 | reset-def 32 | ; setup the next-error stuff including grep and compiling 33 | set-variable $line-template "[0-9]+" 34 | set-variable $file-template "[a-zA-Z:]*[0-9a-zA-Z\\\\/_.]+" 35 | set-variable %xgrep-com "grep /n" 36 | ; These definitions are for dos grep & djgpp gcc compiler 37 | add-next-line "*grep*" "%f: %l:" 38 | 0 add-next-line "*compile*" 39 | add-next-line "*compile*" "%f(%l): Error" 40 | add-next-line "*compile*" "%f(%l): Warn" 41 | add-next-line "*compile*" "%f:%l:" 42 | 43 | -------------------------------------------------------------------------------- /src/macros/emf.eaf: -------------------------------------------------------------------------------- 1 | "" "\ecCText Insertion:\ecA" 2 | de "define-macro \p\r!emacro\T\P" " Define macro" 3 | "0 define-macro \p\r!emacro\T\P" " Define hidden macro" 4 | !h "define-help \"\p\"\r\rNAME\r - \r\r$a\r\rSYNOPSIS\r n args...\r\rDESCRIPTION\r
\r\rDIAGNOSTICS\r \r\rNOTES\r \r\rSEE ALSO\r \r!ehelp\P" " Define help" 5 | deb "set-variable $debug 2" " Debug point" 6 | "" "" 7 | !i "!if \T\p\r!endif\T\P" " !if" 8 | !if "!if \T\p\r!endif\T\P" 9 | "!elif \T" " !elif" 10 | !e "!else\T\r\T" " !else" 11 | !w "!while \T\p\r!done\T\P" " !while" 12 | !r "!repeat\T\r!until \T" " !repeat" 13 | !f "!force \T\p\r!if $status\r!endif\T\P" " !force" 14 | ml "ml-write \"\p\"\P" " ml-write" 15 | se "set-variable " " set-variable" 16 | !g "!goto" 17 | !n "!nma " 18 | !c "!continue\r" 19 | !a "!abort\r" 20 | !b "!beep\r" 21 | 22 | -------------------------------------------------------------------------------- /src/macros/emf.etf: -------------------------------------------------------------------------------- 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 | ; 3 | ; Author : $Author$ 4 | ; Created By : $USER_NAME$ 5 | ; Created : $ASCII_TIME$ 6 | ; Last Modified : <090829.1747> 7 | ; 8 | ; Description 9 | ; 10 | ; Notes 11 | ; 12 | ; History 13 | ; 14 | ; Copyright (c) $YEAR$ $COMPANY_NAME$. 15 | ; 16 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 17 | -------------------------------------------------------------------------------- /src/macros/euphor.eaf: -------------------------------------------------------------------------------- 1 | if "if \p then\rend if\r\P" 2 | wh "while \p do\rend while\r\P" 3 | fu "function \p\rend function\r\P" 4 | 5 | -------------------------------------------------------------------------------- /src/macros/euphor.etf: -------------------------------------------------------------------------------- 1 | ---------------------------------------------------------------------------- 2 | -- 3 | -- Author : $Author$ 4 | -- Created By : $USER_NAME$ 5 | -- Created : $ASCII_TIME$ 6 | -- Last Modified : <090829.1747> 7 | -- 8 | -- Description 9 | -- 10 | -- Notes 11 | -- 12 | -- History 13 | -- 14 | -- Copyright (c) $YEAR$ $COMPANY_NAME$. 15 | -- 16 | ---------------------------------------------------------------------------- 17 | -------------------------------------------------------------------------------- /src/macros/f.etf: -------------------------------------------------------------------------------- 1 | c -*- f -*- **************************************************************** 2 | c 3 | c System : 4 | c Module : 5 | c Object Name : $RCSfile$ 6 | c Revision : $Revision$ 7 | c Date : $Date$ 8 | c Author : $Author$ 9 | c Created By : $USER_NAME$ 10 | c Created : $ASCII_TIME$ 11 | c Last Modified : <090829.1747> 12 | c 13 | c Description 14 | c 15 | c Notes 16 | c 17 | c History 18 | c 19 | c *************************************************************************** 20 | c 21 | c Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | c 23 | c All Rights Reserved. 24 | c 25 | c This document may not, in whole or in part, be copied, photocopied, 26 | c reproduced, translated, or reduced to any electronic medium or machine 27 | c readable form without prior written consent from $COMPANY_NAME$. 28 | c 29 | c **************************************************************************** 30 | -------------------------------------------------------------------------------- /src/macros/f90.etf: -------------------------------------------------------------------------------- 1 | !-*- f90 -*- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 2 | ! 3 | ! System : 4 | ! Module : 5 | ! Object Name : $RCSfile$ 6 | ! Revision : $Revision$ 7 | ! Date : $Date$ 8 | ! Author : $Author$ 9 | ! Created By : $USER_NAME$ 10 | ! Created : $ASCII_TIME$ 11 | ! Last Modified : <090829.1747> 12 | ! 13 | ! Description 14 | ! 15 | ! Notes 16 | ! 17 | ! History 18 | ! 19 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 20 | ! 21 | ! Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | ! 23 | ! All Rights Reserved. 24 | ! 25 | ! This document may not, in whole or in part, be copied, photocopied, 26 | ! reproduced, translated, or reduced to any electronic medium or machine 27 | ! readable form without prior written consent from $COMPANY_NAME$. 28 | ! 29 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 30 | -------------------------------------------------------------------------------- /src/macros/filetype.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1998-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Dos to unix text file convertion routine. 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Usage: 10 | ; me "@filetype" 11 | ; 12 | define-macro start-up 13 | delete-other-windows 14 | !while ¬ &seq $buffer-bname "*scratch*" 15 | set-variable #l1 &rig $buffer-fname -59 16 | ml-write &spr "Processing [%s]" #l1 17 | ; what type of file is it 18 | set-variable #l2 "" 19 | !if &band $buffer-fmod 0x10000 20 | set-variable #l0 "Directory" 21 | !elif &band $buffer-fmod 0x80000 22 | set-variable #l0 "Binary" 23 | !else 24 | set-variable #l0 &add 1 &add &add &bmod "cr" &mul &bmod "lf" 2 &mul &bmod "ctrlz" 4 25 | set-variable #l0 &lget "|Strange0|Unix|Mac|Windows|Strange4|Strange5|Strange6|Dos|" #l0 26 | !if &band $buffer-fmod 0x100000 27 | set-variable #l2 &cat #l2 "EOL" 28 | !endif 29 | end-of-buffer 30 | !force backward-line 31 | !if &band $line-flags 0x10 32 | !if &len #l2 33 | set-variable #l2 &cat #l2 ", " 34 | !endif 35 | set-variable #l2 &cat #l2 "EOF" 36 | !endif 37 | !endif 38 | !if &len #l2 39 | set-variable #l0 &spr "%s (bad %s)" #l0 #l2 40 | !endif 41 | !if &band $system 0x1000000 42 | -1 ml-write &spr "%s%n%s" #l1 &sub 60 &len #l1 " " #l0 43 | !else 44 | find-buffer "*scratch*" 45 | insert-string &spr "%s%n%s\n" #l1 &sub 60 &len #l1 " " #l0 46 | -1 find-buffer "*scratch*" 47 | !endif 48 | delete-buffer $buffer-bname 49 | !done 50 | !if &band $system 0x1000000 51 | 0 quick-exit 52 | !endif 53 | !emacro 54 | -------------------------------------------------------------------------------- /src/macros/freebsd.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Setup file for FreeBSD boxes 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Load up common unix stuff 10 | !force exec-file "unixterm" 11 | ; 12 | ; Compile stuff 13 | 0 add-next-line "*compile*" 14 | add-next-line "*compile*" "%f:%l:" 15 | ; 16 | ; Diff stuff; FreeBSD uses GNU diff so set this up for all 17 | ; platforms. Nobody is going to change this are they ?? 18 | set-variable %diff-com "diff --context --minimal --ignore-space-change --recursive" 19 | -------------------------------------------------------------------------------- /src/macros/games.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1998-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Sat Jul 18 1998 7 | ; Synopsis: Games wrapper file to keep me.emf small 8 | ; Authors: Steven Phillips 9 | ; 10 | define-macro cross-word 11 | execute-file crosswd 12 | cross-word 13 | !emacro 14 | define-macro Mahjongg 15 | execute-file mahjongg 16 | Mahjongg 17 | !emacro 18 | define-macro Match-It 19 | execute-file matchit 20 | Match-It 21 | !emacro 22 | define-macro Metris 23 | execute-file metris 24 | Metris 25 | !emacro 26 | define-macro Patience 27 | execute-file patience 28 | Patience 29 | !emacro 30 | define-macro Triangle 31 | execute-file triangle 32 | Triangle 33 | !emacro 34 | 35 | -------------------------------------------------------------------------------- /src/macros/go.eaf: -------------------------------------------------------------------------------- 1 | helloworld "package main\r\rimport \"fmt\"\r\rfunc main() {\rfmt.Printf(\"Hello, World!\\n\")\r\p\r}\r\P" 2 | import "import (\r\p\r)\P" 3 | const "const (\r\p\r)\P" 4 | var "var (\r\p\r)\P" 5 | type "type \p {\r\r}\P" 6 | struct "type \p struct {\r\r}\P" 7 | if "if \p {\r\r}\P" 8 | elif "else if \p {\r\r}\P" 9 | for "for \p {\r\r}\P" 10 | func "func \p {\r\r}\P" 11 | switch "switch \p {\rcase :\r\rdefault:\r\r}\P" 12 | -------------------------------------------------------------------------------- /src/macros/go.etf: -------------------------------------------------------------------------------- 1 | /* -*- go -*- 2 | * $RCSfile$ $Revision$ : $Date$ : $Author$ 3 | * 4 | * Description 5 | * 6 | * Notes 7 | * 8 | ************** 9 | * 10 | * Copyright (c) $YEAR$ $COMPANY_NAME$. All Rights Reserved. 11 | * 12 | * This document may not, in whole or in part, be copied, photocopied, 13 | * reproduced, translated, or reduced to any electronic medium or machine 14 | * readable form without prior written consent from $COMPANY_NAME$. 15 | */ 16 | -------------------------------------------------------------------------------- /src/macros/h.etf: -------------------------------------------------------------------------------- 1 | /* -*- C -*- **************************************************************** 2 | * 3 | * System : 4 | * Module : 5 | * Object Name : $RCSfile$ 6 | * Revision : $Revision$ 7 | * Date : $Date$ 8 | * Author : $Author$ 9 | * Created By : $USER_NAME$ 10 | * Created : $ASCII_TIME$ 11 | * Last Modified : <090829.1747> 12 | * 13 | * Description 14 | * 15 | * Notes 16 | * 17 | * History 18 | * 19 | **************************************************************************** 20 | * 21 | * Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | * 23 | * All Rights Reserved. 24 | * 25 | * This document may not, in whole or in part, be copied, photocopied, 26 | * reproduced, translated, or reduced to any electronic medium or machine 27 | * readable form without prior written consent from $COMPANY_NAME$. 28 | * 29 | ****************************************************************************/ 30 | 31 | #ifndef __$BUFFER_NAME$ 32 | #define __$BUFFER_NAME$ 33 | 34 | #if defined(__cplusplus) || defined(c_plusplus) 35 | extern "C" { 36 | #endif 37 | $CURSOR$ 38 | 39 | #if defined(__cplusplus) || defined(c_plusplus) 40 | } 41 | #endif 42 | #endif /* __$BUFFER_NAME$ */ 43 | -------------------------------------------------------------------------------- /src/macros/hkasp.eaf: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /src/macros/hkasp.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2003-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created Thu Oct 16 2003 7 | ; Synopsis: ASP Hook File 8 | ; Authors: Steven Phillips 9 | ; 10 | define-macro fhook-asp 11 | set-variable $buffer-mask "luh1" 12 | @# buffer-init "asp" 13 | buffer-init-hooks 14 | !emacro 15 | 16 | ; buffer-init variables 17 | set-variable .fhook-asp.name "ASP" 18 | set-variable .fhook-asp.setup ® "/history/fhook/asp" "cdfghinopsx" 19 | set-variable .fhook-asp.setup-mask "acdefghikmnopstux" 20 | set-variable .fhook-asp.command-flag "|" 21 | set-variable .fhook-asp.command-name "|" 22 | set-variable .fhook-asp.command-nbind "|" 23 | set-variable .fhook-asp.command-kbind "|" 24 | set-variable .fhook-asp.command-desc "|" 25 | set-variable .fhook-asp.indent-width 2 26 | 27 | ; load in the html core 28 | !force execute-file "htmlcore" "asp" 29 | 30 | ; add the <% %> vb script support 31 | !if &and &sin "h" .fhook-asp.setup &band .hilight.flags 0x02 32 | hilight .hilight.asptag 4 "=\\{[^ \t\n<>]*<%" "%>[^ \t\n>]*" "" .scheme.string 33 | hilight .hilight.asptag 4 "=\\{\"[^\"\n<]*<%" "%>[^\"]*\"" "" .scheme.string 34 | !if &exist .hilight.vbscript 35 | hilight .hilight.asp 0x80 "<%" .hilight.vbscript .scheme.prepro 36 | hilight .hilight.asp 0xa0 "End If$" .hilight.vbscript .scheme.keyword 37 | hilight .hilight.asp 0xa0 "End Function$" .hilight.vbscript .scheme.keyword 38 | hilight .hilight.asp 0xa0 "End Sub$" .hilight.vbscript .scheme.keyword 39 | hilight .hilight.asptag 0x80 "<%" .hilight.vbscript .scheme.prepro 40 | hilight .hilight.vbscript 0x80 "%>" 0 .scheme.prepro 41 | !endif 42 | !endif 43 | !if &sin "d" .fhook-asp.setup 44 | !if &exist .indent.vbscript 45 | indent .hilight.asptag t "<%" .indent.vbscript 46 | indent .hilight.asptag t "[\t ]*End If$" .hilight.vbscript 47 | indent .hilight.asptag t "[\t ]*End Function$" .hilight.vbscript 48 | indent .hilight.asptag t "[\t ]*End Sub$" .hilight.vbscript 49 | indent .hilight.asptag t "%>" .hilight.asp 50 | 51 | indent .hilight.asp x "^<%" 0 .indent.vbscript 52 | indent .hilight.asp x ".<%" t .indent.vbscript 53 | indent .indent.vbscript w "%>" -t 0 54 | !endif 55 | !endif 56 | 57 | buffer-init-fhook "asp" 58 | -------------------------------------------------------------------------------- /src/macros/hkbibtex.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: bibtex file hook - invoked when a BibTeX file is loaded. 7 | ; Authors: Detlef Groth, Steve Phillips & Jon Green 8 | ; 9 | define-macro fhook-bibtex 10 | @# buffer-init "bibtex" 11 | buffer-init-hooks 12 | !emacro 13 | 14 | ; buffer-init variables 15 | set-variable .fhook-bibtex.name "BibTeX" 16 | set-variable .fhook-bibtex.setup ® "/history/fhook/bibtex" "fghinsx" 17 | set-variable .fhook-bibtex.setup-mask "aefghikmnstux" 18 | set-variable .fhook-bibtex.command-flag "|thbH|" 19 | set-variable .fhook-bibtex.command-name "|bibtex-swap-hilight|" 20 | set-variable .fhook-bibtex.command-nbind "||" 21 | set-variable .fhook-bibtex.command-kbind "|C-c C-h|" 22 | set-variable .fhook-bibtex.command-desc "|T\Hoggle hilighting|" 23 | 24 | set-variable .fhook-bibtex.collapse-open "^@" 25 | set-variable .fhook-bibtex.collapse-close "^@\\|\\'" 26 | set-variable .fhook-bibtex.collapse-mnext "-1" 27 | 28 | !if &and &sin "h" .fhook-bibtex.setup &band .hilight.flags 0x02 29 | !if ¬ &exist .hilight.bibtex 30 | set-variable .hilight.bibtex &pinc .hilight.next 1 31 | set-variable .hilight.bibtexs &pinc .hilight.next 1 32 | !endif 33 | ; normal token hilighting 34 | 0 hilight .hilight.bibtex 0 $global-scheme 35 | hilight .hilight.bibtex 0 "^\\s*\\{@\\w*\\}{" .scheme.bold 36 | hilight .hilight.bibtex 0 "^\\s*\\{\\w*\\s*\\}={*" .scheme.italic 37 | hilight .hilight.bibtex 0 "^\\s*\\{\\w*\\s*\\}=\\s{*" .scheme.italic 38 | 39 | ; bibtex simulation hilighting 40 | 0 hilight .hilight.bibtexs 0 $global-scheme 41 | hilight .hilight.bibtexs 0x44 "\\\\bibitem{" "" "}" "" "" .scheme.bold 42 | hilight .hilight.bibtexs 0x44 "{\\\\em " "" "}" "" "" .scheme.italic 43 | ;hilight .hilight.bibtexs 64 "\\\\newblock " "" ; any idea ?? 44 | ;hilight .hilight.bibtexs 0x44 "year = " "Y: " "," "" .scheme.bold 45 | ;hilight .hilight.bibtexs 0x44 "@ARTICLE{" "*" "," "*" "" .scheme.hlred 46 | 47 | 0 define-macro bibtex-swap-hilight 48 | !if &equal $buffer-hilight .hilight.bibtex 49 | set-variable $buffer-hilight .hilight.bibtexs 50 | 1 buffer-mode "view" 51 | !else 52 | set-variable $buffer-hilight .hilight.bibtex 53 | -1 buffer-mode "view" 54 | !endif 55 | !emacro 56 | !endif 57 | 58 | buffer-init-fhook "bibtex" 59 | 60 | -------------------------------------------------------------------------------- /src/macros/hkbnf.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Sat Feb 6 1999 7 | ; Synopsis: Simple hilighting of a BNF file. 8 | ; Authors: Jon Green 9 | ; 10 | define-macro fhook-bnf 11 | @# buffer-init "bnf" 12 | buffer-init-hooks 13 | !emacro 14 | 15 | ; buffer-init variables 16 | set-variable .fhook-bnf.name "BNF" 17 | set-variable .fhook-bnf.setup ® "/history/fhook/bnf" "ghix" 18 | set-variable .fhook-bnf.setup-mask "aeghikmtux" 19 | 20 | !if &and &sin "h" .fhook-bnf.setup &band .hilight.flags 0x02 21 | !if ¬ &exist .hilight.bnf 22 | set-variable .hilight.bnf &pinc .hilight.next 1 23 | !endif 24 | 0 hilight .hilight.bnf 2 50 $global-scheme 25 | hilight .hilight.bnf 4 "<[[:alpha:]]" ">" "" .scheme.variable 26 | hilight .hilight.bnf 1 "::=" .scheme.keyword 27 | hilight .hilight.bnf 1 "\\[" .scheme.keyword 28 | hilight .hilight.bnf 1 "]" .scheme.keyword 29 | hilight .hilight.bnf 1 "{" .scheme.keyword 30 | hilight .hilight.bnf 1 "}" .scheme.keyword 31 | hilight .hilight.bnf 1 "|" .scheme.keyword 32 | hilight .hilight.bnf 2 "!!" .scheme.comment 33 | hilight .hilight.bnf 2 "^#" .scheme.comment 34 | hilight .hilight.bnf 2 "^//" .scheme.comment 35 | !endif 36 | 37 | buffer-init-fhook "bnf" 38 | 39 | 40 | -------------------------------------------------------------------------------- /src/macros/hkc.eaf: -------------------------------------------------------------------------------- 1 | "\Lcompile\N" " Compile" 2 | "" " \ecCGenerate Tags\ecA" 3 | "\Lgenerate-tags-file\N" " Generate" 4 | "\L0 generate-tags-file\N" " With Menu..." 5 | "" "" 6 | "" " \ecCSlashify\ecA" 7 | "\Lc-slashify\N" " Slashify region" 8 | "\Lc-deslashify\N" " Deslashify region" 9 | "" "" 10 | "" " \ecCDefines\ecA" 11 | "\Lc-hash-set-define\N" " Set #define" 12 | "\Lc-hash-unset-define\N" " Unset #define" 13 | "\Lc-hash-eval\N" " Evaluate #'s" 14 | "\L1 c-hash-eval\N" " Evaluate #'s Use Narrow" 15 | "\Lc-hash-del\N" " Remove # Evaluation" 16 | "" "" 17 | "" " \ecCComments\ecA" 18 | "\Lcomment-start\N" " Start Comment" 19 | "\Lcomment-line\N" " Comment Out Line" 20 | "\Luncomment-line\N" " Delete Comment" 21 | "\Lcomment-to-end-of-line\N" " Comment to End of Line" 22 | "\Lcomment-restyle\N" " Restyle Comment" 23 | "" "" 24 | "" " \ecCFolding\ecA" 25 | "\Lcollapse-current\N" " Open/Close Current Function" 26 | "\Lcollapse-all\N" " Open/Close All Functions" 27 | "" "" 28 | 29 | -------------------------------------------------------------------------------- /src/macros/hkcpp.eaf: -------------------------------------------------------------------------------- 1 | "\Lcompile\N" " Compile" 2 | "" " \ecCGenerate Tags\ecA" 3 | "\Lgenerate-tags-file\N" " Generate" 4 | "\L0 generate-tags-file\N" " With Menu..." 5 | "" "" 6 | "" " \ecCSlashify\ecA" 7 | "\Lc-slashify\N" " Slashify region" 8 | "\Lc-deslashify\N" " Deslashify region" 9 | "" "" 10 | "" " \ecCDefines\ecA" 11 | "\Lc-hash-set-define\N" " Set #define" 12 | "\Lc-hash-unset-define\N" " Unset #define" 13 | "\Lc-hash-eval\N" " Evaluate #'s" 14 | "\L1 c-hash-eval\N" " Evaluate #'s Use Narrow" 15 | "\Lc-hash-del\N" " Remove # Evaluation" 16 | "" "" 17 | "" " \ecCComments\ecA" 18 | "\Lcomment-start\N" " Start Comment" 19 | "\Lcomment-line\N" " Comment Out Line" 20 | "\Luncomment-line\N" " Delete Comment" 21 | "\Lcomment-to-end-of-line\N" " Comment to End of Line" 22 | "\Lcomment-restyle\N" " Restyle Comment" 23 | "" "" 24 | "" " \ecCFolding\ecA" 25 | "\Lcollapse-current\N" " Open/Close Current Function" 26 | "\Lcollapse-all\N" " Open/Close All Functions" 27 | "" "" 28 | 29 | -------------------------------------------------------------------------------- /src/macros/hkdoc.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2000-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: 19th February 1997 7 | ; Synopsis: Document hook for ASCII text documentation 8 | ; Authors: Jon Green 9 | ; 10 | ; Notes: See docmacro.emf for documentation 11 | ; 12 | define-macro fhook-doc 13 | ; use the document fhook in docmacro 14 | @# doc-fhook-body "doc" "document" 15 | !emacro 16 | 17 | ; buffer-init variables 18 | set-variable .fhook-doc.setup ® "/history/fhook/doc" "fghijnopswx" 19 | set-variable .fhook-doc.setup-mask "aefghijkmnopstuwx" 20 | set-variable .fhook-doc.name "Document" 21 | 22 | ; load docmacro.emf passing the doc setup flags 23 | execute-file "docmacro" "doc" 24 | 25 | buffer-init-fhook "doc" 26 | -------------------------------------------------------------------------------- /src/macros/hkdos.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1998-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Dos batch file hook - invoked when a dos batch file is loaded. 7 | ; Authors: Steven Phillips & Jon Green 8 | ; 9 | define-macro fhook-dos 10 | set-variable $buffer-mask "luh1" 11 | @# buffer-init "dos" 12 | buffer-init-hooks 13 | !emacro 14 | 15 | ; buffer-init variables 16 | set-variable .fhook-dos.name "DOS Batch" 17 | set-variable .fhook-dos.setup ® "/history/fhook/dos" "ghiopx" 18 | set-variable .fhook-dos.setup-mask "aeghikmoptux" 19 | set-variable .fhook-dos.comment "|rem |||rem ||r|" 20 | set-variable .fhook-dos.exact -1 21 | 22 | !if &and &sin "h" .fhook-dos.setup &band .hilight.flags 0x02 23 | !if ¬ &exist .hilight.dos "ERROR" 24 | set-variable .hilight.dos &pinc .hilight.next 1 25 | set-variable .hilight.dosvar &pinc .hilight.next 1 26 | !endif 27 | 28 | 0 hilight .hilight.dos 1 $global-scheme 29 | hilight .hilight.dos 35 "rem" .scheme.comment 30 | hilight .hilight.dos 35 "@rem" .scheme.comment 31 | hilight .hilight.dos 34 ":" .scheme.prepro 32 | hilight .hilight.dos 0 "\\^" .scheme.prepro 33 | hilight .hilight.dos 128 "%" .hilight.dosvar .scheme.variable 34 | hilight .hilight.dos 1 "path" .scheme.keyword 35 | hilight .hilight.dos 0 "%%" $global-scheme 36 | hilight .hilight.dos 1 "call" .scheme.keyword 37 | hilight .hilight.dos 1 "device" .scheme.keyword 38 | hilight .hilight.dos 1 "echo" .scheme.keyword 39 | hilight .hilight.dos 1 "exist" .scheme.keyword 40 | hilight .hilight.dos 1 "goto" .scheme.keyword 41 | hilight .hilight.dos 1 "if" .scheme.keyword 42 | hilight .hilight.dos 1 "iff" .scheme.keyword 43 | hilight .hilight.dos 1 "else" .scheme.keyword 44 | hilight .hilight.dos 1 "elseiff" .scheme.keyword 45 | hilight .hilight.dos 1 "endiff" .scheme.keyword 46 | hilight .hilight.dos 1 "errorlevel" .scheme.keyword 47 | hilight .hilight.dos 1 "lh" .scheme.keyword 48 | hilight .hilight.dos 1 "loadhigh" .scheme.keyword 49 | hilight .hilight.dos 1 "not" .scheme.keyword 50 | hilight .hilight.dos 1 "set" .scheme.keyword 51 | hilight .hilight.dos 1 "then" .scheme.keyword 52 | 53 | 0 hilight .hilight.dosvar 1 .scheme.variable 54 | hilight .hilight.dosvar 128 "%" .hilight.dos .scheme.variable 55 | hilight .hilight.dosvar 128 "\\s" .hilight.dos $global-scheme 56 | hilight .hilight.dosvar 128 "\\[" .hilight.dos $global-scheme 57 | hilight .hilight.dosvar 128 "]" .hilight.dos $global-scheme 58 | hilight .hilight.dosvar 128 "," .hilight.dos $global-scheme 59 | hilight .hilight.dosvar 128 "+" .hilight.dos $global-scheme 60 | hilight .hilight.dosvar 128 "\\." .hilight.dos $global-scheme 61 | hilight .hilight.dosvar 128 "\\\\" .hilight.dos $global-scheme 62 | hilight .hilight.dosvar 128 "\"" .hilight.dos $global-scheme 63 | !endif 64 | 65 | buffer-init-fhook "dos" 66 | 67 | -------------------------------------------------------------------------------- /src/macros/hkemf.eaf: -------------------------------------------------------------------------------- 1 | "" " \ecCGenerate Tags\ecA" 2 | "\Lgenerate-tags-file\N" " Generate" 3 | "\L0 generate-tags-file\N" " With Menu..." 4 | "" "" 5 | "" " \ecCExecute\ecA" 6 | "\Lexecute-line @wl\N" " Current Line" 7 | "\Lexecute-buffer $buffer-bname\N" " Current Buffer" 8 | "\Lexecute-buffer @mna\N" " Buffer" 9 | "\Lexecute-file\N" " File" 10 | "" "" 11 | "" " \ecCComments\ecA" 12 | "\Lcomment-start\N" " Start Comment" 13 | "\Lcomment-line\N" " Comment Out Line" 14 | "\Luncomment-line\N" " Delete Comment" 15 | "\Lcomment-to-end-of-line\N" " Comment to End of Line" 16 | "\Lcomment-restyle\N" " Restyle Comment" 17 | "" "" 18 | "" " \ecCFolding\ecA" 19 | "\Lcollapse-current\N" " Open/Close Current Macro" 20 | "\Lcollapse-all\N" " Open/Close All Macros" 21 | "" "" 22 | -------------------------------------------------------------------------------- /src/macros/hkerf.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: erf hook - invoked when a MicroEmacs registry file is loaded. 7 | ; Authors: Jon Green & Steven Phillips 8 | ; 9 | define-macro fhook-erf 10 | set-variable $buffer-mask "luh1" 11 | @# buffer-init "erf" 12 | buffer-init-hooks 13 | !emacro 14 | 15 | ; buffer-init variables 16 | set-variable .fhook-erf.name "ME Registry" 17 | set-variable .fhook-erf.setup ® "/history/fhook/erf" "dfghiopx" 18 | set-variable .fhook-erf.setup-mask "adefghikmoptux" 19 | set-variable .fhook-erf.comment "|;||;|; | ;|r|" 20 | set-variable .fhook-erf.indent-width 1 21 | 22 | ; setup erf collapse support 23 | set-variable .fhook-erf.collapse-open "^\".*{$" 24 | set-variable .fhook-erf.collapse-close "^}" 25 | set-variable .fhook-erf.collapse-mclose "1" 26 | set-variable .fhook-erf.collapse-mnext "-1" 27 | 28 | !if ¬ &exist .hilight.erf 29 | set-variable .hilight.erf &pinc .hilight.next 1 30 | !endif 31 | 32 | !if &and &sin "h" .fhook-erf.setup &band .hilight.flags 0x02 33 | 0 hilight .hilight.erf 0 $global-scheme 34 | hilight .hilight.erf 4 "\"" "\"" "\\" .scheme.keyword 35 | hilight .hilight.erf 0 "=" .scheme.operator 36 | hilight .hilight.erf 0x2 ";" .scheme.comment ; Comment from SOL to EOL. 37 | !endif 38 | 39 | !if &sin "d" .fhook-erf.setup 40 | 0 indent .hilight.erf 0 10 41 | indent .hilight.erf n "{" t 42 | indent .hilight.erf o "}" -t 43 | indent .hilight.erf e "\"" "\"" "\\" 44 | indent .hilight.erf i ";" 45 | !endif 46 | 47 | buffer-init-fhook "erf" 48 | 49 | -------------------------------------------------------------------------------- /src/macros/hkhtml.eaf: -------------------------------------------------------------------------------- 1 | "" " \ecCDocument\ecA" 2 | "\Lhtml-view-netscape\N" " Preview in Netscape" 3 | "\Lhtml-view-iexplorer\N" " Preview in IExplorer" 4 | "" "" 5 | "\L1 html-insert-main-tag\N" " HTML Tag" 6 | "\L2 html-insert-main-tag\N" " Header" 7 | "\L4 html-insert-main-tag\N" " Title" 8 | "" "" 9 | "\L5 html-insert-main-tag\N" " Body" 10 | "\L5 html-insert-main-tag\N\L3 html-insert-attrib BGCOLOR\N" " Background Color" 11 | "\L5 html-insert-main-tag\N\L3 html-insert-attrib TEXT\N" " Main Text Color" 12 | "\L5 html-insert-main-tag\N\L3 html-insert-attrib LINK\N" " Link Text Color" 13 | "\L5 html-insert-main-tag\N\L3 html-insert-attrib ALINK\N" " Active Link Color" 14 | "\L5 html-insert-main-tag\N\L3 html-insert-attrib VLINK\N" " Visited Link Color" 15 | "" "" 16 | "\Lhtml-config-netscape\N" " Configure Netscape" 17 | "\Lhtml-config-iexplorer\N" " Configure IExplorer" 18 | "" "" 19 | "" " \ecCFrames & Tables\ecA" 20 | "\Lhtml-insert-tag FRAMESET\N" " Frame Set" 21 | "\Lhtml-insert-tag FRAME\N" " Frame" 22 | "\Lhtml-insert-tag NOFRAMES\N" " No Frames" 23 | "" "" 24 | "\Lhtml-create-table\N" " Create Table" 25 | "\Lhtml-insert-tag TABLE\N" " Table" 26 | "\Lhtml-insert-tag TR\N" " Table Row" 27 | "\Lhtml-insert-tag TD\N" " Table Column" 28 | "" "" 29 | "" " \ecCInsert\ecA" 30 | "\L6 html-insert-tag \"!----\"\N\CB\CB\CB" " Comment" 31 | "\L5 html-insert-tag A\N\CB NAME=\"\"\CB" " Hyperlink Target" 32 | "\L5 html-insert-tag A\N\CB HREF=\"\"\CB" " Hyperlink Jump" 33 | "\L5 html-insert-tag A\N\CB HREF=\"\" TARGET=\"\"\CB\CB\CB\CB\CB\CB\CB\CB\CB\CB\CB" " Hyperlink Jump with Target" 34 | "\L6 html-insert-tag EMBED\N\CB SRC=\"\"\CB" " Embed File" 35 | "\L6 html-insert-tag IMG\N\CB SRC=\"\"\CB" " Image" 36 | "\L6 html-insert-tag HR\N\CB ALIGN=\"CENTER\" SIZE=\"1\"\CF" " Dividing Line" 37 | "\Lhtml-insert-color\N" " Color" 38 | "" "" 39 | "" " \ecCText Format\ecA" 40 | "\Lhtml-insert-tag B\N" " Bold" 41 | "\Lhtml-insert-tag I\N" " Italic" 42 | "\Lhtml-insert-tag U\N" " Underline" 43 | "\Lhtml-insert-tag FONT\N" " Font" 44 | "" "" 45 | "\Lhtml-insert-tag CENTER\N" " Center" 46 | "\Lhtml-insert-tag H1\N" " Header 1" 47 | "\Lhtml-insert-tag H2\N" " Header 2" 48 | "\Lhtml-insert-tag H3\N" " Header 3" 49 | "\Lhtml-insert-tag H4\N" " Header 4" 50 | "" "" 51 | 52 | -------------------------------------------------------------------------------- /src/macros/hkimake.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Imakefile hook 7 | ; Authors: Jon Green 8 | ; 9 | define-macro fhook-imake 10 | set-variable $buffer-mask "luh1" 11 | @# buffer-init "imake" 12 | buffer-init-hooks 13 | !emacro 14 | 15 | ; buffer-init variables 16 | set-variable .fhook-imake.name "Imakefile" 17 | set-variable .fhook-imake.setup ® "/history/fhook/imake" "ghinopTx" 18 | set-variable .fhook-imake.setup-mask "aeghikmnoptux" 19 | set-variable .fhook-imake.comment "|/*| */|*| * | * |fr|" 20 | 21 | !if &and &sin "h" .fhook-imake.setup &band .hilight.flags 0x02 22 | !if ¬ &exist .hilight.imake 23 | set-variable .hilight.imake &pinc .hilight.next 1 24 | !endif 25 | ; Imakefile file highlighting 26 | 0 hilight .hilight.imake 2 50 $global-scheme 27 | hilight .hilight.imake 0 ":" .scheme.variable 28 | hilight .hilight.imake 4 "\"" "\"" "\\" .scheme.string 29 | hilight .hilight.imake 20 "/\\*" "*/" "" .scheme.comment 30 | hilight .hilight.imake 0 "/\\*\\." $global-scheme 31 | hilight .hilight.imake 50 "#" .scheme.prepro 32 | hilight .hilight.imake 4 "\\$(" ")" "" .scheme.variable 33 | hilight .hilight.imake 1 "\\$O" .scheme.variable 34 | hilight .hilight.imake 1 "\\$T" .scheme.variable 35 | hilight .hilight.imake 0 "\\.SUFFIXES" .scheme.keyword 36 | hilight .hilight.imake 0 "\\.IGNORE" .scheme.keyword 37 | hilight .hilight.imake 0 "\\.DEFAULT" .scheme.keyword 38 | hilight .hilight.imake 0 "\\.PRECIOUS" .scheme.keyword 39 | hilight .hilight.imake 1 "\\$@" .scheme.keyword 40 | hilight .hilight.imake 1 "\\$\\$@" .scheme.keyword 41 | hilight .hilight.imake 1 "\\$\\*" .scheme.keyword 42 | hilight .hilight.imake 1 "\\$<" .scheme.keyword 43 | !endif 44 | 45 | buffer-init-fhook "imake" 46 | -------------------------------------------------------------------------------- /src/macros/hkini.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1997-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Microsoft Windows initalisation file hook. 7 | ; Authors: Jon Green 8 | ; 9 | ; Notes: Typically used for Microsoft Windows environments 10 | ; primarily for the initalisation files. The syntax is 11 | ; slightly more liberal that a true .ini file but allows 12 | ; the template to be used by slightly different file formats. 13 | ; 14 | ; Usage: .ini - Microsoft Windows initialisation files 15 | ; .hpj - Microsoft help project files. 16 | ; 17 | define-macro fhook-ini 18 | set-variable $buffer-mask "luh1" 19 | @# buffer-init "ini" 20 | buffer-init-hooks 21 | !emacro 22 | 23 | ; buffer-init variables 24 | set-variable .fhook-ini.setup ® "/history/fhook/ini" "fghiopx" 25 | set-variable .fhook-ini.setup-mask "aefghikmoptux" 26 | set-variable .fhook-ini.comment "|;||;|; | ;|r|" 27 | 28 | ; setup ini file collapse 29 | set-variable .fhook-ini.collapse-open "^\\[" 30 | set-variable .fhook-ini.collapse-close "^\\[\\|\\'" 31 | set-variable .fhook-ini.collapse-mnext "-1" 32 | 33 | !if &and &sin "h" .fhook-ini.setup &band .hilight.flags 0x02 34 | !if ¬ &exist .hilight.ini 35 | set-variable .hilight.ini &pinc .hilight.next 1 36 | !endif 37 | 0 hilight .hilight.ini 0 .scheme.keyword 38 | hilight .hilight.ini 0 "/" $global-scheme 39 | hilight .hilight.ini 2 "=" $global-scheme 40 | hilight .hilight.ini 0 ":=" $global-scheme 41 | hilight .hilight.ini 2 "#" .scheme.comment ; Comment from SOL to EOL. 42 | hilight .hilight.ini 0x102 ";" .scheme.comment ; Comment from SOL to EOL. 43 | ; Obscure file format extensions 44 | hilight .hilight.ini 2 "//" .scheme.comment ; Comment to EOL. 45 | hilight .hilight.ini 20 "\\[" "]" "" .scheme.string 46 | hilight .hilight.ini 1 "ROOT" .scheme.variable 47 | hilight .hilight.ini 1 "USER" .scheme.variable 48 | hilight .hilight.ini 1 "LOCAL" .scheme.variable 49 | hilight .hilight.ini 1 "CURRENT" .scheme.variable 50 | !endif 51 | 52 | buffer-init-fhook "ini" 53 | 54 | -------------------------------------------------------------------------------- /src/macros/hkiss.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Inno Setup Script file hook 7 | ; Authors: Jon Green 8 | ; 9 | define-macro fhook-iss 10 | set-variable $buffer-mask "luh1" 11 | @# buffer-init "iss" 12 | buffer-init-hooks 13 | !emacro 14 | set-variable .fhook-iss.name "Inno Setup Script" 15 | set-variable .fhook-iss.setup ® "/history/fhook/iss" "fghiopx" 16 | set-variable .fhook-iss.setup-mask "aefghikmoptux" 17 | set-variable .fhook-iss.comment "|;||;|; | ;|r|" 18 | 19 | ; setup iss file collapse 20 | set-variable .fhook-iss.collapse-open "^\\[" 21 | set-variable .fhook-iss.collapse-close "^\\[\\|\\'" 22 | set-variable .fhook-iss.collapse-mnext "-1" 23 | 24 | !if ¬ &exist .hilight.iss 25 | set-variable .hilight.iss &pinc .hilight.next 1 26 | !endif 27 | 28 | !if &and &sin "h" .fhook-iss.setup &band .hilight.flags 0x02 29 | 0 hilight .hilight.iss 3 20 $global-scheme 30 | hilight .hilight.iss 0x21 ";.*" .scheme.comment 31 | hilight .hilight.iss 20 "\\[" "]" "" .scheme.function 32 | hilight .hilight.iss 4 "\"" "\"" "" .scheme.string 33 | ; Setup - Compiler related. 34 | hilight .hilight.iss 0x20 "\\m+\\s*\\}=" .scheme.keyword 35 | ; File related of the form "^Name:" or "; Name:" 36 | hilight .hilight.iss 0x20 "\\m+\\s*\\}:" .scheme.keyword 37 | hilight .hilight.iss 0x00 ";\\{\\s*\\m+\\s*\\}:" .scheme.keyword 38 | ; Variables 39 | hilight .hilight.iss 0x01 "{\\m+}" .scheme.variable 40 | ; Registry values 41 | hilight .hilight.iss 0x01 "HKCR" .scheme.prepro 42 | hilight .hilight.iss 0x01 "HKCU" .scheme.prepro 43 | hilight .hilight.iss 0x01 "HKLM" .scheme.prepro 44 | hilight .hilight.iss 0x01 "HKU" .scheme.prepro 45 | hilight .hilight.iss 0x01 "HKCC" .scheme.prepro 46 | ; Setup - Obsolete. These directives are obsolete and should not be used 47 | ; in any new scripts. 48 | hilight .hilight.iss 0x20 "AlwaysCreateUninstallIcon\\s*\\}=" .scheme.error 49 | hilight .hilight.iss 0x20 "DisableAppendDir\\s*\\}=" .scheme.error 50 | hilight .hilight.iss 0x20 "DontMergeDuplicateFiles\\s*\\}=" .scheme.error 51 | hilight .hilight.iss 0x20 "MessagesFile\\s*\\}=" .scheme.error 52 | hilight .hilight.iss 0x20 "UninstallIconFile\\s*\\}=" .scheme.error 53 | hilight .hilight.iss 0x20 "UninstallIconName\\s*\\}=" .scheme.error 54 | hilight .hilight.iss 0x20 "UninstallStyle\\s*\\}=" .scheme.error 55 | hilight .hilight.iss 0x20 "WizardSmallImageBackColor\\s*\\}=" .scheme.error 56 | hilight .hilight.iss 0x20 "WizardStyle\\s*\\}=" .scheme.error 57 | !endif 58 | 59 | buffer-init-fhook "iss" 60 | -------------------------------------------------------------------------------- /src/macros/hkjsp.eaf: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /src/macros/hkjst.eaf: -------------------------------------------------------------------------------- 1 | "" "\ecCExport:\ecA" 2 | "\Ljst-to-html\N\N" " To HTML (./.htm)" 3 | "\Ljst-to-latex\N\N" " To LaTeX (./.tex)" 4 | "\Ljst-to-rtf\N\N" " To RTF (./.rtf)" 5 | "\Ljst-to-text\N\N" " To text (./.txt)" 6 | -------------------------------------------------------------------------------- /src/macros/hklatex.emf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/macros/hklatex.emf -------------------------------------------------------------------------------- /src/macros/hklhtml.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2004-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created Fri Jan 9 2004 7 | ; Synopsis: LUA-HTML Hook File 8 | ; Authors: Steven Phillips & Jeremy Cowgar 9 | ; 10 | define-macro fhook-lhtml 11 | set-variable $buffer-mask "luh1" 12 | @# buffer-init "lhtml" 13 | buffer-init-hooks 14 | !emacro 15 | 16 | ; buffer-init variables 17 | set-variable .fhook-lhtml.name "LUA-HTML" 18 | set-variable .fhook-lhtml.setup ® "/history/fhook/lhtml" "cdghinopsx" 19 | set-variable .fhook-lhtml.setup-mask "acdeghikmnopstux" 20 | set-variable .fhook-lhtml.command-flag "|" 21 | set-variable .fhook-lhtml.command-name "|" 22 | set-variable .fhook-lhtml.command-nbind "|" 23 | set-variable .fhook-lhtml.command-kbind "|" 24 | set-variable .fhook-lhtml.command-desc "|" 25 | set-variable .fhook-lhtml.indent-width 2 26 | 27 | ; load in lua script & the html core 28 | !if ¬ &exist fhook-lua 29 | !force exec-file "hklua" 30 | !endif 31 | !force execute-file "htmlcore" "lhtml" 32 | 33 | ; add the lua script support 34 | !if &and &sin "h" .fhook-lhtml.setup &band .hilight.flags 0x02 35 | hilight .hilight.lhtmltag 4 "=\\{[^ \t\n<>]*<\\?lua" "\\?>[^ \t\n>]*" "" .scheme.string 36 | hilight .hilight.lhtmltag 4 "=\\{\"[^\"\n<]*<\\?lua" "\\?>[^\"]*\"" "" .scheme.string 37 | !if &exist .hilight.luascript 38 | hilight .hilight.lhtml 0x80 "<\\?lua" .hilight.luascript .scheme.prepro 39 | hilight .hilight.lhtmltag 0x80 "<\\?lua" .hilight.luascript .scheme.prepro 40 | hilight .hilight.luascript 0x80 "\\?>" 0 .scheme.prepro 41 | hilight .hilight.lhtml 0x80 "<%" .hilight.luascript .scheme.prepro 42 | hilight .hilight.lhtmltag 0x80 "<%" .hilight.luascript .scheme.prepro 43 | hilight .hilight.luascript 0x80 "%>" 0 .scheme.prepro 44 | !endif 45 | !endif 46 | !if &sin "d" .fhook-lhtml.setup 47 | !if &exist .indent.luascript 48 | indent .hilight.lhtmltag t "<\\?lua" .indent.luascript 49 | indent .hilight.lhtmltag t "\\?>" .hilight.lhtml 50 | indent .hilight.lhtmltag t "<%" .indent.luascript 51 | indent .hilight.lhtmltag t "%>" .hilight.lhtml 52 | 53 | indent .hilight.lhtml x "<\\?lua" t .indent.luascript 54 | indent .hilight.lhtml x "<%" t .indent.luascript 55 | indent .indent.luascript w "\\?>" -t 0 56 | indent .indent.luascript w "%>" -t 0 57 | !endif 58 | !endif 59 | 60 | buffer-init-fhook "lhtml" 61 | -------------------------------------------------------------------------------- /src/macros/hklisp.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: lisp hook - invoked when a lisp file is loaded. 7 | ; Authors: Steven Phillips 8 | ; 9 | set-char-mask "2" "-$&#!%:@." 10 | 11 | define-macro fhook-lisp 12 | set-variable $buffer-mask "luh1" 13 | @# buffer-init "lisp" 14 | buffer-init-hooks 15 | !emacro 16 | 17 | ; buffer-init variables 18 | set-variable .fhook-lisp.setup ® "/history/fhook/lisp" "dghiopx" 19 | set-variable .fhook-lisp.setup-mask "adeghikmoptux" 20 | set-variable .fhook-lisp.comment "|;||;|; | ;|r|" 21 | set-variable .fhook-lisp.indent-width 2 22 | 23 | !if ¬ &exist .hilight.lisp 24 | set-variable .hilight.lisp &pinc .hilight.next 1 25 | !endif 26 | 27 | !if &and &sin "h" .fhook-lisp.setup &band .hilight.flags 0x02 28 | 0 hilight .hilight.lisp 2 50 $global-scheme 29 | hilight .hilight.lisp 0x804 "\"" "\"" "\\" .scheme.string 30 | hilight .hilight.lisp 20 "#|" "|#" "" .scheme.comment 31 | hilight .hilight.lisp 2 ";" .scheme.comment 32 | hilight .hilight.lisp 1 "^\\s*(\\{defvar" .scheme.variable 33 | hilight .hilight.lisp 1 "^\\s*(\\{defconst" .scheme.variable 34 | hilight .hilight.lisp 1 "^\\s*(\\{defun" .scheme.keyword 35 | !endif 36 | 37 | !if &sin "d" .fhook-lisp.setup 38 | 0 indent .hilight.lisp 0 10 39 | indent .hilight.lisp n "(" t 40 | indent .hilight.lisp o ")" -t 41 | indent .hilight.lisp i ";" 42 | indent .hilight.lisp e "\"" "\"" "\\" 43 | indent .hilight.lisp e "#|" "|#" "" 44 | indent .hilight.lisp i ";" 45 | !endif 46 | 47 | buffer-init-fhook "lisp" 48 | -------------------------------------------------------------------------------- /src/macros/hklists.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1997-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Wed Mar 12 1997 7 | ; Synopsis: Lists hook 8 | ; Authors: Steven Pillips 9 | ; 10 | set-char-mask "2" "-$&#!%:@." 11 | 12 | define-macro fhook-lists 13 | set-variable $buffer-mask "luh12" 14 | @# buffer-init "lists" 15 | set-variable :mouse-word-select ehf-process-link 16 | buffer-init-hooks 17 | !emacro 18 | 19 | ; buffer-init variables 20 | set-variable .fhook-lists.name "ME List" 21 | set-variable .fhook-lists.setup ® "/history/fhook/lists" "ghop" 22 | set-variable .fhook-lists.setup-mask "aeghop" 23 | set-variable .fhook-lists.command-flag "|thbio|" 24 | set-variable .fhook-lists.command-name "|lists-find-link|" 25 | set-variable .fhook-lists.command-nbind "||" 26 | set-variable .fhook-lists.command-kbind "|return|" 27 | set-variable .fhook-lists.command-desc "|\HGet Help on Item|" 28 | 29 | !if &and &sin "h" .fhook-lists.setup &band .hilight.flags 0x02 30 | !if ¬ &exist .hilight.lists 31 | set-variable .hilight.lists &pinc .hilight.next 1 32 | !endif 33 | 0 hilight .hilight.lists 0x000 $global-scheme 34 | hilight .hilight.lists 0x102 "Buffer" .scheme.header 35 | hilight .hilight.lists 0x102 "Global" .scheme.header 36 | hilight .hilight.lists 0x102 "Ml" .scheme.header 37 | hilight .hilight.lists 0x102 "Register" .scheme.header 38 | hilight .hilight.lists 0x102 "System" .scheme.header 39 | hilight .hilight.lists 0x004 "\"" "\"" "\\" .scheme.string 40 | hilight .hilight.lists 0x004 "[[:alpha:]]" "\\}\\s" "" .scheme.no1 41 | hilight .hilight.lists 0x004 "\\$\\w" "\\}\\s" "" .scheme.no1 42 | hilight .hilight.lists 0x004 "%\\w" "\\}\\s" "" .scheme.no1 43 | hilight .hilight.lists 0x004 ":\\w" "\\}\\s" "" .scheme.no1 44 | hilight .hilight.lists 0x004 "#\\w" "\\}\\s" "" .scheme.no1 45 | !endif 46 | 47 | define-macro-file hkehf ehf-process-link ehf-find-help 48 | 49 | ; Local macro to process the links from the keyboard. 50 | ; Bound to . Note that we process from the 51 | ; end of the line. This makes it easy to process 52 | ; the command where there are multiple key bindings. 53 | 0 define-macro lists-find-link 54 | set-mark 55 | end-of-line 56 | ; Search for the string on the end of the current line. 57 | ; Handles *bindings* buffer. 58 | ; 59 | ; "C-u" ......................... universal-argument 60 | ; "C-x" ......................... 2 prefix 61 | ; 62 | !force -1 search-backward " \\([#$@]?[-a-zA-Z0-9]+\\) *$" 63 | !if $status 64 | ehf-find-help @s1 65 | !return 66 | !endif 67 | ; Search for the string at the start of the line. 68 | ; Handles *variables* and *commads* buffers. 69 | ; 70 | ; $buffer-bname ................. "hklists.emf" 71 | ; 72 | ; backward-char ................. "C-b" 73 | ; "kp-left" 74 | ; 75 | !force search-backward "^ +\\([#$@]?[-a-zA-Z0-9]+\\)" 76 | !if $status 77 | ehf-find-help @s1 78 | !return 79 | !endif 80 | ; Must be an error. 81 | exchange-point-and-mark 82 | ml-write "Error! Not in a link" 83 | !abort 84 | !emacro 85 | 86 | buffer-init-fhook "lists" 87 | -------------------------------------------------------------------------------- /src/macros/hkmake.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1997-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Makefile hook 7 | ; Authors: Jon Green 8 | ; 9 | define-macro fhook-make 10 | set-variable $buffer-mask "luh1" 11 | @# buffer-init "make" "makefile" 12 | buffer-init-hooks 13 | !emacro 14 | 15 | ; buffer-init variables 16 | set-variable .fhook-make.name "Makefile" 17 | set-variable .fhook-make.setup ® "/history/fhook/make" "ghinopTx" 18 | set-variable .fhook-make.setup-mask "aeghikmnoptux" 19 | set-variable .fhook-make.comment "|#||#|# | #|r|" 20 | 21 | !if &and &sin "h" .fhook-make.setup &band .hilight.flags 0x02 22 | ; Make file highlighting 23 | !if ¬ &exist .hilight.make 24 | set-variable .hilight.make &pinc .hilight.next 1 25 | !endif 26 | 0 hilight .hilight.make 0 $global-scheme 27 | hilight .hilight.make 0 ":" .scheme.variable 28 | hilight .hilight.make 4 "[^\\]\"" "\"" "\\" .scheme.string 29 | hilight .hilight.make 0 "/\\*\\." $global-scheme 30 | hilight .hilight.make 2 "#" .scheme.comment 31 | hilight .hilight.make 4 "\\$(" ")" "" .scheme.variable 32 | hilight .hilight.make 1 "\\$O" .scheme.variable 33 | hilight .hilight.make 1 "\\$T" .scheme.variable 34 | hilight .hilight.make 0 "\\.SUFFIXES" .scheme.keyword 35 | hilight .hilight.make 0 "\\.IGNORE" .scheme.keyword 36 | hilight .hilight.make 0 "\\.DEFAULT" .scheme.keyword 37 | hilight .hilight.make 0 "\\.PRECIOUS" .scheme.keyword 38 | hilight .hilight.make 1 "\\$@" .scheme.keyword 39 | hilight .hilight.make 1 "\\$\\$@" .scheme.keyword 40 | hilight .hilight.make 1 "\\$\\*" .scheme.keyword 41 | hilight .hilight.make 1 "\\$^" .scheme.keyword 42 | hilight .hilight.make 1 "\\$<" .scheme.keyword 43 | ; Highlight the TODO markers in comments. 44 | hilight .hilight.make 18 "#\\s+[Tt][Oo][Dd][Oo]" .scheme.error 45 | !endif 46 | 47 | buffer-init-fhook "make" 48 | -------------------------------------------------------------------------------- /src/macros/hkmhg.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Sat Mar 20 1999 7 | ; Synopsis: MHEG-5 hook 8 | ; Authors: Jon Green 9 | ; Notes: Configured for UK-DTTV broadcast MHEG-5 only. 10 | ; 11 | define-macro fhook-mhg 12 | set-variable $buffer-mask "luh1" 13 | @# buffer-init "mhg" 14 | buffer-init-hooks 15 | !emacro 16 | 17 | ; buffer-init variables 18 | set-variable .fhook-mhg.name "MHEG" 19 | set-variable .fhook-mhg.setup ® "/history/fhook/mhg" "fghinopx" 20 | set-variable .fhook-mhg.setup-mask "aefghikmnoptux" 21 | set-variable .fhook-mhg.comment "|//||/|// | //||" 22 | set-variable .fhook-mhg.exact -1 23 | 24 | ; Set up the collapses for 'mheg' 25 | set-variable .fhook-mhg.collapse-open "^{" 26 | set-variable .fhook-mhg.collapse-close "^}" 27 | set-variable .fhook-mhg.collapse-mclose "1" 28 | set-variable .fhook-mhg.collapse-mnext "-1" 29 | 30 | !if &and &sin "h" .fhook-mhg.setup &band .hilight.flags 0x02 31 | ; Hi-light M-HEG Mode 32 | !if ¬ &exist .hilight.mhg 33 | set-variable .hilight.mhg &pinc .hilight.next 1 34 | !endif 35 | 0 hilight .hilight.mhg 1 $global-scheme 36 | hilight .hilight.mhg 2 "//" .scheme.comment 37 | hilight .hilight.mhg 4 "\"" "\"" "\\" .scheme.string 38 | hilight .hilight.mhg 4 "'" "'" "\\" .scheme.string 39 | ; Generic main keyword introduction 40 | hilight .hilight.mhg 4 "{:" "\\}\\W" "" .scheme.keyword 41 | ; Variable values 42 | hilight .hilight.mhg 1 "true" .scheme.variable 43 | hilight .hilight.mhg 1 "false" .scheme.variable 44 | hilight .hilight.mhg 1 "start" .scheme.variable 45 | hilight .hilight.mhg 1 "end" .scheme.variable 46 | hilight .hilight.mhg 1 "centre" .scheme.variable 47 | ; Events 48 | hilight .hilight.mhg 1 "isrunning" .scheme.prepro 49 | hilight .hilight.mhg 1 "timerevent" .scheme.prepro 50 | hilight .hilight.mhg 1 "timerfired" .scheme.prepro 51 | hilight .hilight.mhg 1 "userinput" .scheme.prepro 52 | hilight .hilight.mhg 1 "testevent" .scheme.prepro 53 | hilight .hilight.mhg 1 "justified" .scheme.prepro 54 | hilight .hilight.mhg 1 "asynchstopped" .scheme.prepro 55 | !endif 56 | 57 | buffer-init-fhook "mhg" 58 | -------------------------------------------------------------------------------- /src/macros/hknroff.eaf: -------------------------------------------------------------------------------- 1 | "" " \ecCGenerate Tags\ecA" 2 | "\Lgenerate-tags-file\N" " Generate" 3 | "\L0 generate-tags-file\N" " With Menu..." 4 | "" "" 5 | "" " \ecCComments\ecA" 6 | "\Lcomment-start\N" " Start Comment" 7 | "\Lcomment-line\N" " Comment Out Line" 8 | "\Luncomment-line\N" " Delete Comment" 9 | "\Lcomment-to-end-of-line\N" " Comment to End of Line" 10 | "\Lcomment-restyle\N" " Restyle Comment" 11 | "" "" 12 | "" " \ecCFolding\ecA" 13 | "\Lcollapse-current\N" " Open/Close Current Section" 14 | "\Lcollapse-all\N" " Open/Close All Sections" 15 | "" "" 16 | 17 | -------------------------------------------------------------------------------- /src/macros/hkphp.eaf: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /src/macros/hkspec.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2004-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Sat Feb 14 12:39:53 2004 7 | ; Synopsis: Hilighting for RedHat RPM Package Manager File 8 | ; Authors: Jon Green 9 | ; 10 | ; Notes: 11 | ; A simple hilighting scheme, nothing too complex as it is 12 | ; used so infrequently. Not all of the tags may be included. 13 | ; 14 | define-macro fhook-spec 15 | @# buffer-init "spec" 16 | buffer-init-hooks 17 | !emacro 18 | 19 | set-variable .fhook-spec.setup ® "/history/fhook/spec" "bghinopx" 20 | set-variable .fhook-spec.setup-mask "aebghikmnoptux" 21 | set-variable .fhook-spec.comment "|#||#|# | #||" 22 | ; Hilighting 23 | !if &and &sin "h" .fhook-spec.setup &band .hilight.flags 0x02 24 | !if ¬ &exist .hilight.spec 25 | set-variable .hilight.spec &pinc .hilight.next 1 26 | !endif 27 | 28 | ; Make file highlighting 29 | 0 hilight .hilight.spec 2 50 $global-scheme 30 | hilight .hilight.spec 2 "#" .scheme.comment 31 | ; 32 | hilight .hilight.spec 0 "^\\w+:" .scheme.keyword 33 | hilight .hilight.spec 0 "^%\\w+" .scheme.keyword 34 | hilight .hilight.spec 4 "%{" "}" "" .scheme.variable 35 | hilight .hilight.spec 4 "\\$" "\\}\\W" "" .scheme.variable 36 | !endif 37 | 38 | buffer-init-fhook "spec" 39 | -------------------------------------------------------------------------------- /src/macros/hktexi.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Mon Jul 12 1999 7 | ; Synopsis: Quick hilight for texinfo files. 8 | ; Authors: Jon Green 9 | ; 10 | ; Notes: Could benifit with some tools. 11 | ; 12 | define-macro fhook-texi 13 | @# buffer-init "texi" 14 | buffer-init-hooks 15 | !emacro 16 | 17 | ; buffer-init variables 18 | set-variable .fhook-texi.name "Texinfo" 19 | set-variable .fhook-texi.setup ® "/history/fhook/texi" "bghiopx" 20 | set-variable .fhook-texi.setup-mask "abeghikmoptux" 21 | set-variable .fhook-texi.comment "|@c |||@c |||" 22 | 23 | !if &and &sin "h" .fhook-texi.setup &band .hilight.flags 0x02 24 | !if ¬ &exist .hilight.texi 25 | set-variable .hilight.texi &pinc .hilight.next 1 26 | !endif 27 | 0 hilight .hilight.texi 0 $global-scheme 28 | hilight .hilight.texi 0 "@c .*" .scheme.comment 29 | hilight .hilight.texi 4 "@" "\\}\\W" "" .scheme.keyword 30 | !endif 31 | 32 | buffer-init-fhook "texi" 33 | 34 | -------------------------------------------------------------------------------- /src/macros/hktxt.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2000-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Mon Mar 20 2000 7 | ; Synopsis: text file hook 8 | ; Authors: Jon Green 9 | ; 10 | ; Notes: See docmacro.emf for documentation 11 | ; 12 | define-macro fhook-txt 13 | ; use the document fhook in docmacro 14 | @# doc-fhook-body "txt" "text" 15 | !emacro 16 | 17 | ; buffer-init variables 18 | set-variable .fhook-txt.name "Text" 19 | set-variable .fhook-txt.setup ® "/history/fhook/txt" "gijopsw" 20 | set-variable .fhook-txt.setup-mask "aefghijkmnopstuwx" 21 | 22 | ; load docmacro.emf passing the doc setup flags 23 | execute-file "docmacro" "txt" 24 | 25 | buffer-init-fhook "txt" 26 | -------------------------------------------------------------------------------- /src/macros/hpp.etf: -------------------------------------------------------------------------------- 1 | // -!- c++ -!- ////////////////////////////////////////////////////////////// 2 | // 3 | // System : 4 | // Module : 5 | // Object Name : $RCSfile$ 6 | // Revision : $Revision$ 7 | // Date : $Date$ 8 | // Author : $Author$ 9 | // Created By : $USER_NAME$ 10 | // Created : $ASCII_TIME$ 11 | // Last Modified : <090829.1745> 12 | // 13 | // Description 14 | // 15 | // Notes 16 | // 17 | // History 18 | // 19 | ///////////////////////////////////////////////////////////////////////////// 20 | // 21 | // Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | // 23 | // All Rights Reserved. 24 | // 25 | // This document may not, in whole or in part, be copied, photocopied, 26 | // reproduced, translated, or reduced to any electronic medium or machine 27 | // readable form without prior written consent from $COMPANY_NAME$. 28 | // 29 | ////////////////////////////////////////////////////////////////////////////// 30 | 31 | #ifndef __$BUFFER_NAME$ 32 | #define __$BUFFER_NAME$ 33 | $CURSOR$ 34 | 35 | #endif // __$BUFFER_NAME$ 36 | 37 | -------------------------------------------------------------------------------- /src/macros/hpux.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1995-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Setup file for HPUX boxes. 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Load up common unix stuff 10 | !force exec-file "unixterm" 11 | ; 12 | ; Compile stuff 13 | 0 add-next-line "*compile*" 14 | add-next-line "*compile*" "cc: \"\\.\\./%f\", line %l" 15 | add-next-line "*compile*" "cpp: \"\\.\\./%f\", line %l" 16 | add-next-line "*compile*" "cc: \"%f\", line %l" 17 | add-next-line "*compile*" "cpp: \"%f\", line %l" 18 | add-next-line "*compile*" "Warning \\d+: \"%f\", line %l" 19 | add-next-line "*compile*" "%f:%l:" 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/macros/html.etf: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | $CURSOR$ 6 | 7 | 8 | 9 | -------------------------------------------------------------------------------- /src/macros/idl.etf: -------------------------------------------------------------------------------- 1 | /* -*- idl -*- **************************************************************** 2 | * 3 | * System : 4 | * Module : 5 | * Object Name : $RCSfile$ 6 | * Revision : $Revision$ 7 | * Date : $Date$ 8 | * Author : $Author$ 9 | * Created By : $USER_NAME$ 10 | * Created : $ASCII_TIME$ 11 | * Last Modified : <090829.1748> 12 | * 13 | * Description 14 | * 15 | * Notes 16 | * 17 | * History 18 | * 19 | **************************************************************************** 20 | * 21 | * Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | * 23 | * All Rights Reserved. 24 | * 25 | * This document may not, in whole or in part, be copied, photocopied, 26 | * reproduced, translated, or reduced to any electronic medium or machine 27 | * readable form without prior written consent from $COMPANY_NAME$. 28 | * 29 | ****************************************************************************/ 30 | 31 | -------------------------------------------------------------------------------- /src/macros/imake.etf: -------------------------------------------------------------------------------- 1 | /**************************************************************************** 2 | * 3 | * System : 4 | * Module : 5 | * Object Name : $RCSfile$ 6 | * Revision : $Revision$ 7 | * Date : $Date$ 8 | * Author : $Author$ 9 | * Created By : $USER_NAME$ 10 | * Created : $ASCII_TIME$ 11 | * Last Modified : <090829.1748> 12 | * 13 | * Description 14 | * 15 | * Notes 16 | * 17 | * History 18 | * 19 | **************************************************************************** 20 | * 21 | * Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | * 23 | * All Rights Reserved. 24 | * 25 | * This document may not, in whole or in part, be copied, photocopied, 26 | * reproduced, translated, or reduced to any electronic medium or machine 27 | * readable form without prior written consent from $COMPANY_NAME$. 28 | * 29 | ****************************************************************************/ 30 | 31 | -------------------------------------------------------------------------------- /src/macros/insdate.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Mon Sep 13 1999 7 | ; Synopsis: Insert the date string into the current buffer. 8 | ; Authors: Steven Phillips 9 | ; Notes: 10 | ; Format is compliant to standard strftime C function, the following 11 | ; Codes are supported: 12 | ; 13 | ; %% % char 14 | ; %Y 4 digit year 15 | ; %y 2 digit year 16 | ; %B Month 17 | ; %b 3 letter month 18 | ; %m 2 digit month 19 | ; %#m 1 digit month 20 | ; %d 2 digit day 21 | ; %#d 1 digit day 22 | ; %A Week Day 23 | ; %a 3 letter week day 24 | ; %H 2 digit 24 hour 25 | ; %M 2 digit minute 26 | ; %S 2 digit second 27 | ; 28 | 0 define-macro-file organize organizer-init 29 | 30 | 0 define-macro osd-insert-date-exec 31 | insert-string &rig $result 2 32 | !emacro 33 | 34 | 0 define-macro osd-insert-date 35 | organizer-init 36 | set-variable #l0 $time 37 | ascii-time 38 | -1 osd @# 39 | osd @# 0 "b" 40 | osd @# 1 "" &spr "\HA %s" #l9 f osd-insert-date-exec 41 | set-variable #l4 &rep #l0 " " "0" 42 | set-variable #l1 0 43 | !while ¬ &seq &set #l2 &lget .formats &inc #l1 1 "" 44 | ; 012345678901234567890123456789 45 | ; $time "1999255 91312145 2220" 46 | set-variable #l2 &rep #l2 "%%" "\b" 47 | set-variable #l2 &rep #l2 "%Y" &lef #l0 4 48 | set-variable #l2 &rep #l2 "%y" &mid #l0 2 2 49 | set-variable #l2 &rep #l2 "%B" &lget .org.months &mid #l0 7 2 50 | set-variable #l2 &rep #l2 "%b" &lef &lget .org.months &mid #l0 7 2 3 51 | set-variable #l2 &rep #l2 "%m" &mid #l4 7 2 52 | set-variable #l2 &rep #l2 "%#m" &trb &mid #l0 7 2 53 | set-variable #l2 &rep #l2 "%d" &mid #l4 9 2 54 | set-variable #l2 &rep #l2 "%#d" &trb &mid #l0 9 2 55 | set-variable #l2 &rep #l2 "%A" &lget .org.days &add 1 &mid #l0 11 1 56 | set-variable #l2 &rep #l2 "%a" &lef &lget .org.days &add 1 &mid #l0 11 1 3 57 | set-variable #l2 &rep #l2 "%H" &mid #l4 12 2 58 | set-variable #l2 &rep #l2 "%M" &mid #l4 14 2 59 | set-variable #l2 &rep #l2 "%S" &mid #l4 16 2 60 | set-variable #l2 &rep #l2 "\b" "%" 61 | osd @# &add #l1 1 "" &spr "\H%s %s" &itoa &add #l1 65 #l2 f osd-insert-date-exec 62 | !done 63 | !emacro 64 | 65 | !if &seq .spell.language "enus" 66 | ; American style 67 | set-variable .osd-insert-date.formats "|%m/%d/%y|%m.%d.%y|%m/%d/%Y|%Y-%m-%d|%#d-%b-%y|%#d %b %y|%#d %b %Y|%#d %B %Y|%A, %#d %B %Y|%m/%d/%y %H:%M|%m/%d/%y %H:%M:%S|" 68 | !else 69 | set-variable .osd-insert-date.formats "|%d/%m/%y|%d.%m.%y|%#d/%m/%Y|%Y-%m-%d|%#d-%b-%y|%#d %b %y|%#d %b %Y|%#d %B %Y|%A, %#d %B %Y|%d/%m/%y %H:%M|%d/%m/%y %H:%M:%S|" 70 | !endif 71 | 72 | -------------------------------------------------------------------------------- /src/macros/irix.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1995-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Setup file for SGI IRIX boxes 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Load up common unix stuff 10 | !force exec-file "unixterm" 11 | ; 12 | ; Compile stuff 13 | 0 add-next-line "*compile*" 14 | add-next-line "*compile*" "\"%f\", line %l:" 15 | add-next-line "*compile*" "^cfe: Error: \\.\\./%f, line %l" 16 | add-next-line "*compile*" "^cfe: Warning [0-9]*: %f, line %l" 17 | add-next-line "*compile*" "^cfe: Error: %f, line %l" 18 | ; gcc compiler 19 | add-next-line "*compile*" "^%f:%l:" 20 | 21 | -------------------------------------------------------------------------------- /src/macros/java.eaf: -------------------------------------------------------------------------------- 1 | #i "#include <\p>\r\P" 2 | #d "#define " 3 | if "if(\p)\r{\r\r}\r\P" 4 | ef "else if(\p)\r{\r\r}\r\P" 5 | el "else\r{\r\p\r}\r\P" 6 | wh "while(\p)\r{\r\r}\r\P" 7 | sw "switch(\p)\r{\rcase :\rdefault:\r}\r\P" 8 | -------------------------------------------------------------------------------- /src/macros/java.etf: -------------------------------------------------------------------------------- 1 | /**************************************************************************** 2 | * 3 | * System : 4 | * Module : 5 | * Object Name : $RCSfile$ 6 | * Revision : $Revision$ 7 | * Date : $Date$ 8 | * Author : $Author$ 9 | * Created By : $USER_NAME$ 10 | * Created : $ASCII_TIME$ 11 | * Last Modified : <090829.1748> 12 | * 13 | * Description 14 | * 15 | * Notes 16 | * 17 | * History 18 | * 19 | **************************************************************************** 20 | * 21 | * Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | * 23 | * All Rights Reserved. 24 | * 25 | * This document may not, in whole or in part, be copied, photocopied, 26 | * reproduced, translated, or reduced to any electronic medium or machine 27 | * readable form without prior written consent from $COMPANY_NAME$. 28 | * 29 | ****************************************************************************/ 30 | 31 | 32 | -------------------------------------------------------------------------------- /src/macros/js.etf: -------------------------------------------------------------------------------- 1 | /* -*- javascript -*- 2 | Copyright $YEAR$ $COMPANY_NAME$ 3 | All Rights Reserved 4 | System : $BUFFER_NAME$ : 5 | Object Name : $RCS_FILE$ 6 | Revision : $REVISION$ 7 | Date : $ASCII_TIME$ 8 | Created By : $USER_NAME$, $COMPANY_NAME$ 9 | Created : $ASCII_TIME$ 10 | 11 | Last Modified : <090829.1748> 12 | ID : $Id$ 13 | Source : $Source$ 14 | Description 15 | Notes 16 | */ 17 | var ns4 = document.layers; 18 | var ie4 = document.all; 19 | var nn6 = document.getElementById && !document.all; 20 | -------------------------------------------------------------------------------- /src/macros/jsp.eaf: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /src/macros/jst.eaf: -------------------------------------------------------------------------------- 1 | "" "\ecCExport:\ecA" 2 | "\Exjst-to-html\N\N" " To HTML (./.htm)" 3 | "\Exjst-to-latex\N\N" " To LaTeX (./.tex)" 4 | "\Exjst-to-rtf\N\N" " To RTF (./.rtf)" 5 | "\Exjst-to-text\N\N" " To text (./.txt)" 6 | -------------------------------------------------------------------------------- /src/macros/jst.etf: -------------------------------------------------------------------------------- 1 | &[c -!- jst -!-] 2 | &[c Copyright: $YEAR$ $COMPANY_NAME$] 3 | &[c Created: $ASCII_TIME$] 4 | &[vns author "$USER_NAME$"] 5 | 6 | = &[vs title "$FILE_BASENAME$"] 7 | -------------------------------------------------------------------------------- /src/macros/jst2html.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2002-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: JST to HTML command-line conversion. 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Usage: 10 | ; me "@jst2html" 11 | ; 12 | define-macro start-up 13 | delete-other-windows 14 | !while ¬ &seq $buffer-bname "*scratch*" 15 | ; use default file name with no prompt 16 | !force 2 jst-to-html 17 | !if ¬ $status 18 | 5000 command-wait 19 | !force 0 delete-buffer "*jst-tmp*" 20 | !endif 21 | delete-buffer $buffer-bname 22 | !done 23 | exit-emacs 24 | !emacro 25 | 26 | execute-file "me" 27 | execute-file "jstutl" 28 | 29 | -------------------------------------------------------------------------------- /src/macros/jst2ltx.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2002-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: JST to LaTeX command-line conversion. 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Usage: 10 | ; me "@jst2ltx" 11 | ; 12 | define-macro start-up 13 | delete-other-windows 14 | !while ¬ &seq $buffer-bname "*scratch*" 15 | ; use default file name with no prompt 16 | !force 2 jst-to-latex 17 | !if ¬ $status 18 | 5000 command-wait 19 | !force 0 delete-buffer "*jst-tmp*" 20 | !endif 21 | delete-buffer $buffer-bname 22 | !done 23 | exit-emacs 24 | !emacro 25 | 26 | execute-file "me" 27 | execute-file "jstutl" 28 | 29 | -------------------------------------------------------------------------------- /src/macros/jst2rtf.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2002-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: JST to rich text format command-line conversion. 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Usage: 10 | ; me "@jst2rtf" 11 | ; 12 | define-macro start-up 13 | delete-other-windows 14 | !while ¬ &seq $buffer-bname "*scratch*" 15 | ; use default file name with no prompt 16 | !force 2 jst-to-rtf 17 | !if ¬ $status 18 | 5000 command-wait 19 | !force 0 delete-buffer "*jst-tmp*" 20 | !endif 21 | delete-buffer $buffer-bname 22 | !done 23 | exit-emacs 24 | !emacro 25 | 26 | execute-file "me" 27 | execute-file "jstutl" 28 | 29 | -------------------------------------------------------------------------------- /src/macros/jst2text.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2002-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: JST to Plain text command-line conversion. 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Usage: 10 | ; me "@jst2text" 11 | ; 12 | define-macro start-up 13 | delete-other-windows 14 | !while ¬ &seq $buffer-bname "*scratch*" 15 | ; use default file name with no prompt 16 | !force 2 jst-to-text 17 | !if ¬ $status 18 | 5000 command-wait 19 | !force 0 delete-buffer "*jst-tmp*" 20 | !endif 21 | delete-buffer $buffer-bname 22 | !done 23 | exit-emacs 24 | !emacro 25 | 26 | execute-file "me" 27 | execute-file "jstutl" 28 | 29 | -------------------------------------------------------------------------------- /src/macros/jstprint.erf: -------------------------------------------------------------------------------- 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 | ; 3 | ; Author : Steven Phillips 4 | ; Last Modified : <020130.2236> 5 | ; 6 | ; Description : Plain text printer driver (default). 7 | ; 8 | ; Notes 9 | ; 10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 11 | "setup" = "1" 12 | "internal" = "0" 13 | "flags" = "256" 14 | "paper-x" = "1024" 15 | "paper-y" = "50" 16 | "page-x" = "1024" 17 | "page-y" = "50" 18 | "rows" = "1" 19 | "cols" = "1" 20 | "mtop" = "0" 21 | "mbottom" = "0" 22 | "mleft" = "0" 23 | "mright" = "0" 24 | "buffer" = "*jst-tmp3*" 25 | 26 | ; Strip blanks from the end of the line. 27 | "strip" = "1" 28 | 29 | "econt" = "" 30 | "scont" = "" 31 | "xsep" = "" 32 | "hsep" = "" 33 | "vsep" = "" 34 | "wsep" = "" 35 | "eol" = "\n" 36 | "eop" = "" 37 | "sop" = "" 38 | "eof" = "" 39 | "sof" = "" 40 | 41 | "scheme-order" = "biu" 42 | "start" 43 | { 44 | "b" = "\bFB" 45 | "i" = "\bFI" 46 | "u" = "\bFU" 47 | } 48 | "end" 49 | { 50 | "b" = "\bfB" 51 | "i" = "\bfI" 52 | "u" = "\bfU" 53 | } 54 | -------------------------------------------------------------------------------- /src/macros/keyboard.emf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/macros/keyboard.emf -------------------------------------------------------------------------------- /src/macros/language.emf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/macros/language.emf -------------------------------------------------------------------------------- /src/macros/langutl.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2001-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Sat Sep 15 2001 7 | ; Synopsis: Language setup routines 8 | ; Authors: Steven Phillips 9 | ; 10 | ; Notes: 11 | ; Originally part of language.emf but broken out to keep language.emf 12 | ; clean and speed up start-up 13 | ; 14 | 0 define-macro spell-rules-init 15 | !if ¬ &exi .spell.language 16 | set-variable #l0 &spr " Language \"%s\" not supported! " ® "/history/language" "Default" 17 | osd-dialog "Spelling Checker" #l0 " \HOk " 18 | !abort 19 | !endif 20 | !force execute-file &cat "lsr" .spell.language 21 | !if ¬ $status 22 | !if @# 23 | set-variable #l0 &spr " Rules and dictionaries for language \"%s\" \n are not available, please download." ® "/history/language" "Default" 24 | osd-dialog "Spelling Checker" #l0 " \HOk " 25 | !endif 26 | !abort 27 | !endif 28 | ; Add the eXtended, Main and Personal dictionaries 29 | add-dictionary &cat "lsdx" .spell.language 30 | add-dictionary &cat "lsdm" .spell.language 31 | add-dictionary &cat "lsdp" .spell.language 32 | !emacro 33 | -------------------------------------------------------------------------------- /src/macros/latex.etf: -------------------------------------------------------------------------------- 1 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 2 | % 3 | % System : 4 | % Module : 5 | % Object Name : $RCSfile$ 6 | % Revision : $Revision$ 7 | % Date : $Date$ 8 | % Author : $Author$ 9 | % Created By : $USER_NAME$ 10 | % Created : $ASCII_TIME$ 11 | % Last Modified : <090829.1748> 12 | % 13 | % Description 14 | % 15 | % Notes 16 | % 17 | % History 18 | % 19 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 20 | % 21 | % Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | % 23 | % All Rights Reserved. 24 | % 25 | % This document may not, in whole or in part, be copied, photocopied, 26 | % reproduced, translated, or reduced to any electronic medium or machine 27 | % readable form without prior written consent from $COMPANY_NAME$. 28 | % 29 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 30 | 31 | -------------------------------------------------------------------------------- /src/macros/linux.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1998-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Setup file for Linux boxes 7 | ; Authors: Jon Green 8 | ; 9 | ; Load up common unix stuff 10 | !force exec-file "unixterm" 11 | ; no vt100-nam on linux, this may cause problems in an ishell 12 | set-variable %ipipe-term "TERM=vt100" 13 | ; 14 | ; Compile stuff 15 | 0 add-next-line "*compile*" 16 | add-next-line "*compile*" "%f:%l:" 17 | ; 18 | ; Diff stuff; LINUX uses GNU diff so set this up for all LINUX 19 | ; platforms. Nobody is going to change this are they ?? 20 | set-variable %diff-com "diff --context --minimal --ignore-space-change --recursive" 21 | 22 | -------------------------------------------------------------------------------- /src/macros/makefile.etf: -------------------------------------------------------------------------------- 1 | ##-*- makefile -*-############################################################ 2 | # 3 | # System : 4 | # Module : 5 | # Object Name : $RCSfile$ 6 | # Revision : $Revision$ 7 | # Date : $Date$ 8 | # Author : $Author$ 9 | # Created By : $USER_NAME$ 10 | # Created : $ASCII_TIME$ 11 | # Last Modified : <090829.1748> 12 | # 13 | # Description 14 | # 15 | # Notes 16 | # 17 | # History 18 | # 19 | # $Log$ 20 | # 21 | ############################################################################## 22 | # 23 | # Copyright (c) $YEAR$ $COMPANY_NAME$. 24 | # 25 | # All Rights Reserved. 26 | # 27 | # This document may not, in whole or in part, be copied, photocopied, 28 | # reproduced, translated, or reduced to any electronic medium or machine 29 | # readable form without prior written consent from $COMPANY_NAME$. 30 | # 31 | ############################################################################## 32 | 33 | 34 | -------------------------------------------------------------------------------- /src/macros/meemacs.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2004-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Sun Oct 24 12:52:06 2004 7 | ; Synopsis: MicroEmacs GNU Emacs emulation 8 | ; Authors: Jon Green, Steven Phillips, Paul Boekholt 9 | ; 10 | ; Rebind the keys according to the GNU Emacs key binding. We cannot 11 | ; reproduced all of the bindings literally (obviously otherwise MicroEmacs 12 | ; will be huge) but retain the best compatibility that we can. 13 | ; 14 | ; create wrapper macros for commands which are differently named and create 15 | ; some missing commands, see GNU Emacs docs for help on these commands. 16 | define-macro revert-buffer 17 | reread-file 18 | !emacro 19 | define-macro kill-word 20 | @# forward-kill-word 21 | !emacro 22 | define-macro next-line 23 | @# forward-line 24 | !emacro 25 | define-macro previous-line 26 | @# backward-line 27 | !emacro 28 | ; trim whitespace around point 29 | define-macro delete-horizontal-space 30 | !while &sin @wc " \t" 31 | forward-delete-char 32 | !done 33 | !force backward-char 34 | !if $status 35 | !while &sin @wc " \t" 36 | forward-delete-char 37 | backward-char 38 | !done 39 | forward-char 40 | !endif 41 | !emacro 42 | define-macro ediff 43 | @# gdiff @1 @2 @3 @4 44 | !emacro 45 | 46 | ; C-k kill-line binding should kill to the end of line only 47 | global-bind-key kill-line "C-k" 48 | 49 | ; kill words should kill the whitespace as well. 50 | 1 global-bind-key forward-kill-word "esc d" 51 | 1 global-bind-key backward-kill-word "esc backspace" 52 | 53 | global-bind-key kill-region "S-delete" 54 | global-bind-key backward-delete-char "delete" 55 | 56 | global-bind-key backward-paragraph "C-up" 57 | global-bind-key forward-paragraph "C-down" 58 | 59 | global-bind-key backward-word "A-left" 60 | global-bind-key forward-word "A-right" 61 | 62 | global-bind-key query-replace-string "esc %" 63 | global-bind-key expand-look-back "esc /" 64 | global-bind-key delete-horizontal-space "esc \\" 65 | 66 | ; help 67 | global-bind-key major-mode-help "C-h m" 68 | global-bind-key help-command "C-h f" 69 | global-bind-key info "C-h i" 70 | global-bind-key describe-variable "C-h v" 71 | -------------------------------------------------------------------------------- /src/macros/meserver.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1998-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Thu Dec 31 1998 7 | ; Synopsis: Server input handling routines. 8 | ; Authors: steven phillips 9 | ; 10 | 0 define-macro server-input 11 | goto-alpha-mark "I" 12 | !if &equ $window-line :last-line 13 | !return 14 | !endif 15 | set-variable #l0 $window-line 16 | set-variable #l1 $buffer-bname 17 | goto-line :last-line 18 | !while &gre #l0 $window-line 19 | set-variable #l5 &add $window-line 1 20 | !if &seq @wc "C" 21 | set-variable #l2 &lget &rig @wl 1 1 22 | set-variable #l3 &rig @wl &add 3 &len #l2 23 | !if ¬ &lfind :client-list #l2 24 | set-variable :client-list &lin :client-list -1 #l2 25 | set-variable &ind &spr ":%s-buffer" #l2 "" 26 | !endif 27 | popup-window "" 28 | set-variable #l4 &ind &spr ":%s-buffer" #l2 29 | !if ¬ &seq #l4 "" 30 | !force 0 find-buffer #l4 31 | !endif 32 | !force execute-line #l3 33 | set-variable #l4 $buffer-bname 34 | popup-window #l1 35 | set-variable &ind &spr ":%s-buffer" #l2 #l4 36 | !elif &seq @wc "M" 37 | set-variable #l2 &lget &rig @wl 1 1 38 | set-variable #l3 &rig @wl &add 3 &len #l2 39 | ml-write &spr "Message from client %s: %s" #l2 #l3 40 | !endif 41 | goto-line #l5 42 | !done 43 | goto-alpha-mark "I" 44 | set-variable :last-line $window-line 45 | -1 find-buffer $buffer-bname 46 | !emacro 47 | -------------------------------------------------------------------------------- /src/macros/mhg.etf: -------------------------------------------------------------------------------- 1 | // -!- mhg -!- ////////////////////////////////////////////////////////////// 2 | // 3 | // System : 4 | // Module : 5 | // Object Name : $RCSfile$ 6 | // Revision : $Revision$ 7 | // Date : $Date$ 8 | // Author : $Author$ 9 | // Created By : $USER_NAME$ 10 | // Created : $ASCII_TIME$ 11 | // Last Modified : <090829.1748> 12 | // 13 | // Description 14 | // 15 | // Notes 16 | // 17 | // History 18 | // 19 | ///////////////////////////////////////////////////////////////////////////// 20 | // 21 | // Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | // 23 | // All Rights Reserved. 24 | // 25 | // This document may not, in whole or in part, be copied, photocopied, 26 | // reproduced, translated, or reduced to any electronic medium or machine 27 | // readable form without prior written consent from $COMPANY_NAME$. 28 | // 29 | ////////////////////////////////////////////////////////////////////////////// 30 | 31 | -------------------------------------------------------------------------------- /src/macros/mod2.etf: -------------------------------------------------------------------------------- 1 | (**************************************************************************** 2 | * 3 | * System : 4 | * Module : 5 | * Object Name : $RCSfile$ 6 | * Revision : $Revision$ 7 | * Date : $Date$ 8 | * Author : $Author$ 9 | * Created By : $USER_NAME$ 10 | * Created : $ASCII_TIME$ 11 | * Last Modified : <090829.1748> 12 | * 13 | * Description 14 | * 15 | * Notes 16 | * 17 | * History 18 | * 19 | **************************************************************************** 20 | * 21 | * Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | * 23 | * All Rights Reserved. 24 | * 25 | * This document may not, in whole or in part, be copied, photocopied, 26 | * reproduced, translated, or reduced to any electronic medium or machine 27 | * readable form without prior written consent from $COMPANY_NAME$. 28 | * 29 | ****************************************************************************) 30 | 31 | MODULE $CURSOR$ 32 | -------------------------------------------------------------------------------- /src/macros/msshift.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Thu May 27 1999 7 | ; Synopsis: Implementation of MS windows shift region definition style 8 | ; Authors: Steven Phillips 9 | ; 10 | 0 define-macro msshift-pick 11 | set-variable .msshift.state 1 12 | !emacro 13 | 14 | 0 define-macro msshift-input 15 | set-variable .status "0" 16 | !if &seq @cc "abort-command" 17 | ; ensure a breakout if C-g is pressed 18 | set-variable $buffer-input &con &seq .msshift.input "msshift-input" "" .msshift.input 19 | !abort 20 | !elif &seq @cck "redraw" 21 | ; abort to tell ME to handle the actual input 22 | !abort 23 | !elif &seq @cck "callback" 24 | !abort 25 | !elif &seq @cck "idle-pick" 26 | !abort 27 | !endif 28 | ; restore the input function so this only gets called once! 29 | set-variable $buffer-input .msshift.input 30 | ; only treat delete and backspace specially 31 | !if &lfi "|backward-delete-char|forward-delete-char|kill-region|" @cc 32 | set-variable .status "1" 33 | -1 yank 34 | kill-region 35 | !return 36 | !elif &lfi "|kill-rectangle|" @cc 37 | set-variable .status "1" 38 | -1 yank 39 | execute-named-command @cc 40 | !return 41 | !elif &seq "copy-region" @cc 42 | set-variable .status "1" 43 | !return 44 | !elif &seq "yank" @cc 45 | set-variable .status "1" 46 | -1 yank 47 | -1 kill-region 48 | yank 49 | !return 50 | !elif &seq "mouse-event" @cc 51 | set-variable .mouse-event.msshift 3 52 | !elif &set #l0 &sin "mouse-pick-" @cck 53 | set-variable #l0 &spr "%s-drop-%s" &lef @cck &add #l0 4 &rig @cck &add #l0 10 54 | !if &seq "mouse-event" @cc 55 | set-variable #l1 &sin "yank" ® &cat "/history/mouse/" #l0 "" 56 | !else ¬ &set #l1 &sin "yank" @cc 57 | set-variable #l1 &sin "yank" &cbind #l0 58 | !endif 59 | !if #l1 60 | set-variable #l2 @cqk 61 | set-variable .status "1" 62 | -1 yank 63 | -1 kill-region 64 | yank 65 | !return 66 | !endif 67 | !endif 68 | ; reset the last command to the copy-region 69 | set-variable @cl copy-region 70 | !abort 71 | !emacro 72 | 73 | 0 define-macro msshift 74 | !if &equ .state 2 75 | copy-region 76 | set-variable .input $buffer-input 77 | set-variable $buffer-input msshift-input 78 | !endif 79 | set-variable .state -1 80 | !emacro 81 | 82 | 0 define-macro msshift-move 83 | !if &equ .msshift.state 1 84 | set-mark 85 | set-variable .msshift.state 2 86 | !endif 87 | set-variable #l1 &cbind &rep @cck "S-" "" 88 | set-variable @cl @cl 89 | !if @? 90 | @# execute-named-command #l1 91 | !else 92 | execute-named-command #l1 93 | !endif 94 | set-variable @cc #l1 95 | !emacro 96 | 97 | set-variable .msshift.state -1 98 | 99 | global-bind-key msshift-pick "S-pick" 100 | global-bind-key msshift "S-drop" 101 | 102 | set-variable #l0 0 103 | !while ¬ &seq "" &set #l1 &lget "|up|down|left|right|home|end|page-up|page-down|C-left|C-right|C-up|C-down|C-home|C-end|" &inc #l0 1 104 | !if ¬ &seq &cbin #l1 "ERROR" 105 | !if &seq &nbin #l1 "" 106 | global-bind-key msshift-move &cat "S-" #l1 107 | !else 108 | &nbin #l1 global-bind-key msshift-move &cat "S-" #l1 109 | !endif 110 | !endif 111 | !done 112 | -------------------------------------------------------------------------------- /src/macros/narrow.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2004-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Thu Feb 5 2004 7 | ; Synopsis: Narrow macros 8 | ; Authors: Steven Phillips 9 | ; 10 | ; narrow-search-forward - search forward from the current point for a given 11 | ; string, search through all narrowed text as well. Command should behave in 12 | ; an identical fashion to the main search-forward command (numeric argument 13 | ; etc) except for its ability to search through narrowed out text. 14 | ; 15 | ; Utilizes a feature of MEs undo which restores narrows, the command 'edits' 16 | ; the current buffer, expands all narrows, searches for string - if found 17 | ; stores location, then undoes initial 'edit' thereby restoring the narrows. 18 | ; If the string was found it returns to the location but setting the 19 | ; absolution line number which will expand a narrow containing the line 20 | define-macro narrow-search-forward 21 | !force set-variable #l0 @1 22 | !if ¬ $status 23 | set-variable #l0 @ml15 "NSearch" @h4 0 24 | !endif 25 | !if ¬ &bmod "narrow" 26 | @# search-forward #l0 @nma 27 | !return 28 | !endif 29 | set-variable #l1 &bmod "view" 30 | set-variable #l2 &bmod "edit" 31 | set-variable #l3 &bmod "undo" 32 | -1 buffer-mode view 33 | 1 buffer-mode undo 34 | insert-string "" 35 | 1 narrow-buffer 36 | !force !force search-forward #l0 @nma 37 | !if &set #l4 $status 38 | -2 show-region 39 | set-variable #l5 $window-aline 40 | set-variable #l6 $window-col 41 | !endif 42 | undo 43 | &cond #l3 1 -1 buffer-mode "undo" 44 | &cond #l2 1 -1 buffer-mode "edit" 45 | &cond #l1 1 -1 buffer-mode "view" 46 | !if #l4 47 | set-variable $window-aline #l5 48 | set-variable $window-col #l6 49 | !force !force -1 search-forward #l0 @nma 50 | !return 51 | !endif 52 | ml-write "[Not Found]" 53 | !bell 54 | !abort 55 | !emacro 56 | 57 | ; narrow-search-backward - as with narrow-search-forward, see above. 58 | define-macro narrow-search-backward 59 | !force set-variable #l0 @1 60 | !if ¬ $status 61 | set-variable #l0 @ml15 "Reverse NSearch" @h4 0 62 | !endif 63 | !if ¬ &bmod "narrow" 64 | @# search-backward #l0 @nma 65 | !return 66 | !endif 67 | set-variable #l1 &bmod "view" 68 | set-variable #l2 &bmod "edit" 69 | set-variable #l3 &bmod "undo" 70 | -1 buffer-mode view 71 | 1 buffer-mode undo 72 | insert-string "" 73 | 1 narrow-buffer 74 | !force !force search-backward #l0 @nma 75 | !if &set #l4 $status 76 | 2 show-region 77 | set-variable #l5 $window-aline 78 | set-variable #l6 $window-col 79 | !endif 80 | undo 81 | &cond #l3 1 -1 buffer-mode "undo" 82 | &cond #l2 1 -1 buffer-mode "edit" 83 | &cond #l1 1 -1 buffer-mode "view" 84 | !if #l4 85 | set-variable $window-aline #l5 86 | set-variable $window-col #l6 87 | !force !force -1 search-backward #l0 @nma 88 | !return 89 | !endif 90 | ml-write "[Not Found]" 91 | !bell 92 | !abort 93 | !emacro 94 | -------------------------------------------------------------------------------- /src/macros/newcomp.etf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Add your company macros and definitions to this file. 7 | ; This is usually called ".emf". 8 | ; 9 | -------------------------------------------------------------------------------- /src/macros/newuser.erf: -------------------------------------------------------------------------------- 1 | ;-!- erf -!- 2 | "aix" { 3 | "ext-char-set" = "1" 4 | "file-ignore" = "~ ./" 5 | "scheme" = "schemebc" 6 | "scroll-bar" = "0x1be" 7 | } 8 | "cygwin" { 9 | "ext-char-set" = "1" 10 | "file-ignore" = "~ ./" 11 | "scheme" = "schemebc" 12 | "scroll-bar" = "0x1be" 13 | } 14 | "cygwinc" { 15 | "scheme" = "schemetb" 16 | "system" = "30869" 17 | } 18 | "darwin" { 19 | "ext-char-set" = "1" 20 | "file-ignore" = "~ ./" 21 | "scheme" = "schemebc" 22 | "scroll-bar" = "0x1be" 23 | } 24 | "dos" { 25 | "blink" = "13107800" 26 | "char-set" = "PC-437" 27 | "file-ignore" = "~ ./" 28 | "scroll-bar" = "0x1be" 29 | } 30 | "exact" = "0" 31 | "file-mask" = "\CH*.c,*.cc,*.cpp\CH*.h,*.hpp,*.def\CHImakefile,Makefile*\CH*.txt,*.doc,*.log\CH*.emf,*.eaf,*.erf,*.etf,*.ehf\CH*.bat,*.sys,*.sh,*.csh,*shrc,.login\CH*.tk,*.tcl\CH*.[0-9],*.tni\CH" 32 | "file-type" = "\CHC/C++ Source\CHC/C++ Header\CHMakefile\CHText file\CHEmacs File\CHShell Script\CHTK/TCL\CHNroff file\CH" 33 | "freebsd" { 34 | "ext-char-set" = "1" 35 | "file-ignore" = "~ ./" 36 | "scheme" = "schemebc" 37 | "scroll-bar" = "0x1be" 38 | } 39 | "hpux" { 40 | "ext-char-set" = "1" 41 | "file-ignore" = "~ ./" 42 | "scheme" = "schemebc" 43 | "scroll-bar" = "0x1be" 44 | } 45 | "irix" { 46 | "ext-char-set" = "1" 47 | "file-ignore" = "~ ./" 48 | "scheme" = "schemebc" 49 | "scroll-bar" = "0x1be" 50 | } 51 | "linux" { 52 | "ext-char-set" = "1" 53 | "file-ignore" = "~ ./" 54 | "scheme" = "schemebc" 55 | "scroll-bar" = "0x1be" 56 | } 57 | "mouse" { 58 | "C-mouse-drop-1" = "mouse-osd-multi" 59 | "C-mouse-pick-1" 60 | "mouse-auto-1" = "1" 61 | "mouse-drop-1" = "mouse-drop-type1" 62 | "mouse-drop-2" = "mouse-move-yank" 63 | "mouse-drop-3" = "mouse-osd-multi" 64 | "mouse-pick-1" = "mouse-pick-type1" 65 | "mouse-pick-2" 66 | "mouse-pick-3" 67 | "mouse-wdown" = "5 mouse-wdown-scroll" 68 | "mouse-wup" = "5 mouse-wup-scroll" 69 | } 70 | "openbsd" { 71 | "ext-char-set" = "1" 72 | "file-ignore" = "~ ./" 73 | "scheme" = "schemebc" 74 | "scroll-bar" = "0x1be" 75 | } 76 | "osf1" { 77 | "ext-char-set" = "1" 78 | "file-ignore" = "~ ./" 79 | "scheme" = "schemebc" 80 | "scroll-bar" = "0x1be" 81 | } 82 | "sunos" { 83 | "ext-char-set" = "1" 84 | "file-ignore" = "~ ./" 85 | "scheme" = "schemebc" 86 | "scroll-bar" = "0x1be" 87 | } 88 | "win32" { 89 | "blink" = "13107800" 90 | "char-set" = "Win-ANSI" 91 | "ext-char-set" = "1" 92 | "file-ignore" = "~ ./" 93 | "scheme" = "schemebc" 94 | "scroll-bar" = "0x1be" 95 | } 96 | "win32c" { 97 | "blink" = "13107800" 98 | "char-set" = "Win-OEM" 99 | "file-ignore" = "~ ./" 100 | "scroll-bar" = "0x1be" 101 | } 102 | "zaurus" { 103 | "ext-char-set" = "1" 104 | "file-ignore" = "~ ./" 105 | "scheme" = "schemebc" 106 | "scroll-bar" = "0x1be" 107 | } 108 | -------------------------------------------------------------------------------- /src/macros/newuser.etf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2004-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Example User template 7 | ; Authors: Steven Phillips & Jon Green 8 | ; 9 | 10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 11 | ; The default key binding for Home/End is the beginning and end 12 | ; of the file. Remove comments to change the default binding to the 13 | ; end of the line ? Alternatively enable MS Friendly Keys in user-setup 14 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 15 | ;global-bind-key beginning-of-line "home" 16 | ;global-bind-key end-of-line "end" 17 | 18 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 19 | ; The command completion is the character, if you require Ksh type 20 | ; completion using then uncomment the following line. will 21 | ; still be valid. 22 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 23 | ;ml-bind-key tab "esc esc" 24 | 25 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 26 | ; Change the home directory on Windows and DOS. 27 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 28 | ;!if &or &seq $platform "dos" &seq $platform "win32" 29 | ; set-variable $home "c:/" 30 | ;!endif 31 | 32 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 33 | ; 'C' is the default language for .h files if you would like the default 34 | ; to be C++ then uncomment the following lines. If you also want .c files 35 | ; to be C++ then add a .c extension to the string. 36 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 37 | ;add-file-hook ".h .def" fhook-cpp 38 | -------------------------------------------------------------------------------- /src/macros/nroff.etf: -------------------------------------------------------------------------------- 1 | .\"*-*- nroff -*-************************************************************* 2 | .\" 3 | .\" System : 4 | .\" Module : 5 | .\" Object Name : $RCSfile$ 6 | .\" Revision : $Revision$ 7 | .\" Date : $Date$ 8 | .\" Author : $Author$ 9 | .\" Created By : $USER_NAME$ 10 | .\" Created : $ASCII_TIME$ 11 | .\" Last Modified : <041022.1605> 12 | .\" 13 | .\" Description 14 | .\" 15 | .\" Notes 16 | .\" 17 | .\" History 18 | .\" 19 | .\"*************************************************************************** 20 | .\" 21 | .\" Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | .\" 23 | .\" All Rights Reserved. 24 | .\" 25 | .\" This document may not, in whole or in part, be copied, photocopied, 26 | .\" reproduced, translated, or reduced to any electronic medium or machine 27 | .\" readable form without prior written consent from $COMPANY_NAME$. 28 | .\" 29 | .\"*************************************************************************** 30 | .\" 31 | -------------------------------------------------------------------------------- /src/macros/null: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/macros/null -------------------------------------------------------------------------------- /src/macros/openbsd.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: setup file for OpenBSD boxes 7 | ; Authors: Jon Green 8 | ; 9 | ; Load up common unix stuff 10 | !force exec-file "unixterm" 11 | ; 12 | ; Compile stuff 13 | 0 add-next-line "*compile*" 14 | add-next-line "*compile*" "%f:%l:" 15 | ; 16 | ; Diff stuff; FreeBSD uses GNU diff so set this up for all 17 | ; platforms. Nobody is going to change this are they ?? 18 | set-variable %diff-com "diff --context --minimal --ignore-space-change --recursive" 19 | -------------------------------------------------------------------------------- /src/macros/openstep.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2000-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Sat Feb 5 2000 7 | ; Synopsis: Setup file for NeXT Openstep boxes 8 | ; Authors: Jon Green 9 | ; 10 | ; Load up common unix stuff 11 | !force exec-file "unixterm" 12 | ; no vt100-nam on openstep. 13 | set-variable %ipipe-term "TERM=vt100" 14 | ; 15 | ; Compile stuff 16 | 0 add-next-line "*compile*" 17 | add-next-line "*compile*" "%f:%l:" 18 | ; 19 | ; Diff stuff; Openstep uses GNU diff so set this up for all Openstep 20 | ; platforms. Nobody is going to change this are they ?? 21 | set-variable %diff-com "diff --context --minimal --ignore-space-change --recursive" 22 | -------------------------------------------------------------------------------- /src/macros/osf1.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Setup file for OSF1 boxes 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Load up common unix stuff 10 | !force exec-file "unixterm" 11 | ; 12 | ; Compile stuff 13 | 0 add-next-line "*compile*" 14 | add-next-line "*compile*" "%f:%l:" 15 | ; 16 | ; Diff stuff; FreeBSD uses GNU diff so set this up for all 17 | ; platforms. Nobody is going to change this are they ?? 18 | set-variable %diff-com "diff --context --minimal --ignore-space-change --recursive" 19 | -------------------------------------------------------------------------------- /src/macros/pascal.eaf: -------------------------------------------------------------------------------- 1 | be "begin\r\T\p\rend;\P" 2 | ca "case \p of\rend;\P" 3 | el "else\rbegin\r\T\p\rend;\P" 4 | fo "for \p to do\rbegin\rend;\P" 5 | fu "function \p ( );\rbegin\rend;\P" 6 | if "if \p then\rbegin\rend;\P" 7 | pr "procedure \p ( );\rbegin\rend;\P" 8 | re "repeat\r\T\p\runtil ;\P" 9 | wh "while \p do\rbegin\rend;\P" 10 | wi "with \p do\rbegin\rend;\P" 11 | wr "writeln (\p);\P" 12 | -------------------------------------------------------------------------------- /src/macros/pascal.etf: -------------------------------------------------------------------------------- 1 | {**************************************************************************** 2 | * 3 | * System : 4 | * Module : 5 | * Object Name : $RCSfile$ 6 | * Revision : $Revision$ 7 | * Date : $Date$ 8 | * Author : $Author$ 9 | * Created By : $USER_NAME$ 10 | * Created : $ASCII_TIME$ 11 | * Last Modified : <090829.1749> 12 | * 13 | * Description 14 | * 15 | * Notes 16 | * 17 | * History 18 | * 19 | **************************************************************************** 20 | * 21 | * Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | * 23 | * All Rights Reserved. 24 | * 25 | * This document may not, in whole or in part, be copied, photocopied, 26 | * reproduced, translated, or reduced to any electronic medium or machine 27 | * readable form without prior written consent from $COMPANY_NAME$. 28 | * 29 | ****************************************************************************} 30 | 31 | begin 32 | end. 33 | -------------------------------------------------------------------------------- /src/macros/perl.etf: -------------------------------------------------------------------------------- 1 | # -*- perl -*- ############################################################### 2 | # 3 | # System : 4 | # Module : 5 | # Object Name : $RCSfile:$ 6 | # Revision : $Revision:$ 7 | # Date : $Date:$ 8 | # Author : $Author:$ 9 | # Created By : $USER_NAME$ 10 | # Created : $ASCII_TIME$ 11 | # Last Modified : <090829.1749> 12 | # 13 | # Description 14 | # 15 | # Notes 16 | # 17 | # History 18 | # 19 | ############################################################################## 20 | # 21 | # Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | # 23 | # All Rights Reserved. 24 | # 25 | # This document may not, in whole or in part, be copied, photocopied, 26 | # reproduced, translated, or reduced to any electronic medium or machine 27 | # readable form without prior written consent from $COMPANY_NAME$. 28 | # 29 | ############################################################################## 30 | 31 | -------------------------------------------------------------------------------- /src/macros/php.eaf: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /src/macros/pls.eaf: -------------------------------------------------------------------------------- 1 | if "if \p then\r\T\rend if;\P" 2 | el "else" 3 | els "elsif \p then\P" 4 | be "begin\r\T\p\rend;\P" 5 | ca "case \p\r\Twhen then ;\rend case;\P" 6 | wh "when \p then ;\P" 7 | lo "loop\r\T\p\rend loop;\P" 8 | wh "while \p loop\rend loop;\P" 9 | fo "for \p in loop\rend loop;\P" 10 | pr "procedure \p is\rbegin\rend;\P" 11 | -------------------------------------------------------------------------------- /src/macros/pls.etf: -------------------------------------------------------------------------------- 1 | /* -*- pls -*- ************************************************************** 2 | * 3 | * System : 4 | * Module : 5 | * Object Name : $RCSfile$ 6 | * Revision : $Revision$ 7 | * Date : $Date$ 8 | * Author : $Author$ 9 | * Created By : $USER_NAME$ 10 | * Created : $ASCII_TIME$ 11 | * Last Modified : <090829.1749> 12 | * 13 | * Description 14 | * 15 | * Notes 16 | * 17 | * History 18 | * 19 | **************************************************************************** 20 | * 21 | * Copyright (c) $YEAR$ $COMPANY_NAME$. 22 | * 23 | * All Rights Reserved. 24 | * 25 | * This document may not, in whole or in part, be copied, photocopied, 26 | * reproduced, translated, or reduced to any electronic medium or machine 27 | * readable form without prior written consent from $COMPANY_NAME$. 28 | * 29 | ****************************************************************************/ 30 | 31 | 32 | 33 | 34 | -------------------------------------------------------------------------------- /src/macros/print.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2000-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Mon May 22 2000 7 | ; Synopsis: Printer setup macro file - invoked when print command is executed. 8 | ; Authors: Steven Phillips 9 | ; 10 | !if ¬ ® "/print/setup" "0" 11 | ;500 ml-write "[Setting up the printer]" 12 | ; get the current print scheme 13 | set-variable #l9 ® "/print/scheme" "" 14 | 15 | ; get the user configuration 16 | !if &seq ® "/print-history" "" "" 17 | ; not yet loaded, search for a myprint.erf first 18 | ;500 ml-write "[Loading myprint.erf]" 19 | !force read-registry "print-history" &find "myprint" ".erf" "ab" 20 | !if ¬ $status 21 | ; not found so try the default print.erf 22 | ;500 ml-write "[Loading print.erf]" 23 | !force read-registry "print-history" &find "print" ".erf" "b" 24 | !if ¬ $status 25 | ml-write "[Failed to find \"print.erf\"]" 26 | !return 27 | !endif 28 | !endif 29 | !endif 30 | 31 | ; load the driver - check this isn't the current one first 32 | set-variable #l0 ® &spr "/print-history/%s/driver" $platform "printd" 33 | !if ¬ &seq ® "/print" "" #l0 34 | ;500 ml-write &spr "[Loading %s.erf]" #l0 35 | ; read the new driver 36 | !force read-registry "print" &find #l0 ".erf" "r" 37 | !if ¬ $status 38 | ml-write &spr "[Failed to find print driver \"%s.erf\"]" #l0 39 | !return 40 | !endif 41 | !endif 42 | 43 | ; overlay the driver layout over /print 44 | set-variable #l1 &spr "%s/%s" ® &spr "/print-history/%s/page-size" $platform "" ® &spr "/print-history/%s/char-size" $platform "" 45 | !if ¬ &seq ® "/print/layout" "" #l1 46 | ;500 ml-write &spr "[Overlaying layout %s]" #l1 47 | !force copy-registry &cat "/print/layout/" #l1 "/print" 48 | !if ¬ $status 49 | ml-write &spr "[Failed to find page layout \"%s\"]" #l1 50 | !return 51 | !endif 52 | set-registry "/print/layout" #l1 53 | !endif 54 | 55 | ;500 ml-write &spr "[Overlaying print-history]" 56 | set-registry "/print/header" ® "/print-history/header" "" 57 | set-registry "/print/footer" ® "/print-history/footer" "" 58 | copy-registry &cat "/print-history/" $platform "/print" 59 | ; remove the file flag so /print is not written 60 | mark-registry "/print" "F" 61 | 62 | ; load the print scheme 63 | !if ¬ &seq &set #l1 ® "/print/scheme" "printd" #l9 64 | ;500 ml-write &spr "[Loading print scheme %s]" #l1 65 | !force exec-file #l1 66 | !endif 67 | 68 | ; set /print and /print/setup to reflect this config 69 | set-registry "/print" #l0 70 | set-registry "/print/setup" 1 71 | !endif 72 | 73 | 74 | -------------------------------------------------------------------------------- /src/macros/print.erf: -------------------------------------------------------------------------------- 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 | ; 3 | ; Author : Steven Phillips 4 | ; Last Modified : <040202.1224> 5 | ; 6 | ; Description : Default user printer configuration file. 7 | ; 8 | ; Notes : None of the platforms are fully defined (keeps the file 9 | ; small) so print-setup must be run first. 10 | ; 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 12 | 13 | ; Header & footer - common 14 | "header" = "Page %n. Date: %D/%M/%Y %h:%m:%s File: %f\n" 15 | "footer" = "\nPage %n" 16 | 17 | ; platform depenent printer setup 18 | "dos" 19 | { 20 | "command-line" = "copy %f prn" 21 | } 22 | "freebsd" 23 | { 24 | "command-line" = "lp -s %f" 25 | } 26 | "hpux" 27 | { 28 | "command-line" = "lp -s %f" 29 | } 30 | "irix" 31 | { 32 | "command-line" = "lpr -s %f" 33 | } 34 | "linux" 35 | { 36 | "command-line" = "lp -s %f" 37 | } 38 | "openbsd" 39 | { 40 | "command-line" = "lp -s %f" 41 | } 42 | "osf1" 43 | { 44 | "command-line" = "lp -s %f" 45 | } 46 | "sunos" 47 | { 48 | "command-line" = "lpr -s %f" 49 | } 50 | "zaurus" 51 | { 52 | "command-line" = "lp -s %f" 53 | } 54 | "win32" 55 | { 56 | "command-line" = "copy %f prn" 57 | } 58 | -------------------------------------------------------------------------------- /src/macros/printall.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 1997-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Synopsis: Print all loaded buffers 7 | ; Authors: Steven Phillips 8 | ; 9 | ; Usage: 10 | ; me "@printall" 11 | ; 12 | execute-file "me" 13 | execute-file "print" 14 | 15 | define-macro print-all-buffers 16 | !force delete-buffer "*scratch*" 17 | delete-other-windows 18 | !while ¬ &seq $buffer-bname "*scratch*" 19 | print-buffer 20 | delete-buffer $buffer-bname 21 | !done 22 | !emacro 23 | 24 | define-macro start-up 25 | print-all-buffers 26 | quick-exit 27 | !emacro 28 | 29 | 30 | -------------------------------------------------------------------------------- /src/macros/printd.emf: -------------------------------------------------------------------------------- 1 | ; Generated printer scheme file for JASSPA MicroEmacs 2 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 3 | ; See the file me.emf for copying and conditions. 4 | ; Description: Default Plain Text 5 | set-registry "/print/scheme-flags" 0 6 | ; Create the colors first 7 | 0 print-color 8 | print-color 0 0 0 0 9 | print-color 1 255 255 255 10 | ; Create the printer schemes 11 | 0 print-scheme 12 | ; Standard 13 | print-scheme $global-scheme 0 1 0 14 | print-scheme $ml-scheme 0 1 0 15 | print-scheme $mode-line-scheme 0 1 0 16 | print-scheme $scroll-bar-scheme 0 1 0 17 | print-scheme $trunc-scheme 0 1 0 18 | print-scheme .scheme.no1 0 1 0 19 | print-scheme .scheme.no2 0 1 0 20 | ; OSD 21 | print-scheme $osd-scheme 0 1 0 22 | print-scheme .scheme.osd-entry 0 1 0 23 | print-scheme .scheme.osd-ebtt 0 1 0 24 | print-scheme .scheme.osd-dbtt 0 1 0 25 | print-scheme .scheme.osd-title 0 1 0 26 | print-scheme .scheme.osd-child 0 1 0 27 | print-scheme .scheme.osd-sbar 0 1 0 28 | ; Programming Langs 29 | print-scheme .scheme.prepro 0 1 0 30 | print-scheme .scheme.function 0 1 0 31 | print-scheme .scheme.keyword 0 1 0 32 | print-scheme .scheme.type 0 1 0 33 | print-scheme .scheme.operator 0 1 0 34 | print-scheme .scheme.variable 0 1 0 35 | print-scheme .scheme.constant 0 1 0 36 | print-scheme .scheme.comment 0 1 0 37 | print-scheme .scheme.string 0 1 0 38 | print-scheme .scheme.quote 0 1 0 39 | print-scheme .scheme.error 0 1 0 40 | ; Formatted Text 41 | print-scheme .scheme.header 0 1 0 42 | print-scheme .scheme.link 0 1 0 43 | print-scheme .scheme.bold 0 1 0 44 | print-scheme .scheme.italic 0 1 0 45 | print-scheme .scheme.under 0 1 0 46 | print-scheme .scheme.bold-italic 0 1 0 47 | print-scheme .scheme.bold-under 0 1 0 48 | print-scheme .scheme.italic-under 0 1 0 49 | print-scheme .scheme.bold-italic-under 0 1 0 50 | print-scheme .scheme.spell-error 0 1 0 51 | ; Directory Listings 52 | print-scheme .scheme.file 0 1 0 53 | print-scheme .scheme.select 0 1 0 54 | print-scheme .scheme.dir 0 1 0 55 | print-scheme .scheme.dir-select 0 1 0 56 | print-scheme .scheme.dir-slink 0 1 0 57 | print-scheme .scheme.dir-tree 0 1 0 58 | print-scheme .scheme.dir-open 0 1 0 59 | print-scheme .scheme.dir-closed 0 1 0 60 | print-scheme .scheme.dir-uknown 0 1 0 61 | ; Line Schemes 62 | print-scheme .scheme.hide 0 1 0 63 | print-scheme .scheme.fold-close 0 1 0 64 | print-scheme .scheme.fold-open 0 1 0 65 | print-scheme .scheme.trace 0 1 0 66 | print-scheme .scheme.hlwhite 0 1 0 67 | print-scheme .scheme.hlblack 0 1 0 68 | print-scheme .scheme.hlred 0 1 0 69 | print-scheme .scheme.hlgreen 0 1 0 70 | print-scheme .scheme.hlyellow 0 1 0 71 | print-scheme .scheme.hlblue 0 1 0 72 | print-scheme .scheme.hlmagenta 0 1 0 73 | print-scheme .scheme.hlcyan 0 1 0 74 | ; Graphical Diff 75 | print-scheme .scheme.gdfchange 0 1 0 76 | print-scheme .scheme.gdfadd 0 1 0 77 | print-scheme .scheme.gdfpad 0 1 0 78 | print-scheme .scheme.gdfsel 0 1 0 79 | print-scheme .scheme.gdfselpad 0 1 0 80 | print-scheme .scheme.gdfrej 0 1 0 81 | print-scheme .scheme.gdfrejpad 0 1 0 82 | ; Games 83 | print-scheme .scheme.cardback 0 1 0 84 | print-scheme .scheme.cardfore 0 1 0 85 | print-scheme .scheme.mjg1 0 1 0 86 | print-scheme .scheme.mjg2 0 1 0 87 | print-scheme .scheme.mi1 0 1 0 88 | print-scheme .scheme.mi2 0 1 0 89 | print-scheme .scheme.mi3 0 1 0 90 | print-scheme .scheme.met-back 0 1 0 91 | print-scheme .scheme.met-fore1 0 1 0 92 | print-scheme .scheme.met-fore2 0 1 0 93 | 94 | -------------------------------------------------------------------------------- /src/macros/printd.erf: -------------------------------------------------------------------------------- 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 | ; 3 | ; Author : Steven Phillips 4 | ; Last Modified : <000529.1419> 5 | ; 6 | ; Description : Plain text printer driver (default). 7 | ; 8 | ; Notes 9 | ; 10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 11 | "internal" = "0" 12 | ; Separator characters 13 | "scont" = ">" ;; Print start continuation character 14 | "econt" = "\\" ;; Print continuation character. 15 | "xsep" = "-+-" ;; Horizontal/vertical separator intersection. 16 | "hsep" = "-" ;; Horizontal separator sting - one character. 17 | "vsep" = " | " ;; Vertical separator string 18 | "wsep" = "3" ;; The vertical separator width is 3 characters 19 | 20 | ; Strip blanks from the end of the line. 21 | "strip" = "1" 22 | 23 | "eol" = "\n" 24 | "eop" = "" 25 | "sop" = "" 26 | "eof" = "" 27 | "sof" = "" 28 | 29 | "layout" 30 | { 31 | "Default" 32 | { 33 | "Default" 34 | { 35 | "paper-x" = "80" 36 | "paper-y" = "66" 37 | } 38 | " 80x66" 39 | { 40 | "paper-x" = "80" 41 | "paper-y" = "66" 42 | } 43 | "160x134" 44 | { 45 | "paper-x" = "160" 46 | "paper-y" = "134" 47 | } 48 | } 49 | } 50 | -------------------------------------------------------------------------------- /src/macros/printepc.emf: -------------------------------------------------------------------------------- 1 | ; Generated printer scheme file for JASSPA MicroEmacs 2 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 3 | ; See the file me.emf for copying and conditions. 4 | ; Description: Epson ESC/P Color 5 | set-registry "/print/scheme-flags" 3 6 | ; Create the colors first 7 | 0 print-color 8 | print-color 0 0 0 0 9 | print-color 1 255 0 255 10 | print-color 2 0 255 255 11 | print-color 3 155 155 255 12 | print-color 4 255 255 0 13 | print-color 5 255 0 0 14 | print-color 6 0 255 0 15 | print-color 7 255 255 255 16 | ; Create the printer schemes 17 | 0 print-scheme 18 | ; Standard 19 | print-scheme $global-scheme 0 7 0 20 | print-scheme $ml-scheme 0 7 0 21 | print-scheme $mode-line-scheme 0 7 0 22 | print-scheme $scroll-bar-scheme 0 7 0 23 | print-scheme $trunc-scheme 0 7 0 24 | print-scheme .scheme.no1 0 7 1 25 | print-scheme .scheme.no2 0 7 1 26 | ; OSD 27 | print-scheme $osd-scheme 0 7 0 28 | print-scheme .scheme.osd-entry 0 7 0 29 | print-scheme .scheme.osd-ebtt 0 7 0 30 | print-scheme .scheme.osd-dbtt 0 7 0 31 | print-scheme .scheme.osd-title 0 7 0 32 | print-scheme .scheme.osd-child 0 7 0 33 | print-scheme .scheme.osd-sbar 0 7 0 34 | ; Programming Langs 35 | print-scheme .scheme.prepro 4 7 0 36 | print-scheme .scheme.function 2 7 17 37 | print-scheme .scheme.keyword 2 7 0 38 | print-scheme .scheme.type 6 7 0 39 | print-scheme .scheme.operator 4 7 0 40 | print-scheme .scheme.variable 6 7 0 41 | print-scheme .scheme.constant 0 7 0 42 | print-scheme .scheme.comment 5 7 2 43 | print-scheme .scheme.string 1 7 0 44 | print-scheme .scheme.quote 1 7 0 45 | print-scheme .scheme.error 5 7 1 46 | ; Formatted Text 47 | print-scheme .scheme.header 0 7 17 48 | print-scheme .scheme.link 0 7 3 49 | print-scheme .scheme.bold 0 7 1 50 | print-scheme .scheme.italic 0 7 2 51 | print-scheme .scheme.under 0 7 16 52 | print-scheme .scheme.bold-italic 0 7 3 53 | print-scheme .scheme.bold-under 0 7 17 54 | print-scheme .scheme.italic-under 0 7 18 55 | print-scheme .scheme.bold-italic-under 0 7 19 56 | print-scheme .scheme.spell-error 0 7 0 57 | ; Directory Listings 58 | print-scheme .scheme.file 0 7 1 59 | print-scheme .scheme.select 0 7 0 60 | print-scheme .scheme.dir 0 7 0 61 | print-scheme .scheme.dir-select 0 7 0 62 | print-scheme .scheme.dir-slink 0 7 1 63 | print-scheme .scheme.dir-tree 0 7 0 64 | print-scheme .scheme.dir-open 0 7 0 65 | print-scheme .scheme.dir-closed 0 7 0 66 | print-scheme .scheme.dir-uknown 0 7 0 67 | ; Line Schemes 68 | print-scheme .scheme.hide 0 7 0 69 | print-scheme .scheme.fold-close 0 7 0 70 | print-scheme .scheme.fold-open 0 7 0 71 | print-scheme .scheme.trace 0 7 0 72 | print-scheme .scheme.hlwhite 0 7 0 73 | print-scheme .scheme.hlblack 0 7 0 74 | print-scheme .scheme.hlred 0 7 0 75 | print-scheme .scheme.hlgreen 0 7 0 76 | print-scheme .scheme.hlyellow 0 7 0 77 | print-scheme .scheme.hlblue 0 7 0 78 | print-scheme .scheme.hlmagenta 0 7 0 79 | print-scheme .scheme.hlcyan 0 7 0 80 | ; Graphical Diff 81 | print-scheme .scheme.gdfchange 0 7 0 82 | print-scheme .scheme.gdfadd 0 7 0 83 | print-scheme .scheme.gdfpad 0 7 0 84 | print-scheme .scheme.gdfsel 0 7 0 85 | print-scheme .scheme.gdfselpad 0 7 0 86 | print-scheme .scheme.gdfrej 0 7 0 87 | print-scheme .scheme.gdfrejpad 0 7 0 88 | ; Games 89 | print-scheme .scheme.cardback 0 7 0 90 | print-scheme .scheme.cardfore 0 7 0 91 | print-scheme .scheme.mjg1 0 7 0 92 | print-scheme .scheme.mjg2 0 7 0 93 | print-scheme .scheme.mi1 0 7 0 94 | print-scheme .scheme.mi2 0 7 0 95 | print-scheme .scheme.mi3 0 7 0 96 | print-scheme .scheme.met-back 0 7 0 97 | print-scheme .scheme.met-fore1 0 7 0 98 | print-scheme .scheme.met-fore2 0 7 0 99 | 100 | -------------------------------------------------------------------------------- /src/macros/printeps.erf: -------------------------------------------------------------------------------- 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 | ; 3 | ; Author : Steven Phillips 4 | ; Last Modified : <000529.1430> 5 | ; 6 | ; Description : Epson Stylus printer driver (default). 7 | ; 8 | ; Notes 9 | ; 10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 11 | "internal" = "0" 12 | ; Separator characters 13 | "econt" = "\\" ;; Print continuation character. 14 | "scont" = ">" ;; Print start continuation character 15 | "xsep" = "-+-" ;; Horizontal/vertical separator intersection. 16 | "hsep" = "-" ;; Horizontal separator sting - one character. 17 | "vsep" = " | " ;; Vertical separator string 18 | "wsep" = "3" ;; The vertical separator width is 3 characters 19 | 20 | ; Strip blanks from the end of the line. 21 | "strip" = "1" 22 | 23 | "eof" = "\e@" 24 | "eop" = "" 25 | "eop" = "\f" 26 | "eol" = "\r\n" 27 | 28 | "scheme-order" = "Fbiu" 29 | "start" 30 | { 31 | "F" = "\er%p1%d" 32 | "b" = "\eE" 33 | "i" = "\e4" 34 | "u" = "\e(-11" 35 | } 36 | "end" 37 | { 38 | "b" = "\eF" 39 | "i" = "\e5" 40 | "u" = "\e(-10" 41 | } 42 | "layout" 43 | { 44 | "A4 Portrait" 45 | { 46 | " 80x66" 47 | { 48 | "paper-x" = "80" 49 | "paper-y" = "66" 50 | "sof" = "\e@\el0" 51 | } 52 | "192x134" 53 | { 54 | "paper-x" = "192" 55 | "paper-y" = "134" 56 | "sof" = "\e@\el0\eX\x0f\x0c\x00" 57 | } 58 | } 59 | } 60 | -------------------------------------------------------------------------------- /src/macros/printers.emf: -------------------------------------------------------------------------------- 1 | ; -!- emf -!- 2 | ; This is part of the JASSPA MicroEmacs macro files 3 | ; Copyright (C) 2000-2009 JASSPA (www.jasspa.com) 4 | ; See the file me.emf for copying and conditions. 5 | ; 6 | ; Created: Tue May 23 2000 7 | ; Synopsis: List of printer drivers and schemes 8 | ; Authors: Steven Phillips 9 | ; 10 | ; Setup the Print drivers 11 | set-variable .print-setup.driver-names "|Default Plain Text|HTML|Windows|HP Deskjet|HP Laserjet 4v|Epson Stylus|" 12 | set-variable .print-setup.driver-files "|printd|printhtm|printwdw|printhpd|printhpl|printeps|" 13 | ; Setup the Print Schemes 14 | set-variable .print-setup.scheme-names "|Default Plain Text|Use fonts|Epson ESC/P Color|" 15 | set-variable .print-setup.scheme-files "|printd|printf|printepc|" 16 | 17 | -------------------------------------------------------------------------------- /src/macros/printf.emf: -------------------------------------------------------------------------------- 1 | ; Generated printer scheme file for JASSPA MicroEmacs 2 | ; Copyright (C) 1999-2009 JASSPA (www.jasspa.com) 3 | ; See the file me.emf for copying and conditions. 4 | ; Description: Use fonts 5 | set-registry "/print/scheme-flags" 1 6 | ; Create the colors first 7 | print-color 0 0 0 0 8 | print-color 1 255 255 255 9 | ; Create the printer schemes 10 | 0 print-scheme 11 | print-scheme $global-scheme 0 1 0 12 | print-scheme $ml-scheme 0 1 0 13 | print-scheme $mode-line-scheme 0 1 0 14 | print-scheme $scroll-bar-scheme 0 1 0 15 | print-scheme $trunc-scheme 0 1 0 16 | print-scheme .scheme.no1 0 1 1 17 | print-scheme .scheme.no2 0 1 1 18 | ; OSD 19 | print-scheme $osd-scheme 0 1 0 20 | print-scheme .scheme.osd-entry 0 1 0 21 | print-scheme .scheme.osd-ebtt 0 1 0 22 | print-scheme .scheme.osd-dbtt 0 1 0 23 | print-scheme .scheme.osd-title 0 1 0 24 | print-scheme .scheme.osd-child 0 1 0 25 | print-scheme .scheme.osd-sbar 0 1 0 26 | ; Programming Langs 27 | print-scheme .scheme.prepro 0 1 1 28 | print-scheme .scheme.function 0 1 17 29 | print-scheme .scheme.keyword 0 1 1 30 | print-scheme .scheme.type 0 1 1 31 | print-scheme .scheme.operator 0 1 1 32 | print-scheme .scheme.variable 0 1 1 33 | print-scheme .scheme.constant 0 1 0 34 | print-scheme .scheme.comment 0 1 2 35 | print-scheme .scheme.string 0 1 3 36 | print-scheme .scheme.quote 0 1 3 37 | print-scheme .scheme.error 0 1 3 38 | ; Formatted Text 39 | print-scheme .scheme.header 0 1 17 40 | print-scheme .scheme.link 0 1 3 41 | print-scheme .scheme.bold 0 1 1 42 | print-scheme .scheme.italic 0 1 2 43 | print-scheme .scheme.under 0 1 16 44 | print-scheme .scheme.bold-italic 0 1 3 45 | print-scheme .scheme.bold-under 0 1 17 46 | print-scheme .scheme.italic-under 0 1 18 47 | print-scheme .scheme.bold-italic-under 0 1 19 48 | print-scheme .scheme.spell-error 0 1 0 49 | ; Directory Listings 50 | print-scheme .scheme.file 0 1 1 51 | print-scheme .scheme.select 0 1 0 52 | print-scheme .scheme.dir 0 1 0 53 | print-scheme .scheme.dir-select 0 1 0 54 | print-scheme .scheme.dir-slink 0 1 1 55 | print-scheme .scheme.dir-tree 0 1 0 56 | print-scheme .scheme.dir-open 0 1 0 57 | print-scheme .scheme.dir-closed 0 1 0 58 | print-scheme .scheme.dir-uknown 0 1 0 59 | ; Line Schemes 60 | print-scheme .scheme.hide 0 1 0 61 | print-scheme .scheme.fold-close 0 1 0 62 | print-scheme .scheme.fold-open 0 1 0 63 | print-scheme .scheme.trace 0 1 0 64 | print-scheme .scheme.hlwhite 0 1 0 65 | print-scheme .scheme.hlblack 0 1 0 66 | print-scheme .scheme.hlred 0 1 0 67 | print-scheme .scheme.hlgreen 0 1 0 68 | print-scheme .scheme.hlyellow 0 1 0 69 | print-scheme .scheme.hlblue 0 1 0 70 | print-scheme .scheme.hlmagenta 0 1 0 71 | print-scheme .scheme.hlcyan 0 1 0 72 | ; Graphical Diff 73 | print-scheme .scheme.gdfchange 0 1 0 74 | print-scheme .scheme.gdfadd 0 1 0 75 | print-scheme .scheme.gdfpad 0 1 0 76 | print-scheme .scheme.gdfsel 0 1 0 77 | print-scheme .scheme.gdfselpad 0 1 0 78 | print-scheme .scheme.gdfrej 0 1 0 79 | print-scheme .scheme.gdfrejpad 0 1 0 80 | ; Games 81 | print-scheme .scheme.cardback 0 1 0 82 | print-scheme .scheme.cardfore 0 1 0 83 | print-scheme .scheme.mjg1 0 1 0 84 | print-scheme .scheme.mjg2 0 1 0 85 | print-scheme .scheme.mi1 0 1 0 86 | print-scheme .scheme.mi2 0 1 0 87 | print-scheme .scheme.mi3 0 1 0 88 | print-scheme .scheme.met-back 0 1 0 89 | print-scheme .scheme.met-fore1 0 1 0 90 | print-scheme .scheme.met-fore2 0 1 0 91 | 92 | -------------------------------------------------------------------------------- /src/macros/printhpd.erf: -------------------------------------------------------------------------------- 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 | ; 3 | ; Author : Jon Green & Steven Phillips 4 | ; Last Modified : <000529.1426> 5 | ; 6 | ; Description : HP Deskjet printer driver. 7 | ; 8 | ; Notes 9 | ; 10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 11 | "internal" = "0" 12 | ; Separator characters 13 | "econt" = "\\" ;; Print continuation character. 14 | "scont" = ">" ;; Print start continuation character 15 | "xsep" = "-+-" ;; Horizontal/vertical separator intersection. 16 | "hsep" = "-" ;; Horizontal separator sting - one character. 17 | "vsep" = " | " ;; Vertical separator string 18 | "wsep" = "3" ;; The vertical separator width is 3 characters 19 | 20 | ; Strip blanks from the end of the line. 21 | "strip" = "1" 22 | 23 | "eol" = "\r\n" 24 | "sop" = "" 25 | "eop" = "\e&l0H" 26 | "eof" = "\eE" 27 | 28 | ; Does bold, underline and italic. Start/End sequences. 29 | "start" 30 | { 31 | "b" = "\e(s3B" 32 | "i" = "\e(s1S" 33 | "u" = "\e&d1D" 34 | } 35 | "end" 36 | { 37 | "b" = "\e(s0B" 38 | "i" = "\e(s0S" 39 | "u" = "\e&d@" 40 | } 41 | 42 | "layout" 43 | { 44 | "A4 Portrait" 45 | { 46 | "192x134" 47 | { 48 | "paper-x" = "192" 49 | "paper-y" = "134" 50 | "sof" = "\eE\e&l0L\e&l0E\e&a0L\e(s0P\e(s24H\e(s6V\e&l4C" 51 | } 52 | " 80x68" 53 | { 54 | "paper-x" = "80" 55 | "paper-y" = "68" 56 | "sof" = "\eE\e&l0L\e&l0E\e&a0L" 57 | } 58 | } 59 | "A4 Landscape" 60 | { 61 | "220x96" 62 | { 63 | "paper-x" = "220" 64 | "paper-y" = "96" 65 | "sof" = "\eE\e&l0L\e&l0E\e&a0L\e&l1O\e(s0P\e(s24H\e(s6V\e&l4C" 66 | } 67 | "110x48" 68 | { 69 | "paper-x" = "110" 70 | "paper-y" = "48" 71 | "sof" = "\eE\e&l0L\e&l0E\e&a0L\e&l1O" 72 | } 73 | } 74 | } 75 | 76 | -------------------------------------------------------------------------------- /src/macros/printhpl.erf: -------------------------------------------------------------------------------- 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 | ; 3 | ; Author: Jon Green, Steven Phillips & Thomas Hundt 4 | ; Synopsis: HP Laserjet printer driver. 5 | ; Notes: 6 | ; 25-Apr-02 thundt - added Letter size paper with new intermediate 7 | ; font size, tested on LJ5M 8 | ; 9 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 10 | "internal" = "0" 11 | ; Separator characters 12 | "econt" = "\\" ;; Print continuation character. 13 | "scont" = ">" ;; Print start continuation character 14 | "xsep" = "-+-" ;; Horizontal/vertical separator intersection. 15 | "hsep" = "-" ;; Horizontal separator sting - one character. 16 | "vsep" = " | " ;; Vertical separator string 17 | "wsep" = "3" ;; The vertical separator width is 3 characters 18 | 19 | ; Strip blanks from the end of the line. 20 | "strip" = "1" 21 | 22 | "eol" = "\r\n" 23 | "sop" = "" 24 | "eop" = "\e&l0H" 25 | "eof" = "\eE" 26 | 27 | ; Does bold, underline and italic. Start/End sequences. 28 | "start" 29 | { 30 | "b" = "\e(s3B" 31 | "i" = "\e(s1S" 32 | "u" = "\e&d1D" 33 | } 34 | "end" 35 | { 36 | "b" = "\e(s0B" 37 | "i" = "\e(s0S" 38 | "u" = "\e&d@" 39 | } 40 | 41 | "layout" 42 | { 43 | "A4 Portrait" 44 | { 45 | "180x136" 46 | { 47 | 48 | "paper-x" = "180" 49 | "paper-y" = "136" 50 | "sof" = "\eE\e&l0L\e&l1E\e&a0L\e(s0P\e(s24H\e(s6V\e&l4C" 51 | } 52 | " 78x68" 53 | { 54 | "paper-x" = "78" 55 | "paper-y" = "68" 56 | "sof" = "\eE\e&l0L\e&l1E\e&a0L" 57 | } 58 | } 59 | "A4 Landscape" 60 | { 61 | "261x91" 62 | { 63 | "paper-x" = "261" 64 | "paper-y" = "91" 65 | "sof" = "\eE\e&l0L\e&l0E\e&a0L\e&l1O\e(s0P\e(s24H\e(s6V\e&l4C" 66 | } 67 | "113x45" 68 | { 69 | "paper-x" = "113" 70 | "paper-y" = "45" 71 | "sof" = "\eE\e&l0L\e&l0E\e&a0L\e&l1O" 72 | } 73 | } 74 | 75 | "Letter Portrait" ; thundt tested on LaserJet 5M 76 | { 77 | " 80x66" 78 | { 79 | "paper-x" = "80" 80 | "paper-y" = "66" 81 | "sof" = "\eE\e&l0L\e&l1E\e&a0L" 82 | } 83 | "161x128" 84 | { 85 | "paper-x" = "161" 86 | "paper-y" = "128" 87 | "sof" = "\eE\e&l0L\e&l1E\e&a0L\e(s0P\e(s20H\e&l4C" ; new 88 | } 89 | "184x128" 90 | { 91 | "paper-x" = "184" 92 | "paper-y" = "128" 93 | "sof" = "\eE\e&l0L\e&l1E\e&a0L\e(s0P\e(s24H\e(s6V\e&l4C" 94 | } 95 | } ; Letter Portrait 96 | 97 | "Letter Landscape" ; thundt tested on LaserJet 5M 98 | { 99 | "108x51" 100 | { 101 | "paper-x" = "108" 102 | "paper-y" = "51" 103 | "sof" = "\eE\e&l0L\e&l0E\e&a0L\e&l1O" 104 | } 105 | "213x93" 106 | { 107 | "paper-x" = "213" 108 | "paper-y" = "93" 109 | "sof" = "\eE\e&l0L\e&l0E\e&a0L\e&l1O\e(s0P\e(s20H\e&l4C" ; new 110 | } 111 | "245x93" 112 | { 113 | "paper-x" = "245" 114 | "paper-y" = "93" 115 | "sof" = "\eE\e&l0L\e&l0E\e&a0L\e&l1O\e(s0P\e(s24H\e(s6V\e&l4C" 116 | } 117 | } ; Letter Landscape 118 | } 119 | 120 | -------------------------------------------------------------------------------- /src/macros/printhtm.erf: -------------------------------------------------------------------------------- 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 | ; 3 | ; Author : Jon Green & Steven Phillips 4 | ; Last Modified : <000529.1419> 5 | ; 6 | ; Description : HTML Printer driver. 7 | ; 8 | ; Notes: we use this as a test printer. It simply converts to HTML. 9 | ; capturing the output we can then view it and look for any 10 | ; annomolies. 11 | ; 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 13 | "internal" = "0" 14 | ; Separator characters 15 | "econt" = "\\" ;; Print continuation character. 16 | "scont" = ">" ;; Print start continuation character 17 | "xsep" = "-+-" ;; Horizontal/vertical separator intersection. 18 | "hsep" = "-" ;; Horizontal separator sting - one character. 19 | "vsep" = " | " ;; Vertical separator string 20 | "wsep" = "3" ;; The vertical separator width is 3 characters 21 | 22 | ; Strip blanks from the end of the line. 23 | "strip" = "1" 24 | 25 | "eol" = "\n" 26 | "eop" = "
\n" 27 | "sop" = "
"
28 | "eof" = "\n\n"
29 | "sof" = "\nTest Page\n\n\n"
30 | 
31 | ; Does bold, italic, use courier as underline.
32 | "bg-color" = ""
33 | "scheme-order" = "Fbiu"
34 | "start"
35 | {
36 |  "F" = ""
37 |  "b" = ""
38 |  "i" = ""
39 |  "u" = ""
40 | }
41 | "end"
42 | {
43 |  "b" = ""
44 |  "i" = ""
45 |  "u" = ""
46 | }
47 | ; Filter the following characters through the device.
48 | "filter"
49 | {
50 |  ;;            0x20= \;;
51 |  "<" = "<\;"
52 |  ">" = ">\;"
53 |  "&" = "&\;"
54 |  "\"" = ""\;"
55 | }
56 | "layout"
57 | {
58 |  "Default"
59 |  {
60 |   " 80x66"
61 |   {
62 |    "paper-x" = "80"
63 |    "paper-y" = "66"
64 |   }
65 |   "160x134"
66 |   {
67 |    "paper-x" = "160"
68 |    "paper-y" = "134"
69 |   }
70 |  }
71 | }
72 | 


--------------------------------------------------------------------------------
/src/macros/printwdw.erf:
--------------------------------------------------------------------------------
 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 2 | ;
 3 | ;  Author        : Steven Phillips
 4 | ;  Last Modified : <030515.1333>
 5 | ;
 6 | ;  Description   : Windows printer driver.
 7 | ;
 8 | ;  Notes
 9 | ; 
10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
11 | "internal" = "1"              ;; Windows internal printer driver
12 | "win-default" = "1"           ;; Use the defult printer by default
13 | 
14 | ; Separator characters
15 | "econt" = "\\"                ;; Print continuation character.
16 | "scont" = ">"                 ;; Print start continuation character
17 | "xsep" = "-+-"                ;; Horizontal/vertical separator intersection.
18 | "hsep" = "-"                  ;; Horizontal separator sting - one character.
19 | "vsep" = " | "                ;; Vertical separator string
20 | "wsep" = "3"                  ;; The vertical separator width is 3 characters
21 | 
22 | ; Strip blanks from the end of the line.
23 | "strip" = "1"
24 | 
25 | "sof" = ""
26 | "eof" = ""
27 | "sop" = "\es"
28 | "eop" = "\ee"
29 | "eol" = "\n"
30 | "scheme-order" = "BFbiu"
31 | "start"
32 | {
33 |  "B" = "\ec%p1%02xB"
34 |  "F" = "\ec%p1%02xF"
35 |  "b" = "\efA"
36 |  "i" = "\efB"
37 |  "u" = "\efC"
38 | }
39 | "end"
40 | {
41 |  "b" = "\efa"
42 |  "i" = "\efb"
43 |  "u" = "\efc"
44 | }
45 |   
46 | "layout"
47 | {
48 |  "automatic"
49 |  {
50 |   "automatic"
51 |   {
52 |    "page-x" = "80"
53 |    "page-y" = "66"
54 |    "specifier-x" = "1"
55 |    "specifier-y" = "1"
56 |   }
57 |  }
58 | }
59 | 


--------------------------------------------------------------------------------
/src/macros/psf.etf:
--------------------------------------------------------------------------------
 1 | ##############################################################################
 2 | #
 3 | #  System        : 
 4 | #  Module        : 
 5 | #  Object Name   : $RCSfile$
 6 | #  Revision      : $Revision$
 7 | #  Date          : $Date$
 8 | #  Author        : $Author$
 9 | #  Created By    : $USER_NAME$
10 | #  Created       : $ASCII_TIME$
11 | #  Last Modified : <090829.1749>
12 | #
13 | #  Description	
14 | #
15 | #  Notes
16 | #
17 | #  History
18 | #
19 | ##############################################################################
20 | #
21 | #  Copyright (c) $YEAR$ $COMPANY_NAME$.
22 | # 
23 | #  All Rights Reserved.
24 | # 
25 | #  This  document  may  not, in  whole  or in  part, be  copied,  photocopied,
26 | #  reproduced,  translated,  or  reduced to any  electronic  medium or machine
27 | #  readable form without prior written consent from $COMPANY_NAME$.
28 | #
29 | ##############################################################################
30 | 
31 | vendor
32 |     # 
33 |     tag yourtag
34 |     description "your description"
35 |     title "your title"
36 | end
37 | product
38 |     tag yourtag
39 |     title "your title"
40 |     description "your description"
41 | 
42 |     # Revision
43 |     revision 1.0
44 | 
45 |     #
46 |     # HP-UX 10.20
47 |     # architecture S700/800_HPUX_10
48 |     # machine_type 9000/[78]*
49 |     # os_name HP-UX
50 |     # os_release ?.10.*
51 |     # os_version *
52 |     #
53 |     # HP-UX 11.x
54 |     architecture HP-UX_B.11.00_32/64
55 |     machine_type 9000/[78]*:*
56 |     os_name HP-UX
57 |     os_release ?.11.*
58 |     os_version *
59 |         
60 |     copyright "Copyright (c) $YEAR$ $COMPANY_NAME$"
61 | 
62 |     fileset
63 |         tag yourtag
64 |         title "your title"
65 |         revision 1.0
66 |         #
67 |         postinstall your.postinstall
68 |         postremove  your.postremove
69 |         #
70 |         directory product=/opt/product
71 |         file_permissions -u 022 -g bin -o bin
72 |         file *
73 |     end
74 | end    
75 | 
76 | 


--------------------------------------------------------------------------------
/src/macros/python.eaf:
--------------------------------------------------------------------------------
 1 |  "" " \ecCControl Flow:\ecA"
 2 | def "def \p():\P" "  def"
 3 | class "class \p:\r    \" Docstring\"\r    def __init__(self):\P" "  class"
 4 | defm "def \p():\P" "  classdef public"
 5 | defmp "def __\p__():\P" "  classdef private"
 6 | if "if \p:\P" "  if"
 7 | ifelse "if \p:\r\relse:\r\P" "  if else"
 8 | while "while (\p):\P" "  while"
 9 | for "for \p in range(10):\P" "  for"
10 | tryex "try:\r    # try code\r    \p\rexcept ...Error:\r     # except code\P" "  try except"
11 | tryfi "try:\r    # try code\r    \p\rfinally:\r     # finally code\P" "  try finally"
12 |  "" ""
13 |  "" " \ecCTkinter:\ecA "
14 | import "from Tkinter import *\r"  "  import"
15 |  "" ""
16 | 


--------------------------------------------------------------------------------
/src/macros/python.etf:
--------------------------------------------------------------------------------
 1 | #!/usr/bin/env python
 2 | ##############################################################################
 3 | #
 4 | #  System        : 
 5 | #  Module        : 
 6 | #  Object Name   : $RCSfile$
 7 | #  Revision      : $Revision$
 8 | #  Date          : $Date$
 9 | #  Author        : $Author$
10 | #  Created By    : $USER_NAME$
11 | #  Created       : $ASCII_TIME$
12 | #  Last Modified : <090829.1749>
13 | #
14 | #  Description	
15 | #
16 | #  Notes
17 | #
18 | #  History
19 | #	
20 | ##############################################################################
21 | #
22 | #  Copyright (c) $YEAR$ $COMPANY_NAME$.
23 | # 
24 | #  All Rights Reserved.
25 | # 
26 | #  This  document  may  not, in  whole  or in  part, be  copied,  photocopied,
27 | #  reproduced,  translated,  or  reduced to any  electronic  medium or machine
28 | #  readable form without prior written consent from $COMPANY_NAME$.
29 | #
30 | ##############################################################################
31 | 
32 | 


--------------------------------------------------------------------------------
/src/macros/rect.emf:
--------------------------------------------------------------------------------
  1 | ; -!- emf -!-
  2 | ; This is part of the JASSPA MicroEmacs macro files
  3 | ; Copyright (C) 2004-2009 JASSPA (www.jasspa.com)
  4 | ; See the file me.emf for copying and conditions.
  5 | ;
  6 | ; Created:     Mon Jan 12 2004
  7 | ; Synopsis:    Rectangle macros
  8 | ; Authors:     Steven Phillips & Jon Green
  9 | ;
 10 | ; string-rectangle; The user is prompted for a string which is inserted at
 11 | ; the same horizonatal position on all lines spanned by the current region. 
 12 | define-macro string-rectangle
 13 |     set-variable #l0 $window-line
 14 |     set-variable #l3 $window-col
 15 |     exchange-point-and-mark
 16 |     set-variable #l2 $window-line
 17 |     exchange-point-and-mark
 18 |     ; Compute the top line.
 19 |     !if &gre #l0 #l2
 20 |         set-variable #l1 #l2
 21 |         set-variable #l2 #l0
 22 |     !else
 23 |         set-variable #l1 #l0
 24 |     !endif
 25 |     ; Get the string to insert
 26 |     !force set-variable #l6 @1
 27 |     !if ¬ $status
 28 |         set-variable #l6 @ml "String"
 29 |     !endif
 30 |     ; Fill all of the lines in the region from the first column. 
 31 |     set-variable $window-line #l1
 32 |     !repeat
 33 |         ; Move to the column
 34 |         beginning-of-line
 35 |         !while &les $window-col #l3
 36 |             !if ¬ &seq @wc "\n"
 37 |                 forward-char
 38 |             !else
 39 |                 insert-string " "
 40 |             !endif
 41 |         !done
 42 |         ; Insert the string
 43 |         insert-string #l6
 44 |         !if ¬ &les $window-line #l2
 45 |             ; done the last line, return
 46 |             set-variable $window-line #l0
 47 |             set-variable $window-col &add #l3 &len #l6
 48 |             !return
 49 |         !endif
 50 |         forward-line
 51 |     !until 0
 52 | !emacro
 53 | 
 54 | define-macro space-rectangle
 55 |     set-variable #l0 &spr "%n" @# " "
 56 |     string-rectangle #l0
 57 | !emacro
 58 | 
 59 | define-macro copy-rectangle
 60 |     set-alpha-mark "\x81" 
 61 |     set-variable #l9 $window-col
 62 |     set-variable #l0 &bmod "view" 
 63 |     set-variable #l1 &bmod "edit" 
 64 |     set-variable #l2 &bmod "undo" 
 65 |     -1 buffer-mode view 
 66 |     1 buffer-mode undo 
 67 |     kill-rectangle 
 68 |     ; undo the kill and restore the buffer state 
 69 |     undo 
 70 |     &cond #l2 1 -1 buffer-mode "undo" 
 71 |     &cond #l1 1 -1 buffer-mode "edit" 
 72 |     &cond #l0 1 -1 buffer-mode "view" 
 73 |     goto-alpha-mark "\x81" 
 74 |     set-variable $window-col #l9
 75 |     ; flag the command to be a copy-region type command 
 76 |     set-variable @cl copy-region 
 77 | !emacro 
 78 |         
 79 | ; yank-rectangle-overwrite; replaces a column of text with the current kill buffer.
 80 | ; To use place the cursor at the top left of column and call this command. The width
 81 | ; of the column to be replaced is determined by the width of the kill buffer text being
 82 | ; inserted.
 83 | define-macro yank-rectangle-overwrite
 84 |     yank-rectangle
 85 |     set-variable #l0 $window-line
 86 |     set-variable #l1 $window-acol
 87 |     exchange-point-and-mark
 88 |     set-variable #l2 &add #l1 &sub #l1 $window-acol
 89 |     set-variable $window-acol #l1
 90 |     set-mark
 91 |     set-variable $window-line #l0
 92 |     !force set-variable $window-acol #l2
 93 |     !if &gre $window-acol #l2
 94 |         ; previous char is a multi-char display char (i.e. a tab)
 95 |         backward-char
 96 |     !endif
 97 |     !if &les $window-acol #l2
 98 |         ; last line not long enough (or multi display char), pad with spaces
 99 |         &sub #l2 $window-acol insert-space
100 |     !endif
101 |     kill-rectangle
102 |     -1 yank
103 | !emacro
104 | 


--------------------------------------------------------------------------------
/src/macros/ruby.etf:
--------------------------------------------------------------------------------
 1 | ## -*- ruby -*- ##############################################################
 2 | #
 3 | #  System        : 
 4 | #  Module        : 
 5 | #  Object Name   : $RCSfile$
 6 | #  Revision      : $Revision$
 7 | #  Date          : $Date$
 8 | #  Author        : $Author$
 9 | #  Created By    : $USER_NAME$
10 | #  Created       : $ASCII_TIME$
11 | #  Last Modified : <090829.1750>
12 | #
13 | #  Description	
14 | #
15 | #  Notes
16 | #
17 | #  History
18 | #
19 | ##############################################################################
20 | #
21 | #  Copyright (c) $YEAR$ $COMPANY_NAME$.
22 | # 
23 | #  All Rights Reserved.
24 | # 
25 | #  This  document  may  not, in  whole  or in  part, be  copied,  photocopied,
26 | #  reproduced,  translated,  or  reduced to any  electronic  medium or machine
27 | #  readable form without prior written consent from $COMPANY_NAME$.
28 | #
29 | ##############################################################################
30 | 
31 | 
32 | 


--------------------------------------------------------------------------------
/src/macros/rul.etf:
--------------------------------------------------------------------------------
 1 | /////////////////////////////////////////////////////////////////////////////
 2 | //
 3 | //  System        : 
 4 | //  Module        : 
 5 | //  Object Name   : $RCSfile$
 6 | //  Revision      : $Revision$
 7 | //  Date          : $Date$
 8 | //  Author        : $Author$
 9 | //  Created By    : $USER_NAME$
10 | //  Created       : $ASCII_TIME$
11 | //  Last Modified : <090829.1750>
12 | //
13 | //  Description	
14 | //
15 | //  Notes
16 | //
17 | //  History
18 | //	
19 | /////////////////////////////////////////////////////////////////////////////
20 | //
21 | //  Copyright (c) $YEAR$ $COMPANY_NAME$.
22 | // 
23 | //  All Rights Reserved.
24 | // 
25 | // This  document  may  not, in  whole  or in  part, be  copied,  photocopied,
26 | // reproduced,  translated,  or  reduced to any  electronic  medium or machine
27 | // readable form without prior written consent from $COMPANY_NAME$.
28 | //
29 | //////////////////////////////////////////////////////////////////////////////
30 | 
31 | 


--------------------------------------------------------------------------------
/src/macros/schemes.emf:
--------------------------------------------------------------------------------
 1 | ; -!- emf -!-
 2 | ; This is part of the JASSPA MicroEmacs macro files
 3 | ; Copyright (C) 2000-2009 JASSPA (www.jasspa.com)
 4 | ; See the file me.emf for copying and conditions.
 5 | ;
 6 | ; Created:     Fri Feb 2 2001
 7 | ; Synopsis:    List of screen color schemes
 8 | ; Authors:     Steven Phillips
 9 | ;
10 | set-variable .scheme.scheme-names "|Default White on Black|Basic Black on Cream|Black on Cream|Sandy Shores|Sherwood Forest|Brownie|Lemon Jelly|Blue Hue|Mirkwood|Plain Black on Cream|Plain White on Black|Black on Grey|MS Dev-Studio Colors|Termcap (black)|Termcap (White)|Charcoal|Lumina|Lumina Evolution|General Electric Black|General Electric Blue|General Electric Olive|General Electric Gray|"
11 | set-variable .scheme.scheme-files "|schemed|schemebc|schemej|schemevi|schemesf|schemeb|schemelj|schemebh|schememw|schemepl|schemepd|schemel|schememd|schemetb|schemetw|schemech|schemelm|schemel2|schemege|schemegb|schemego|schemegg|"
12 | 


--------------------------------------------------------------------------------
/src/macros/sessnstp.emf:
--------------------------------------------------------------------------------
 1 | ; -!- emf -!-
 2 | ; This is part of the JASSPA MicroEmacs macro files
 3 | ; Copyright (C) 2006-2009 JASSPA (www.jasspa.com)
 4 | ; See the file me.emf for copying and conditions.
 5 | ;
 6 | ; Created:     2006-06-09
 7 | ; Synopsis:    ME Session setup dialog
 8 | ; Authors:     Steven Phillips
 9 | ;
10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
11 | !if ¬ &exi .osd.sssnc
12 |     set-variable .osd.sssn &pinc .osd.next 1
13 | !endif
14 | 
15 | 0 define-macro session-setup-entry
16 |     !if &les @# 0
17 |         set-variable %session-name @ml2 "" %session-name
18 |     !else
19 |         set-variable $result %session-name
20 |     !endif
21 | !emacro
22 | 0 define-macro session-setup-cb
23 |     set-variable #l0 &ind &set #l1 &cat ".session." &lget "|kill|amark|update|" &abs @#
24 |     !if &les @# 0
25 |         set-variable &ind #l1 &bxor #l0 1
26 |     !elif ¬ #l0
27 |         !abort
28 |     !endif
29 | !emacro
30 | 
31 | -1 osd .osd.sssn
32 | osd .osd.sssn 0  "batcDHs" 3 6 52 8 -1 -1 520 .scheme.osd-title "Session Setup"
33 | osd .osd.sssn 10  ""
34 | osd .osd.sssn 15  ""
35 | osd .osd.sssn 20  "Sfh" "  \HName: " 30
36 | osd .osd.sssn 30  "EtxHf" .scheme.osd-entry "###############################" 1 session-setup-entry
37 | osd .osd.sssn 50  ""
38 | osd .osd.sssn 60  "hf" "       "
39 | osd .osd.sssn 70  "Ctpfx" &cat .osd.checkbox-chars "\} Save \Hkill chain" 1 session-setup-cb
40 | osd .osd.sssn 80  ""
41 | osd .osd.sssn 90  "hf" "       "
42 | osd .osd.sssn 100 "Ctpfx" &cat .osd.checkbox-chars "\} Save buffer \Hbookmarks" 2 session-setup-cb
43 | osd .osd.sssn 110  ""
44 | osd .osd.sssn 120 "hf" "       "
45 | osd .osd.sssn 130 "Ctpfx" &cat .osd.checkbox-chars "\} Auto \HUpdate" 3 session-setup-cb
46 | osd .osd.sssn 500 ""
47 | osd .osd.sssn 510 ""
48 | osd .osd.sssn 520 "BtcfHh" .scheme.osd-ebtt " \HOkay " f void
49 | 
50 | define-macro session-setup
51 |     !if ¬ &exi %session-name
52 |         set-variable %session-name $user-name
53 |     !endif
54 |     !force .osd.sssn osd
55 | !emacro
56 | 


--------------------------------------------------------------------------------
/src/macros/spec.etf:
--------------------------------------------------------------------------------
 1 | ##############################################################################
 2 | #
 3 | #  System        :
 4 | #  Module        :
 5 | #  Object Name   : $RCSfile$
 6 | #  Revision      : $Revision$
 7 | #  Date          : $Date$
 8 | #  Author        : $Author$
 9 | #  Created By    : $USER_NAME$
10 | #  Created       : $ASCII_TIME$
11 | #  Last Modified : <090829.1750>
12 | #
13 | #  Description
14 | #
15 | #  Notes
16 | #
17 | #  History
18 | #
19 | ##############################################################################
20 | #
21 | #  Copyright (c) $YEAR$ $COMPANY_NAME$.
22 | #
23 | #  All Rights Reserved.
24 | #
25 | #  This  document  may  not, in  whole  or in  part, be  copied,  photocopied,
26 | #  reproduced,  translated,  or  reduced to any  electronic  medium or machine
27 | #  readable form without prior written consent from $COMPANY_NAME$.
28 | #
29 | ##############################################################################
30 | 
31 | Summary:            # your one line summary of package
32 | Name:               # yourPackageName - what the package will be called.
33 | Version: 1.0        # Version of software being packaged.
34 | Release: 1          # Number of times software been packaged.
35 | Copyright: GPL      # Copyright terms, we'll assume GPL here.
36 | Group:              # How package should be grouped i.e. Applications/Sound
37 | URL:                # http://www.somewhere.com
38 | Source:             # where you get your source from
39 | Packager: $USER_NAME$ 
40 | Vendor:   $COMPANY_NAME$
41 | 
42 | %description
43 | Add a longer description here
44 | that may span over multiple lines
45 | and end with an empty line.
46 | 
47 | # Scripts to prepare the package
48 | %prep
49 | 
50 | # As alternative to %prep then use %setup
51 | %setup
52 | 
53 | # Shell script to build product
54 | %build
55 | make
56 | 
57 | # Shell script to install the product.
58 | %install
59 | make install
60 | 
61 | # Clean - remove files that are not part of build area.
62 | %clean
63 | 
64 | # Define the files that are part of the package.
65 | %files
66 | %defattr(-,root,root)
67 | %doc README
68 | %{_bindir}/myapp
69 | %{_datadir}/myappdata
70 | 
71 | # Log of changes
72 | %changelog
73 | 


--------------------------------------------------------------------------------
/src/macros/spellutl.emf:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/macros/spellutl.emf


--------------------------------------------------------------------------------
/src/macros/ssaver.emf:
--------------------------------------------------------------------------------
 1 | ; -!- emf -!-
 2 | ; This is part of the JASSPA MicroEmacs macro files
 3 | ; Copyright (C) 1997-2009 JASSPA (www.jasspa.com)
 4 | ; See the file me.emf for copying and conditions.
 5 | ;
 6 | ; Created:     Sun Dec 21 1997
 7 | ; Synopsis:    Cheesy Screen saver (for dos?)
 8 | ; Authors:     Steven Phillips
 9 | ;
10 | set-variable %screen-saver 0
11 | define-macro screen-saver
12 |     !if ¬ &pinc %screen-saver 1
13 |         !if &seq @cck "idle-pick"
14 |             ; default is to switch on in 5 minutes time
15 |             &cond @? @# 300000 create-callback screen-saver
16 |         !else
17 |             !if &seq @cck "callback"
18 |                 @# create-callback screen-saver
19 |             !elif @?
20 |                 ; user has suppled argument, install or remove
21 |                 !if &gre @# 0
22 |                     &mul @# 60000 global-bind-key screen-saver "idle-pick"
23 |                 !else
24 |                     !force global-unbind-key "idle-pick"
25 |                 !endif
26 |                 set-variable %screen-saver &sub %screen-saver 1
27 |                 !return
28 |             !endif
29 |             set-variable @# $frame-depth
30 |             !while &dec @# 1
31 |                 2 screen-poke @# 0 $global-scheme &spr "%n" $frame-width " "
32 |             !done
33 |             0 screen-poke 0 0 $global-scheme &spr "%n" $frame-width " "
34 |             -1 show-cursor
35 |             ; must set this to stop recursion when waiting for a key!
36 |             set-variable %screen-saver 0
37 |             set-variable @# @cg
38 |             set-variable %screen-saver 1
39 |             1 show-cursor
40 |             screen-update
41 |             0 ml-write
42 |         !endif
43 |     !endif
44 |     set-variable %screen-saver &sub %screen-saver 1
45 | !emacro
46 | 
47 | 


--------------------------------------------------------------------------------
/src/macros/sunos.emf:
--------------------------------------------------------------------------------
 1 | ;-!- emf -!-
 2 | ; This is part of the JASSPA MicroEmacs macro files
 3 | ; Copyright (C) 1995-2009 JASSPA (www.jasspa.com)
 4 | ; See the file me.emf for copying and conditions.
 5 | ;
 6 | ; Synopsis:    Setup file for SunOS boxes.
 7 | ; Authors:     Steven Phillips
 8 | ;
 9 | ; Load up common unix stuff
10 | !force exec-file "unixterm"
11 | ;
12 | ; Compile stuff
13 | 0 add-next-line "*compile*"
14 | add-next-line "*compile*" "\"%f\", line %l:"
15 | ; gcc compiler
16 | add-next-line "*compile*" "%f:%l:"
17 | ; End if terminal mode
18 | 


--------------------------------------------------------------------------------
/src/macros/tcl.etf:
--------------------------------------------------------------------------------
 1 | ##############################################################################
 2 | #
 3 | #  System        : 
 4 | #  Module        : 
 5 | #  Object Name   : $RCSfile$
 6 | #  Revision      : $Revision$
 7 | #  Date          : $Date$
 8 | #  Author        : $Author$
 9 | #  Created By    : $USER_NAME$
10 | #  Created       : $ASCII_TIME$
11 | #  Last Modified : <090829.1750>
12 | #
13 | #  Description	
14 | #
15 | #  Notes
16 | #
17 | #  History
18 | #	
19 | ##############################################################################
20 | #
21 | #  Copyright (c) $YEAR$ $COMPANY_NAME$.
22 | # 
23 | #  All Rights Reserved.
24 | # 
25 | #  This  document  may  not, in  whole  or in  part, be  copied,  photocopied,
26 | #  reproduced,  translated,  or  reduced to any  electronic  medium or machine
27 | #  readable form without prior written consent from $COMPANY_NAME$.
28 | #
29 | ##############################################################################
30 | 
31 | 
32 | 


--------------------------------------------------------------------------------
/src/macros/tooldef.emf:
--------------------------------------------------------------------------------
 1 | ; -!- emf -!-
 2 | ; This is part of the JASSPA MicroEmacs macro files
 3 | ; Copyright (C) 2002-2009 JASSPA (www.jasspa.com)
 4 | ; See the file me.emf for copying and conditions.
 5 | ;
 6 | ; Created:     Fri May 24 2002
 7 | ; Synopsis:    Default dummy toolbar tools
 8 | ; Authors:     Steven Phillips
 9 | ;
10 | 0 define-macro toolbar-default
11 |     set-position "\x86"
12 |     goto-position "\x85"
13 |     set-variable #l0 &mid $buffer-bname 9 &sub &len $buffer-bname 10
14 |     set-variable #l1 &cond &gre $window-depth $window-width "\n" " "
15 |     find-buffer &spr "*toolbar-%s*" #l0 
16 |     -1 buffer-mode "undo"
17 |     -1 buffer-mode "view"
18 |     beginning-of-buffer
19 |     set-mark
20 |     end-of-buffer
21 |     -1 kill-region
22 |     set-variable #l0 &cat &sup &lef #l0 1 &rig #l0 1
23 |     insert-string &cat #l0 " Toolbar\n\n"
24 |     insert-string &spr "The %s toolbar%shas not yet been%sconfigured.\n\nUse mode-line right%smouse button pop-up%smenu to set-up." #l0 #l1 #l1 #l1 #l1
25 |     beginning-of-buffer
26 |     set-variable $line-scheme .scheme.header
27 |     -1 buffer-mode "edit"
28 |     1 buffer-mode "view"
29 |     goto-position "\x86"
30 | !emacro
31 | 


--------------------------------------------------------------------------------
/src/macros/toollist.emf:
--------------------------------------------------------------------------------
 1 | ; -!- emf -!-
 2 | ; This is part of the JASSPA MicroEmacs macro files
 3 | ; Copyright (C) 2002-2009 JASSPA (www.jasspa.com)
 4 | ; See the file me.emf for copying and conditions.
 5 | ;
 6 | ; Created:     Fri May 24 2002
 7 | ; Synopsis:    List of toolbar tools
 8 | ; Authors:     Steven Phillips
 9 | ;
10 | ; Setup the Toolbar tools
11 | set-variable .toolbar.tool-descs "\CHBuffer Bookmarks\CHBuffer File Info\CHBuffer List\CHBuffer Tab List\CHKill List\CHBuffer Tools\CHBuffer Abbreviations\CHBuffer Item List\CHDirectory Tree\CHDirectory File List\CHFavorites\CHFTP Console\CHCVS Console\CHClearCase Console\CH"
12 | set-variable .toolbar.tool-names "\CHBookmarks\CHInfo\CHBuff List\CHBuffer Tab List\CHKill List\CHTools\CHAbbrevs\CHItems\CHDir Tree\CHDir Files\CHFavorites\CHFTP Console\CHCVS Console\CHClearCase Console\CH"
13 | set-variable .toolbar.tool-buffs "\CH*bookmark*\CH*buffer-info*\CH*buffer-list*\CH*toolbar-buffer-tab*\CH*kill-list*\CH*tool-list*\CH*abbrev-list*\CH*item-list*\CH*directory*\CH*toolbar-files*\CH*favorites*\CH*ftp-console*\CH*cvs-console*\CH*cc-console*\CH"
14 | set-variable .toolbar.tool-files "\CHbookmark\CHtoolstd\CHtoolstd\CHtoolstd\CHkilllist\CHabbrlist\CHabbrlist\CHitemlist\CHtoolstd\CHhkdirlst\CHfavorite\CHftp\CHcvs\CHclearcs\CH"
15 | set-variable .toolbar.tool-flags "\CH0x2000b\CH0x22001b\CH0x1b\CH0x10000b\CH0x100003\CH0x10007\CH0x10007\CH0x22000f\CH0x1\CH0x200001\CH0x3\CH0x01\CH0x01\CH0x01\CH"
16 | set-variable .toolbar.tool-cmds  "\CHbookmark-create\CHbuffer-info-create\CHbuffer-list-create\CHbuffer-tab-list-create\CHkill-list-create\CHtool-list-create\CHabbrev-list-create\CHitem-list-create\CHtoolbar-dir-list-create\CHtoolbar-file-list-create\CHtoolbar-favorites\CHftp-console-tool\CHcvs-console-tool\CHcc-console-tool\CH"
17 | 


--------------------------------------------------------------------------------
/src/macros/txt.eaf:
--------------------------------------------------------------------------------
1 |  "" "\ecCJustify Paragraph:\ecA"
2 |  "\Exfill-paragraph-both\N" "  Both"
3 |  "\Exfill-paragraph-center\N" "  Center"
4 |  "\Exfill-paragraph-left\N" "  Left"
5 |  "\Exfill-paragraph-right\N" "  Right"
6 | 


--------------------------------------------------------------------------------
/src/macros/unixterm.emf:
--------------------------------------------------------------------------------
 1 | ; -!- emf -!-
 2 | ; This is part of the JASSPA MicroEmacs macro files
 3 | ; Copyright (C) 1995-2009 JASSPA (www.jasspa.com)
 4 | ; See the file me.emf for copying and conditions.
 5 | ;
 6 | ; Synopsis:    Common unix setup file
 7 | ; Authors:     Steven Phillips
 8 | ;
 9 | define-macro-file hkman man
10 | define-macro-file hkipipe ishell gdb dbx perldb
11 | add-file-hook ".C" fhook-cpp
12 | 0 define-macro exec-me
13 |     ipipe-shell-command &spr "\"%s\" %s" $progname @1 @mna
14 | !emacro
15 | !if &band $system 0x01
16 |     ; Not using X
17 |     !if ¬ &band $system 0x02
18 |         ; no color - change the window chars so osd is more usable
19 |         set-variable $window-chars &spr "%s=x*[>]<%s" &lef $window-chars 47 &rig $window-chars 54
20 |     !endif
21 | !else
22 |     !if ¬ &seq &set #l0 ® &spr "/history/%s/font" $platform "" ""
23 |         change-font #l0
24 |     !endif
25 | !endif
26 | ;
27 | ; setup the next-error stuff including grep and compiling
28 | ;
29 | set-variable $line-template "[0-9]+"
30 | set-variable $file-template "[!-9;-z~]+"
31 | set-variable %ipipe-term "TERM=vt100-nam"
32 | ; Grep stuff
33 | set-variable %xgrep-com "grep -n"
34 | ; RCS stuff
35 | set-variable $rcs-file     "RCS/%f,v"
36 | set-variable $rcs-co-com   "co %f"
37 | set-variable $rcs-cou-com  "co -l %f"
38 | set-variable $rcs-ci-com   "ci -u -m\"%m\" %f"
39 | ;set-variable $rcs-cif-com  "ci -u -m\"%m\" %f"
40 | ; Declare the .dir file found in X11 font directory, this is not an info file.
41 | add-file-hook ".dir"                                          fhook-txt
42 | 


--------------------------------------------------------------------------------
/src/macros/vhdl.eaf:
--------------------------------------------------------------------------------
1 | if "if \p then\rend if;\P"
2 | be "begin\r\p\rend\P"
3 | el "eleif \p then\P"
4 | wh "while \p loop\rend loop;\P"
5 | 


--------------------------------------------------------------------------------
/src/macros/vhdl.etf:
--------------------------------------------------------------------------------
 1 | -----------------------------------------------------------------------------
 2 | --
 3 | --  System        : 
 4 | --  Module        : 
 5 | --  Object Name   : $RCSfile$
 6 | --  Revision      : $Revision$
 7 | --  Date          : $Date$
 8 | --  Author        : $Author$
 9 | --  Created By    : $USER_NAME$
10 | --  Created       : $ASCII_TIME$
11 | --  Last Modified : <090829.1750>
12 | --
13 | --  Description	
14 | --
15 | --  Notes
16 | --
17 | --  History
18 | --	
19 | -----------------------------------------------------------------------------
20 | --
21 | --  Copyright (c) $YEAR$ $COMPANY_NAME$.
22 | -- 
23 | --  All Rights Reserved.
24 | -- 
25 | -- This  document  may  not, in  whole  or in  part, be  copied,  photocopied,
26 | -- reproduced,  translated,  or  reduced to any  electronic  medium or machine
27 | -- readable form without prior written consent from $COMPANY_NAME$.
28 | --
29 | -----------------------------------------------------------------------------
30 | 
31 | 


--------------------------------------------------------------------------------
/src/macros/xml.etf:
--------------------------------------------------------------------------------
 1 | 
 2 | 
17 | 


--------------------------------------------------------------------------------
/src/macros/yacc.etf:
--------------------------------------------------------------------------------
 1 | /****************************************************************************
 2 |  *
 3 |  *  System        : 
 4 |  *  Module        : 
 5 |  *  Object Name   : $RCSfile$
 6 |  *  Revision      : $Revision$
 7 |  *  Date          : $Date$
 8 |  *  Author        : $Author$
 9 |  *  Created By    : $USER_NAME$
10 |  *  Created       : $ASCII_TIME$
11 |  *  Last Modified : <090829.1750>
12 |  *
13 |  *  Description	
14 |  *
15 |  *  Notes
16 |  *
17 |  *  History
18 |  *	
19 |  ****************************************************************************
20 |  *
21 |  *  Copyright (c) $YEAR$ $COMPANY_NAME$.
22 |  * 
23 |  *  All Rights Reserved.
24 |  * 
25 |  * This  document  may  not, in  whole  or in  part, be  copied,  photocopied,
26 |  * reproduced,  translated,  or  reduced to any  electronic  medium or machine
27 |  * readable form without prior written consent from $COMPANY_NAME$.
28 |  *
29 |  ****************************************************************************/
30 | 
31 | static const char rcsid[] = "@(#) : $Id$";
32 | 
33 | 
34 | 


--------------------------------------------------------------------------------
/src/macros/zaurus.emf:
--------------------------------------------------------------------------------
 1 | ; -!- emf -!-
 2 | ; This is part of the JASSPA MicroEmacs macro files
 3 | ; Copyright (C) 1998-2009 JASSPA (www.jasspa.com)
 4 | ; See the file me.emf for copying and conditions.
 5 | ;
 6 | ; Synopsis:    Setup file for Zaurus Linux boxes
 7 | ; Authors:     Jon Green & Steven Phillips
 8 | ;
 9 | ; Load up common unix stuff
10 | !force exec-file "unixterm"
11 | ; redefine the main menu due to screen width problems
12 | osd 0  5   "D"
13 | osd 0  10  "Mdfsh" " \HFile "   1
14 | osd 0  15  "D"
15 | osd 0  20  "Mdfsh" " \HEdit "   2
16 | osd 0  25  "D"
17 | osd 0  30  "Mdfsh" " \HSearch "  3
18 | osd 0  35  "D"
19 | osd 0  40  "Mdfsh" " \HInsert "  4
20 | osd 0  45  "D"
21 | osd 0  50  "Mdfsh" " F\Hormat "  5
22 | osd 0  55  "D"
23 | osd 0  60  "Mdfsh" " E\Hxecute "  6
24 | osd 0  65  "D"
25 | osd 0  70  "Mdfsh" " \HTools "  7
26 | osd 0  75  "D"
27 | osd 0  80  "Mdfsh" " \HWindow "  8
28 | osd 0  85  "D"
29 | osd 0  90  "Mdfsr" " \HHelp "     9
30 | ; shrink the default window size so it fits
31 | !if ¬ &set #l0 ® &spr "/history/%s/frame-width" %platform "0"
32 |     change-frame-width 71
33 | !endif
34 | !if ¬ &set #l0 ® &spr "/history/%s/frame-depth" %platform "0"
35 |     change-frame-depth 28
36 | !endif
37 | 
38 | ; no vt100-nam on linux, this may cause problems in an ishell
39 | set-variable %ipipe-term "TERM=vt100"
40 | ;
41 | ; Compile stuff
42 | 0 add-next-line "*compile*"
43 | add-next-line "*compile*" "%f:%l:"
44 | ;
45 | ; Diff stuff; LINUX uses GNU diff so set this up for all LINUX
46 | ; platforms. Nobody is going to change this are they ??
47 | set-variable %diff-com "diff --context --minimal --ignore-space-change --recursive"
48 | 
49 | 


--------------------------------------------------------------------------------
/src/me.rc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/me.rc


--------------------------------------------------------------------------------
/src/me32.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/me32.bmp


--------------------------------------------------------------------------------
/src/memsvc20.rc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/memsvc20.rc


--------------------------------------------------------------------------------
/src/ncmsvc20.rc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/ncmsvc20.rc


--------------------------------------------------------------------------------
/src/ne.rc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/ne.rc


--------------------------------------------------------------------------------
/src/ne32.bmp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/ne32.bmp


--------------------------------------------------------------------------------
/src/nec.rc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/nec.rc


--------------------------------------------------------------------------------
/src/nemsvc20.rc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/nemsvc20.rc


--------------------------------------------------------------------------------
/src/patch.txt:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | 
 4 | Patching(1)                       microemacs                        Patching(1)
 5 | 
 6 | 
 7 | 
 8 | 
 9 | PATCHING 
10 |      This page describes  how to patch  a MicroEmacs installation  with a later
11 |      release without re-installing. 
12 | 
13 |   Windows 
14 |      Windows requires  careful patching  in order  not to  disturb the registry
15 |      settings The following procedure should be followed. 
16 | 
17 |        *  Move to the jasspa directory, c:\ProgramFiles\JASSPA\Microemacs. 
18 |        *  COPY the  executable me32.exe  to a  backup, you  MUST copy  the file
19 |           otherwise the registry settings will change. DO NOT MOVE THE FILE. 
20 | 
21 |             copy me32.exe me32_2002_12.exe 
22 | 
23 |        *  Save the macros directory, these may be moved i.e. 
24 | 
25 |             rename macros macros_2002_12 
26 | 
27 |        *  Unpack and  install  the new  Windows  executable and  COPY  over the
28 |           original executable that was previously backed up i.e. 
29 | 
30 |             copy c:\path-to-executable\me32-win32-20040108-rc1.exe me32.exe 
31 | 
32 |        *  Create a new  macros directory and  install the macros  into this new
33 |           directory, do this manually or using a utility like WINZip. 
34 | 
35 |             mkdir macros 
36 |             cd macros 
37 |             unzip c:\path-to\memacros-20040108-rc1.zip 
38 | 
39 |        *  The  new  version  of  MicroEmacs  will  now  operate  with  the  old
40 |           installation environment.  You  may  return  to  the  old  release by
41 |           reversing the steps to patch the installation. 
42 | 
43 |   UNIX/Linux 
44 |      For *NIX package installations then patching is a little easier. The steps
45 |      are defined as follows:- 
46 | 
47 |        *  Move to the jasspa directory. 
48 | 
49 |             cd /opt/jasspa/bin 
50 | 
51 |        *  Save the original executable. 
52 | 
53 |             mv me me_200212 
54 | 
55 |        *  Unpack the new executable and make it executable. 
56 | 
57 |             gunzip me-sun-solaris-20040108-rc1.gz 
58 |             mv me-sun-solaris-20040108-rc1 me 
59 |             chmod a+x me 
60 | 
61 |        *  Save the existing macros directory. 
62 | 
63 |             cd /opt/jasspa 
64 |             mv macros macros_200212 
65 | 
66 |        *  Create a new macros directory and install the new macros:- 
67 | 
68 |             mkdir macros 
69 |             cd macros 
70 |             unzip /path-to/memacros-20040108-rc1.zip 
71 | 
72 |        *  Installed packages  are built  with the  install path  built into the
73 |           executable, this  may  be different  from  the patch  version  of the
74 |           executable  so  the  environment  variable  $MEINSTALLPATH(5)  may be
75 |           defined in the environment with the macro installation search paths. 
76 | 
77 | SEE ALSO 
78 |      $MENAME(5), $MEINSTALLPATH(5), Company Profiles, Installation, File Hooks,
79 |      File Language Templates, User Profiles. 
80 | 
81 | 


--------------------------------------------------------------------------------
/src/spell.c:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/vitalyster/microemacs/b176b782b6411b7f4313a20d61b97429a3deeb64/src/spell.c


--------------------------------------------------------------------------------
/src/winterm.h:
--------------------------------------------------------------------------------
 1 | /* -*- c -*-
 2 |  *
 3 |  * JASSPA MicroEmacs - www.jasspa.com
 4 |  * winterm.h - Windows shared definitions.
 5 |  *
 6 |  * Copyright (C) 1999-2001 Jon Green
 7 |  * Copyright (C) 2002-2009 JASSPA (www.jasspa.com)
 8 |  *
 9 |  * This program is free software; you can redistribute it and/or modify it
10 |  * under the terms of the GNU General Public License as published by the Free
11 |  * Software Foundation; either version 2 of the License, or (at your option)
12 |  * any later version.
13 |  *
14 |  * This program is distributed in the hope that it will be useful, but WITHOUT
15 |  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
16 |  * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
17 |  * more details.
18 |  *
19 |  * You should have received a copy of the GNU General Public License along
20 |  * with this program; if not, write to the Free Software Foundation, Inc.,
21 |  * 675 Mass Ave, Cambridge, MA 02139, USA.
22 |  */
23 | /*
24 |  * Created:     Mon May 24 1999
25 |  * Synopsis:    Windows shared definitions.
26 |  * Authors:     Jon Green
27 |  * Description:
28 |  *     Export shared definitions of the windows specific environment with
29 |  *     the different windows specific source files.
30 |  */
31 | 
32 | #ifndef __WINTERM_H__
33 | #define __WINTERM_H__
34 | 
35 | /* Font type settings */
36 | extern LOGFONT ttlogfont;               /* Current logical font */
37 | 
38 | /* The metrics associated with a charcter cell */
39 | typedef struct
40 | {
41 |     int sizeX;                          /* Character cell size in X width */
42 |     int sizeY;                          /* Character cell size in Y (height) */
43 |     int midX;                           /* Mid position of the cell */
44 |     int midY;                           /* Mid position of the cell */
45 | }  CharMetrics;
46 | 
47 | #endif /* __WINTERM_H__ */
48 | 
49 | 


--------------------------------------------------------------------------------
/src/wintermr.h:
--------------------------------------------------------------------------------
 1 | // -*- c++ -*-
 2 | //
 3 | // JASSPA MicroEmacs - www.jasspa.com
 4 | // wintermr.h - Auto-generated MS Windows header
 5 | //
 6 | // Copyright (C) 1996-2001 Jon Green
 7 | // Copyright (C) 2002-2009 JASSPA (www.jasspa.com)
 8 | //
 9 | // This program is free software; you can redistribute it and/or modify it
10 | // under the terms of the GNU General Public License as published by the Free
11 | // Software Foundation; either version 2 of the License, or (at your option)
12 | // any later version.
13 | //
14 | // This program is distributed in the hope that it will be useful, but WITHOUT
15 | // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
16 | // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
17 | // more details.
18 | //
19 | // You should have received a copy of the GNU General Public License along
20 | // with this program; if not, write to the Free Software Foundation, Inc.,
21 | // 675 Mass Ave, Cambridge, MA 02139, USA.
22 | //
23 | // include version header for rc version strings
24 | #include "evers.h"
25 | 
26 | /////////////////////////////////////////////////////////////////////////////
27 | //{{NO_DEPENDENCIES}}
28 | // Microsoft Developer Studio generated include file.
29 | // Used by me.rc
30 | //
31 | #define IDS_FONTFILE                    1
32 | #define IDD_PRINTER_PAGE_SETUP          1
33 | #define IDD_PRINTER_CONFIGURATION       1
34 | #define IDI_ICON1                       101
35 | #define IDD_ABORT                       103
36 | #define IDD_QUITEXIT                    104
37 | #define IDB_BITMAP1                     106
38 | #define IDC_PC_AREA                     1001
39 | #define IDC_PAPER_AREA                  1001
40 | #define IDC_PC_OK                       1002
41 | #define IDC_PC_PRINT                    1002
42 | #define IDC_PC_CANCEL                   1003
43 | #define IDC_PC_CURRENT_FONT             1004
44 | #define IDC_PAGE_PROPS                  1004
45 | #define IDC_PC_FONT_SELECT              1005
46 | #define IDC_PC_PRINTER_SETUP            1006
47 | #define IDC_PC_PRINTER                  1007
48 | #define IDC_PAGE_AREA                   1008
49 | #define IDC_WIDTH                       1014
50 | #define IDC_HEIGHT                      1015
51 | #define IDC_COLUMNS                     1016
52 | #define IDC_ROWS                        1017
53 | #define IDC_LINE_NOS                    1018
54 | #define IDC_HEADER                      1019
55 | #define IDC_FOOTER                      1020
56 | #define IDC_WIDTH_EXACTLY               1021
57 | #define IDC_HEIGHT_EXACTLY              1022
58 | #define IDC_FILE                        1023
59 | #define IDC_EDIT1                       1024
60 | #define IDC_SET_WIDTH                   1025
61 | #define IDC_SET_HEIGHT                  1026
62 | #define IDC_RICHEDIT1                   1029
63 | #define IDC_FONTFACE                    1030
64 | #define IDC_LANDSCAPE                   1034
65 | 
66 | // Next default values for new objects
67 | //
68 | #ifdef APSTUDIO_INVOKED
69 | #ifndef APSTUDIO_READONLY_SYMBOLS
70 | #define _APS_NEXT_RESOURCE_VALUE        108
71 | #define _APS_NEXT_COMMAND_VALUE         40001
72 | #define _APS_NEXT_CONTROL_VALUE         1035
73 | #define _APS_NEXT_SYMED_VALUE           102
74 | #endif
75 | #endif
76 | 


--------------------------------------------------------------------------------