From e44a7a4cf9d55779b80b4f9d5d0e15466d9fa2fd Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 24 Jul 2024 09:38:37 +0300 Subject: New function: dashboard--add-padding * Add padding for str-length. This is meant to be used with displaying month graphs --- gnosis-dashboard.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gnosis-dashboard.el') diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el index 103d36b..a25fe81 100644 --- a/gnosis-dashboard.el +++ b/gnosis-dashboard.el @@ -112,6 +112,12 @@ Skips days where no note was reviewed." (propertize string 'face 'font-lock-constant-face)))) (defun gnosis-dashboard-reviews-graph (dates &optional remove-spaces) +(defun gnosis-dashboard--add-padding (str-length) + "Add padding for STR-LENGTH." + (let ((padding (/ (- (window-width) str-length) 2))) + (make-string padding ?\s))) + +(defun gnosis-dashboard-reviews-graph (dates &optional ) "Insert graph for month DATES. Optionally, use REMOVE-SPACES when using multiple months." -- cgit v1.2.3