Now observes the limit argument sent by dashboard.

Author: Jason Duncan

dashboard-project-status.el

@@ -61,21 +61,28 @@
        " is behind the remote. (use \"git pull\" to update)"
      " is up-to-date.")))
 
-(defun dashboard-project-status-insert-body ()
-  "Insert lists of untracked, unstaged, and staged files."
-  (dolist (section `(("Untracked Files:" . ,(git-untracked-files))
-                     ("Unstaged Files:"  . ,(dashboard-project-status-git-unstaged-files))
-                     ("Staged Files:"    . ,(git-staged-files))))
-    (when (cdr section)
-      (insert hard-newline)
-      (dashboard-insert-recentf-list
-       (car section)
-       (reverse
-        (let (ret)
-          (dolist (cur (cdr section) ret)
-            (setq ret (cons (expand-file-name
-                             (concat (file-name-as-directory git-repo) cur))
-                            ret)))))))))
+(defun dashboard-project-status-insert-body (limit)
+  "Insert lists of untracked, unstaged, and staged files LIMIT -ed as specified."
+  (let ((count 0))
+    (dolist (section `(("Untracked Files:" . ,(git-untracked-files))
+                       ("Unstaged Files:"  . ,(dashboard-project-status-git-unstaged-files))
+                       ("Staged Files:"    . ,(git-staged-files))))
+      (when (cdr section)
+        (let* ((items (cdr section))
+               (items (if (> (+ count (length items)) limit)
+                          (dashboard-subseq items 0 (- limit count))
+                        items)))
+          (when items
+            (setq count (+ count (length items)))
+            (insert hard-newline)
+            (dashboard-insert-recentf-list
+             (car section)
+             (reverse
+              (let (ret)
+                (dolist (cur items ret)
+                  (setq ret (cons (expand-file-name
+                                   (concat (file-name-as-directory git-repo) cur))
+                                  ret))))))))))))
 
 (defun dashboard-project-status (project-dir &optional update)
   "Return a function which will insert git status for PROJECT-DIR.
@@ -84,7 +91,7 @@ If UPDATE is non-nil, update the remote first with 'git remote update'."
      (let ((git-repo ,project-dir))
        (when ,update (git-run "remote" "update"))
        (dashboard-project-status-insert-heading)
-       (dashboard-project-status-insert-body))))
+       (dashboard-project-status-insert-body list-size))))
 
 (provide 'dashboard-project-status)
 ;;; dashboard-project-status.el ends here

test/dashboard-project-status-test.el

@@ -12,19 +12,23 @@
     (stub dashboard-project-status-insert-heading)
     (stub dashboard-project-status-insert-body)
     (funcall (dashboard-project-status "foo") nil))
+
   (desc "dashboard-project-status with non-nil UPDATE value")
   (expect (mock (git-run "remote" "update") => nil)
     (stub dashboard-project-status-insert-heading)
     (stub dashboard-project-status-insert-body)
     (funcall (dashboard-project-status "foo" t) nil))
+
   (desc "dashboard-project-status inserts a heading")
   (expect (mock (dashboard-project-status-insert-heading) => nil)
     (stub dashboard-project-status-insert-body)
     (funcall (dashboard-project-status "foo") nil))
+
   (desc "dashboard-project-status inserts a body")
-  (expect (mock (dashboard-project-status-insert-body) => nil)
+  (expect (mock (dashboard-project-status-insert-body 7) => nil)
     (stub dashboard-project-status-insert-heading)
-    (funcall (dashboard-project-status "foo") nil))
+    (funcall (dashboard-project-status "foo") 7))
+
   (desc "dashboard-project-status-insert-heading when magit is present inserts status text")
   ;; the blank in the middle is where the widget should go,
   ;; but I cannot as yet figure out a way to test that
@@ -36,6 +40,7 @@
         (mocklet (((functionp 'magit-status) => t))
           (dashboard-project-status-insert-heading)))
       (buffer-string)))
