From 069d5b17959bec9b615b28155741659fc9f1fa3c Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@secrets.local>
Date: Thu, 13 Nov 2008 15:47:39 -0600
Subject: [PATCH] add etexteditor
---
basis/editors/etexteditor/authors.txt | 1 +
basis/editors/etexteditor/etexteditor.factor | 18 ++++++++++++++++++
basis/editors/etexteditor/summary.txt | 1 +
basis/editors/etexteditor/tags.txt | 1 +
4 files changed, 21 insertions(+)
create mode 100755 basis/editors/etexteditor/authors.txt
create mode 100755 basis/editors/etexteditor/etexteditor.factor
create mode 100755 basis/editors/etexteditor/summary.txt
create mode 100755 basis/editors/etexteditor/tags.txt
diff --git a/basis/editors/etexteditor/authors.txt b/basis/editors/etexteditor/authors.txt
new file mode 100755
index 0000000000..7b1e3b7fa0
--- /dev/null
+++ b/basis/editors/etexteditor/authors.txt
@@ -0,0 +1 @@
+Kibleur Christophe
\ No newline at end of file
diff --git a/basis/editors/etexteditor/etexteditor.factor b/basis/editors/etexteditor/etexteditor.factor
new file mode 100755
index 0000000000..1ce1004535
--- /dev/null
+++ b/basis/editors/etexteditor/etexteditor.factor
@@ -0,0 +1,18 @@
+! Copyright (C) 2008 Kibleur Christophe.
+! See http://factorcode.org/license.txt for BSD license.
+USING: editors io.files io.launcher kernel math.parser
+namespaces sequences windows.shell32 make ;
+IN: editors.etexteditor
+
+: etexteditor-path ( -- str )
+ \ etexteditor-path get-global [
+ program-files "e\\e.exe" append-path
+ ] unless* ;
+
+: etexteditor ( file line -- )
+ [
+ etexteditor-path ,
+ "-n" swap number>string append , ,
+ ] { } make run-detached drop ;
+
+[ etexteditor ] edit-hook set-global
diff --git a/basis/editors/etexteditor/summary.txt b/basis/editors/etexteditor/summary.txt
new file mode 100755
index 0000000000..46537003d9
--- /dev/null
+++ b/basis/editors/etexteditor/summary.txt
@@ -0,0 +1 @@
+etexteditor integration
diff --git a/basis/editors/etexteditor/tags.txt b/basis/editors/etexteditor/tags.txt
new file mode 100755
index 0000000000..6bf68304bb
--- /dev/null
+++ b/basis/editors/etexteditor/tags.txt
@@ -0,0 +1 @@
+unportable