fixup zeus.el

fixup some old function definitions lurking into the new code...
burke · Mar 9, 2017 · 9a1f377 · 9a1f377
1 parent 7f63ae9
commit 9a1f377
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/emacs/zeus.el b/emacs/zeus.el
@@ -35,14 +35,17 @@
   (-flatten (delq nil (mapcar
                        (function (lambda (entry)
                                    (cond
-                                    ((command-p entry) (car entry))
-                                    ((listp entry) (filter-commands entry)))))
+                                    ((zeus--command-p entry) (car entry))
+                                    ((listp entry) (zeus--extract-commands entry)))))
                        entries))))
 
 (defun zeus--completing-read ()
   (if zeus-mode-completion-use-ido
       'ido-completing-read 'completing-read))
 
+(defun zeus--command-p (entry)
+  (and (listp entry) (arrayp (cdr entry))))
+
 ;;;###autoload
 (defun zeus-start ()
   "Start the zeus server in the current directory using simple-status output"
@@ -63,4 +66,4 @@
   (let ((cmd-name (concat "zeus" cmd)))
     (pop-to-buffer (zeus--run cmd-name "*zeus-command*" cmd))))
 
-(provide 'zeus-mode)
+(provide 'zeus)