[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/telephone-line 09997c1aee 006/195: Cleanup
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/telephone-line 09997c1aee 006/195: Cleanup |
Date: |
Wed, 5 Jan 2022 02:59:15 -0500 (EST) |
branch: elpa/telephone-line
commit 09997c1aeeeec853b386af776196b833fec8dd61
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>
Cleanup
---
telephone-line.el | 32 +++++++++++++++++---------------
1 file changed, 17 insertions(+), 15 deletions(-)
diff --git a/telephone-line.el b/telephone-line.el
index 2dd7339d18..3dd70136e8 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -6,7 +6,7 @@
;; URL: https://github.com/dbordak/telephone-line
;; Version: 0.1
;; Keywords: mode-line
-;; Package-Requires: ((cl-lib "0.5") (memoize "1.0.1") (names "0.5") (s
"1.9.0") (seq "1.3"))
+;; Package-Requires: ((cl-lib "0.5") (memoize "1.0.1") (names "0.5") (s
"1.9.0") (seq "1.8"))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -240,35 +240,37 @@ separators, as they are conditional, are evaluated
on-the-fly."
(separator-width (/ (telephone-line-separator-width)
(float (frame-char-width)))))
(if window-system
- (+ base-width
- (* num-separators (- separator-width (ceiling separator-width))))
+ (+ base-width
+ ;; Separators are (ceiling separator-width)-space strings,
+ ;; but their actual width is separator-width. base-width
+ ;; already includes the string width of those spaces, so we
+ ;; need the difference.
+ (* num-separators (- separator-width (ceiling separator-width))))
base-width)))
(defcustom lhs '((accent . (telephone-line-vc-segment))
- (nil . (telephone-line-minor-mode-segment
- telephone-line-buffer-segment)))
+ (nil . (telephone-line-minor-mode-segment
+ telephone-line-buffer-segment)))
"Left hand side segment alist."
:type '(alist :key-type segment-color :value-type subsegment-list)
:group 'telephone-line)
(defcustom rhs '((accent . (telephone-line-position-segment))
- (nil . (misc-info-segment
- telephone-line-major-mode-segment)))
+ (nil . (misc-info-segment
+ telephone-line-major-mode-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)
- telephone-line-primary-left-separator
- telephone-line-secondary-left-separator))
+ (add-separators (seq-reverse lhs)
+ primary-left-separator
+ secondary-left-separator))
(defun -generate-mode-line-rhs ()
- (add-separators
- rhs
- telephone-line-primary-right-separator
- telephone-line-secondary-right-separator))
+ (add-separators rhs
+ primary-right-separator
+ secondary-right-separator))
(defun -generate-mode-line ()
`(,@(telephone-line--generate-mode-line-lhs)
- [nongnu] elpa/telephone-line 909c1779e4 089/195: Fixed rainbow face examples, (continued)
- [nongnu] elpa/telephone-line 909c1779e4 089/195: Fixed rainbow face examples, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line aa2c6840c9 107/195: Add separator gallery, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 09ff89a090 110/195: Add alias for modal colorsym, rename tl-evil-face to tl-modal-face, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 541c7d80d9 103/195: Corrected axis algorithm, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 0715ee7d15 064/195: Fix Readme formatting, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 5c47442844 083/195: Update readme + screenshots, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 30225c9778 069/195: Fix Emacs 25, oops, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 8b3c9499bf 051/195: Oops, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 5766b1b21f 033/195: Merge pull request #11 from ryanprior/patch-1, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 0d15e2882b 002/195: Add the fruits of my labor, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 09997c1aee 006/195: Cleanup,
ELPA Syncer <=
- [nongnu] elpa/telephone-line 06887f2440 001/195: Initial commit, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 5919a8e296 003/195: Fix package info, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 303cc3a1cd 010/195: Use cl-lib function instead of cl.el, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line d18709b144 044/195: Add Melpa Stable badge, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line f5e6663883 037/195: Much more Readme content, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 32245b5e30 072/195: Update copyright, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 3ad335a4c4 028/195: Correct default rhs value, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line 7feb552dcf 048/195: Remove names, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line a2e2b5652f 013/195: Add emacs version requirement, ELPA Syncer, 2022/01/05
- [nongnu] elpa/telephone-line d991dd296f 019/195: Excessive autoloads, ELPA Syncer, 2022/01/05