[nongnu] elpa/telephone-line a686ae4af2 036/195: Change lhs/rhs from outside-in to left-to-right

[ELPA Syncer]

branch: elpa/telephone-line
commit a686ae4af272ce9fa93f6ffbcf39ebfc2aa029fa
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>

    Change lhs/rhs from outside-in to left-to-right
---
 readme.org        |  8 ++++++--
 telephone-line.el | 10 +++++-----
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/readme.org b/readme.org
index 04004ca98d..44e1e88d0d 100644
--- a/readme.org
+++ b/readme.org
@@ -40,13 +40,17 @@ Here's the relevant section:
           (nil    . (telephone-line-minor-mode-segment
                      telephone-line-buffer-segment))))
 (setq telephone-line-rhs
-        '((evil   . (telephone-line-airline-position-segment))
+        '((nil    . (telephone-line-misc-info-segment))
           (accent . (telephone-line-major-mode-segment))
-          (nil    . (telephone-line-misc-info-segment))))
+          (evil   . (telephone-line-airline-position-segment))))
 #+end_src
 
 ...That's it. That's essentially all there is to creating a theme.
 
+Now, before you go copy-pasting the above config, it's important to
+know that it requires both evil and erc. If you're not using evil,
+though, the defaults should be fine.
+
 * Advanced Customization
 
 ** Separators
diff --git a/telephone-line.el b/telephone-line.el
index e03af2bd1e..425a408e94 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -217,7 +217,7 @@ separators, as they are conditional, are evaluated 
on-the-fly."
                           `(:eval
                             (telephone-line-add-subseparators
                              ',subsegments #',secondary-sep ',color-sym)))))
-                segments)
+                (seq-reverse segments))
         '(nil . nil))))
 
 (defun width (values num-separators)
@@ -241,15 +241,15 @@ separators, as they are conditional, are evaluated 
on-the-fly."
   :type '(alist :key-type segment-color :value-type subsegment-list)
   :group 'telephone-line)
 
-(defcustom rhs '((accent . (telephone-line-position-segment))
-                 (nil    . (telephone-line-misc-info-segment
-                            telephone-line-major-mode-segment)))
+(defcustom rhs '((nil    . (telephone-line-misc-info-segment
+                            telephone-line-major-mode-segment))
+                 (accent . (telephone-line-position-segment)))
   "Right hand side segment alist."
   :type '(alist :key-type segment-color :value-type subsegment-list)
   :group 'telephone-line)
 
 (defun -generate-mode-line-lhs ()
-  (add-separators (seq-reverse lhs)
+  (add-separators lhs
                   primary-left-separator
                   secondary-left-separator))