[elpa] externals/nano-modeline e84ca06 05/24: Removed optional position

[ELPA Syncer]

branch: externals/nano-modeline
commit e84ca06fe6726c6d9f8fff37ed94735e3b4897ab
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Removed optional position
---
 nano-modeline.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/nano-modeline.el b/nano-modeline.el
index b88c8aa..b7c512c 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -50,7 +50,7 @@ Modeline is composed as:
 (defvar nano-modeline--selected-window nil
   "Currently selected window")
 
-(defcustom nano-modeline-position 'bottom
+(defcustom nano-modeline-position 'top
   "Default position (top or bottom)"
   :type '(choice (const :tag "Top"    top)
                  (const :tag "Bottom" bottom))
@@ -578,13 +578,12 @@ Modeline is composed as:
                       :underline  'unspecified :overline   'unspecified
                       :box        'unspecified :inherit    'unspecified))
 
-(defun nano-modeline (&optional position)
+(defun nano-modeline ()
   "Install a header line whose content is dependend on the major mode"
   (interactive)
 
   ;; Update selected window
   (setq nano-modeline--selected-window (selected-window))
-  (setq nano-modeline-position (or position nano-modeline-position))
   
   ;; "Box" effect is obtained through display property
   (nano-modeline-face-clear 'mode-line)
@@ -593,14 +592,14 @@ Modeline is composed as:
   (setq eshell-status-in-modeline nil)
   
         ;; TTY mode top
-  (cond ((and (not (display-graphic-p) (eq nano-modeline-position 'top)))
+  (cond ((and (not (display-graphic-p)) (eq nano-modeline-position 'top))
         (setq mode-line-format nil)
         (setq-default mode-line-format nil)
         (set-face-attribute 'mode-line nil :inherit 'nano-modeline-active)
         (set-face-attribute 'mode-line-inactive nil :inherit 
'nano-modeline-inactive))
 
        ;; TTY Mode bottom
-       ((and (not (display-graphic-p) (eq nano-modeline-position 'top)))
+       ((and (not (display-graphic-p)) (eq nano-modeline-position 'top))
         (setq header-line-format nil)
         (setq-default header-line-format nil))