David Krentzlin avatar David Krentzlin committed 495fb9e Draft Merge

Comments (0)

Files changed (3)

mira.core/mira.core.asd

                            (:file "utils" :depends-on ("debug"))
                            (:file "bootable" :depends-on ("debug"))
                            (:file "acl")
-                           (:file "logging")
+                           (:file "logging" :depends-on ("debug"))
                            (:file "message-passing" :depends-on ("utils"))
                            (:file "message" :depends-on ("utils" "logging"))
                            (:file "channel" :depends-on ("message" "message-passing" "bootable" "logging"))

mira.core/src/processor.lisp

   (setup-commands processor))
 
 ;;
-;;
+;; (defcommand processor 0 (echo (content &key (foo  1))
 ;; (defmethod setup-commands ((proc <my-procssor>))
 ;;   (defcommand proc 0 (echo (content &key (foo  1))
 ;;                           (do-sth-with content)))))
 
-;;   (defusage proc echo
+;; (defusage processor echo
 ;;     :banner "echo content"
 ;;     (foo :required "Sets the frooble")
 ;;     (bar :optional "Set the barble"))
 
 @export
 (defmacro defusage (processor command-name banner &rest options)
-  `(defmethod add-command :after ((eql ,processor) cmd-name cmd)
-     (when (equal? (string ',command-name) (string cmd-name))
-       (with-slots (usage help) ,cmd
-         (setf usage banner)
-         (setf help (generate-help
-                     (string ',command-name)
-                     banner
-                     '(,@options)))))))
+  `(with-slots (usage help) ,processor
+     (setf usage banner)
+     (setf help (generate-help
+                 (string ',command-name)
+                 banner
+                 '(,@options)))))
 
 (defun command-syntax? (input self-ident)
   (cl-ppcre:scan (format nil "^~A:? +~A(.+?)"

mira.processors/src/.dict-validwords

 uninterned
+asd
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.