[elpa] externals/nano-agenda 034691a 6/6: Linting

[ELPA Syncer]

branch: externals/nano-agenda
commit 034691a5b135e626cf40e32b3b08a41ed9aa0550
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@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)