diff --git a/wms_editor.sh b/wms_editor.sh
new file mode 100755
index 0000000..2c5b76d
--- /dev/null
+++ b/wms_editor.sh
@@ -0,0 +1,15 @@
+#!/bin/sh
+
+##  check if there is an open Emacs window ##
+## dependencies: wname, lsw.
+
+ENAME="emacs"
+ECMD='emacsclient -c --alternate-editor=""'
+
+TARGET=$(for wid in $(lsw); do
+	     printf '%s\n' "$wid $(atomx WM_CLASS $wid)"
+	 done | grep emacs | cut -d ' ' -f1)
+
+[ $TARGET ] && wms_mainrole.sh $TARGET \
+	|| $ECMD
+