impls hooks

Author: jcs090218

Qob

@@ -1,8 +1,30 @@
 ;; -*- mode: lisp; lexical-binding: t -*-
 
-(files "lisp")
+(files "lisp"
+       "scripts"
+       "Makefile"
+       "LICENSE"
+       "Qob")
 
 (source "quicklisp")
 (source "ultralisp")
 
+;; Test local systems
 (depends-on "fsdb" "https://github.com/billstclair/fsdb" :git)
+
+;; Test hooks
+(qob-add-hook 'qob-before-command-hook
+              (lambda ()
+                (qob-info "? before command")))
+
+(qob-add-hook 'qob-after-command-hook
+              (lambda ()
+                (qob-info "? after command")))
+
+(qob-add-hook 'qob-before-info-hook
+              (lambda ()
+                (qob-info "? before info")))
+
+(qob-add-hook 'qob-after-info-hook
+              (lambda ()
+                (qob-info "? after info")))

lisp/_prepare.lisp

@@ -16,6 +16,9 @@
 (defvar qob-files nil)
 (defvar qob-depends-on nil)
 
+(defvar qob-before-command-hook nil)
+(defvar qob-after-command-hook nil)
+
 ;;
 ;;; Utils
 
@@ -599,6 +602,58 @@ Set up the systems; on contrary, you should use the function
 (defvar qob-dist-path "dist/"
   "Default path where to place the package artifact.")
 
+;;
+;;; Entry
+
+(defun qob-add-hook (hook function)
+  "Add FUNCTION to the HOOK list if not already present."
+  (set hook nil)  ; Declare it.
+  (unless (member function (symbol-value hook))
+    (push function (symbol-value hook))))
+
+(defun qob-run-hooks (hooks)
+  "Run all functions in the HOOKS list."
+  (dolist (fn (ignore-errors (symbol-value hooks)))
+    (funcall fn)))
+
+(defun qob--form-command-var (name)
+  "From the command variable by NAME."
+  (let* ((name (string-upcase name))
+         (name (intern name)))
+    name))
+
+(defun qob--before-command-var ()
+  "Return the before command name."
+  (let* ((command (qob-command))
+         (before  (concatenate 'string "qob-before-" command "-hook")))
+    (qob--form-command-var before)))
+
+(defun qob--after-command-var ()
+  "Return the after command name."
+  (let* ((command (qob-command))
+         (after   (concatenate 'string "qob-after-" command "-hook")))
+    (qob--form-command-var after)))
+
+;; Define variable
+(let ((before  (qob--before-command-var))
+      (after   (qob--after-command-var)))
+  (set before nil)
+  (set after nil))
+
+(defun qob--with-hooks (body)
+  "Execute BODY with before/after hooks."
+  (let ((before  (qob--before-command-var))
+        (after   (qob--after-command-var)))
+    (qob-run-hooks 'qob-before-command-hook)
+    (qob-run-hooks before)
+    (funcall body)
+    (qob-run-hooks after)
+    (qob-run-hooks 'qob-after-command-hook)))
+
+(defmacro qob-start (&rest body)
+  "Execute BODY with workspace setup."
+  `(qob--with-hooks (lambda () ,@body)))
+
 ;;
 ;;; Initialization
 

lisp/core/info.lisp

@@ -52,18 +52,19 @@
       (qob-info--print-dep depends-on)
       (qob-info--print-dep (mapcar #'car qob-depends-on)))))
 
-(let ((names (qob-args))
-      (default-system (qob-only-system)))
-  (cond
-    ;; If only specified one system.
-    (default-system
-     (qob-info--print-system (car default-system)))
-    ;; If no system(s) specified.
-    ((zerop (length names))
-     (qob-help "core/info"))
-    ;; Print all systems information.
-    (t
-     (dolist (name names)
-       (qob-info--print-system name)))))
+(qob-start
+ (let ((names (qob-args))
+       (default-system (qob-only-system)))
+   (cond
+     ;; If only specified one system.
+     (default-system
+      (qob-info--print-system (car default-system)))
+     ;; If no system(s) specified.
+     ((zerop (length names))
+      (qob-help "core/info"))
+     ;; Print all systems information.
+     (t
+      (dolist (name names)
+        (qob-info--print-system name))))))
 
 ;;; End of lisp/core/info.lisp