+
   (desc "dashboard-project-status-insert-heading when magit is not present only inserts text")
   (expect "Project foo is up-to-date."
     (stub dashboard-project-status-git-local-is-behind?)
@@ -44,14 +49,16 @@
         (mocklet (((functionp 'magit-status)))
           (dashboard-project-status-insert-heading)))
       (buffer-string)))
+
   (desc "dashboard-project-status-insert-body inserts nothing when no items")
   (expect ""
     (stub git-untracked-files)
     (stub dashboard-project-status-git-unstaged-files)
     (stub git-staged-files)
     (with-temp-buffer
-      (dashboard-project-status-insert-body)
+      (dashboard-project-status-insert-body 5)
       (buffer-string)))
+
   (desc "dashboard-project-status-insert-body inserts untracked files")
   (expect (concat  "\nUntracked Files:"
                    "\n    "
@@ -69,8 +76,9 @@
       (let ((git-repo "foo"))
         (flet ((widget-create (&rest args)
                               (insert (car (last args)))))
-          (dashboard-project-status-insert-body)))
+          (dashboard-project-status-insert-body 5)))
       (buffer-string)))
+
   (desc "dashboard-project-status-insert-body inserts unstaged files")
   (expect (concat  "\nUnstaged Files:"
                    "\n    "
@@ -88,8 +96,9 @@
       (let ((git-repo "foo"))
         (flet ((widget-create (&rest args)
                               (insert (car (last args)))))
-          (dashboard-project-status-insert-body)))
+          (dashboard-project-status-insert-body 5)))
       (buffer-string)))
+
   (desc "dashboard-project-status-insert-body inserts staged files")
   (expect (concat  "\nStaged Files:"
                    "\n    "
@@ -107,16 +116,53 @@
       (let ((git-repo "foo"))
         (flet ((widget-create (&rest args)
                               (insert (car (last args)))))
-          (dashboard-project-status-insert-body)))
+          (dashboard-project-status-insert-body 5)))
+      (buffer-string)))
+
+  (desc "dashboard-project-status-insert-body observes limit")
+  (expect (concat "\nUntracked Files:"
+                  "\n    "
+                  (abbreviate-file-name
+                   (expand-file-name
+                    (concat (file-name-as-directory "foo") "foo")))
+                  "\n    "
+                  (abbreviate-file-name
+                   (expand-file-name
+                    (concat (file-name-as-directory "foo") "bar")))
+                  "\nUnstaged Files:"
+                  "\n    "
+                  (abbreviate-file-name
+                   (expand-file-name
+                    (concat (file-name-as-directory "foo") "foo")))
+                  "\n    "
+                  (abbreviate-file-name
+                   (expand-file-name
+                    (concat (file-name-as-directory "foo") "bar")))
+                  "\nStaged Files:"
+                  "\n    "
+                  (abbreviate-file-name
+                   (expand-file-name
+                    (concat (file-name-as-directory "foo") "foo"))))
+    (stub git-untracked-files => '("foo" "bar"))
+    (stub dashboard-project-status-git-unstaged-files => '("foo" "bar"))
+    (stub git-staged-files => '("foo" "bar"))
+    (with-temp-buffer
+      (let ((git-repo "foo"))
+        (flet ((widget-create (&rest args)
+                              (insert (car (last args)))))
+          (dashboard-project-status-insert-body 5)))
       (buffer-string)))
+
   (desc "dashboard-project-status-git-local-is-behind? returns non nil when branch is behind")
   (expect t
     (mock (git-run "status" "-uno") => "Your branch is behind")
     (dashboard-project-status-git-local-is-behind?))
+
   (desc "dashboard-project-status-git-local-is-behind? returns nil when branch is not behind")
   (expect nil
     (mock (git-run "status" "-uno") => "")
     (dashboard-project-status-git-local-is-behind?))
+
   (desc "dashboard-project-status-git-unstaged-files returns a list of unstaged files")
   (expect '("foo" "bar")
     (mock (git-run "diff" "--name-only") => "foo\nbar")