first working version of project DSL has been finished

lib/extensions/development/project-dsl.el

@@ -4,14 +4,42 @@
 (defvar open-project-configurations (make-hash-table :test 'equal)
   "This hashmap is responsible for storing project configurations.")
 
-(defmacro run (body)
+(defmacro on-run (body)
   "It's going to run the given BODY when user wanted to run the project."
   `(let ((pmap (gethash __project-name__
                         open-project-configurations
                         (make-hash-table :test 'equal))))
 
-     (puthash :run (lambda () ,body) pmap)
+     (puthash :run (lambda (buffer) ,body) pmap)
      (puthash __project-name__ pmap open-project-configurations)))
 
+(defmacro run-shell-command (command)
+  "Run the given shell COMMAND on the run buffer."
+  `(async-shell-command ,command buffer))
+
+;; TASK RUNNERS ---------------------------------------
+(defun with-buffer (name action)
+  "Create a buffer with the given NAME for the given ACTION."
+  (get-buffer-create (format "*%s %s*" name action)))
+
+(defun run-task-buffer (project-name)
+  "Create or get the buffer which hold the output of run task.
+
+   The buffer name will contains PROJECT-NAME."
+  (with-buffer project-name "run"))
+
+(defun execute-task (project task-name)
+  "Run the task for PROJECT with the given TASK-NAME."
+  (let* ((project-hash (gethash project open-project-configurations))
+         (task         (gethash task-name project-hash))
+         (buf          (with-buffer project task-name)))
+    (funcall task buf)))
+
+(defun execute-run-task ()
+  "Execute the :run task for the current project."
+  (interactive)
+  (let ((project (cdr (project-current))))
+    (execute-task project :run)))
+
 (provide 'extensions/development/project-dsl)
 ;;; project-dsl  ends here