Add progress indication to extend/implement [#19 state:open]

src/main/lisp/malabar-mode.el

@@ -773,6 +773,18 @@ in the list")
   (or (malabar--public-p class-info)
       (equal (malabar-get-package-name) (malabar-get-package-of qualified-class))))
 
+(defun malabar--override-all (methods)
+  (let ((c-progress-interval nil)
+        (c-echo-syntactic-information-p nil)
+        (method-count (length methods))
+        (counter 0))
+    (message nil)
+    (working-status-forms "Overriding methods...%s" nil
+      (dolist (method methods)
+        (working-status (/ (* (incf counter) 100) method-count) (malabar--get-name method))
+        (malabar-override-method method))
+      (working-status t "done"))))
+
 (defun malabar-implement-interface (&optional interface)
   (interactive)
   (destructuring-bind (interface qualified-interface interface-info)
@@ -798,7 +810,7 @@ in the list")
                       ">")))
     (unless (eolp)
       (newline-and-indent))
-    (mapc #'malabar-override-method (malabar--get-abstract-methods interface-info))))
+    (malabar--override-all (malabar--get-abstract-methods interface-info))))
 
 (defun malabar--implement-interface-move-to-insertion-point ()
   (malabar-goto-start-of-class)
@@ -860,7 +872,7 @@ in the list")
                   (c-indent-defun)
                   (forward-line 2))
                 accessible-constructors)
-          (mapc #'malabar-override-method (malabar--get-abstract-methods class-info)))))))
+          (malabar--override-all (malabar--get-abstract-methods class-info)))))))
 
 (defun malabar--extend-class-move-to-constructor-insertion-point ()
   (let ((class-tag (malabar-get-class-tag-at-point)))