branch: externals/nano-agenda
commit 034691a5b135e626cf40e32b3b08a41ed9aa0550
Author: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Commit: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Linting
---
nano-agenda.el | 31 ++++++++++++++-----------------
1 file changed, 14 insertions(+), 17 deletions(-)
diff --git a/nano-agenda.el b/nano-agenda.el
index d1c1d05..fadfef9 100644
--- a/nano-agenda.el
+++ b/nano-agenda.el
@@ -209,11 +209,20 @@
(defun nano-agenda-select-window ()
- "Default function to select where to show agenda. Default
-behavior is to split vertically current window."
+ "Function to select where to show agenda. Default
+behavior is to split vertically current window.
+
+ (before) (after)
++--------------------------+ +--------------------------+
+| | | |
+| | | |
+| | -> | |
+| | +----------+---------------+
+| | | calendar | agenda |
++--------------------------+ +----------+---------------+"
+
(split-window nil -10 nil))
-
(defun nano-agenda-select-entry (entry)
"Function to decide whether an entry is
displayed/counted. Default behavior is to select only timestamped
@@ -237,16 +246,7 @@ entries."
(defun nano-agenda ()
- "Create windows & buffers associated with the agenda (below current window).
-
- (before) (after)
-+--------------------------+ +--------------------------+
-| | | |
-| | | |
-| | -> | |
-| | +----------+---------------+
-| | | calendar | agenda |
-+--------------------------+ +----------+---------------+"
+ "Create windows & buffers associated with the agenda."
(interactive)
@@ -386,8 +386,6 @@ for efficiency."
(goto-char (point-min)))
-
-
(defun nano-agenda--populate-calendar ()
"Populate the calendar according to the month of the current selected date."
@@ -478,8 +476,7 @@ for efficiency."
""))
'keymap map))
(if (< col 6)
- (insert (propertize (if is-today "•" " ") 'face face))
- )))
+ (insert (propertize (if is-today "•" " ") 'face face)))))
(if (< row 5) (insert "\n")))))
(provide 'nano-agenda)
