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