From 8f3936b16e3d5e3309f2a428aabfbb2ab2457b30 Mon Sep 17 00:00:00 2001
From: Leon Rische <leon.rische@me.com>
Date: Wed, 11 Nov 2020 11:05:36 +0100
Subject: Remove top level heading in dashboard

---
 org-fc.el | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

diff --git a/org-fc.el b/org-fc.el
index 5ad0bdb..4ea4930 100644
--- a/org-fc.el
+++ b/org-fc.el
@@ -1635,35 +1635,33 @@ Pauses the review, unnarrows the buffer and activates
          (reviews-stats (org-fc-awk-stats-reviews)))
     (with-current-buffer buf
       (erase-buffer)
-      (insert
-       (propertize "Flashcards\n\n" 'face 'org-level-1))
 
       (insert
-       (propertize "  Card Statistics\n\n" 'face 'org-level-1))
+       (propertize "Card Statistics\n\n" 'face 'org-level-1))
 
-      (insert (format "    New: %d (day) %d (week) %d (month) \n"
+      (insert (format "  New: %d (day) %d (week) %d (month) \n"
                       (plist-get stats :created-day)
                       (plist-get stats :created-week)
                       (plist-get stats :created-month)))
 
       (insert "\n")
       (insert (format
-               "    %6d Cards, %d suspended\n"
+               "  %6d Cards, %d suspended\n"
                (plist-get stats :total)
                (plist-get stats :suspended)))
       (dolist (pair (plist-get stats :by-type))
-        (insert (format "    %6d %s\n" (cdr pair) (car pair))))
+        (insert (format "  %6d %s\n" (cdr pair) (car pair))))
       (insert "\n")
       (insert
-       (propertize "  Position Statistics\n\n" 'face 'org-level-1))
+       (propertize "Position Statistics\n\n" 'face 'org-level-1))
 
-      (insert (format "    %6d Due Now\n\n" (plist-get stats :due)))
+      (insert (format "  %6d Due Now\n\n" (plist-get stats :due)))
 
       (dolist (position '((:avg-ease . "Avg. Ease")
                           (:avg-box . "Avg. Box")
                           (:avg-interval . "Avg. Interval (days)")))
         (insert
-         (format "    %6.2f %s\n"
+         (format "  %6.2f %s\n"
                  (plist-get stats (car position))
                  (cdr position))))
 
@@ -1671,7 +1669,7 @@ Pauses the review, unnarrows the buffer and activates
 
       (when reviews-stats
         (insert
-         (propertize "  Review Statistics (All Cards)\n\n" 'face 'org-level-1))
+         (propertize "Review Statistics (All Cards)\n\n" 'face 'org-level-1))
 
         (dolist (scope '((:day . "Day")
                          (:week . "Week")
@@ -1688,9 +1686,9 @@ Pauses the review, unnarrows the buffer and activates
               )))
         (insert "\n"))
       (insert
-       (propertize "  [r] Review\n" 'face 'org-level-1))
+       (propertize "[r] Review\n" 'face 'org-level-1))
       (insert
-       (propertize "  [q] Quit\n" 'face 'org-level-1)))))
+       (propertize "[q] Quit\n" 'face 'org-level-1)))))
 
 (defvar org-fc-dashboard-mode-map
   (let ((map (make-sparse-keymap)))
-- 
cgit v1.2.3