[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/breadcrumb 9205ef62c8 15/18: Fix indentation in two pla
From: |
ELPA Syncer |
Subject: |
[elpa] externals/breadcrumb 9205ef62c8 15/18: Fix indentation in two places |
Date: |
Tue, 5 Sep 2023 06:57:42 -0400 (EDT) |
branch: externals/breadcrumb
commit 9205ef62c8f8c5b1410c7f8495d11825f41f593b
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>
Fix indentation in two places
* breadcrumb.el (bc--summarize):
(breadcrumb-local-mode): Fix indentation.
---
breadcrumb.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/breadcrumb.el b/breadcrumb.el
index 15c6828044..c08b643225 100644
--- a/breadcrumb.el
+++ b/breadcrumb.el
@@ -285,14 +285,14 @@ Aim for a return string that is at most CUTOFF characters
long.
Join the crumbs with SEPARATOR."
(let ((rcrumbs
(cl-loop
- for available = (- cutoff used)
- for (c . more) on (reverse crumbs)
- for seplen = (if more (length separator) 0)
- for shorten-p = (unless (get-text-property 0 'bc-dont-shorten c)
- (> (+ (length c) seplen) available))
- for toadd = (if shorten-p (substring c 0 1) c)
- sum (+ (length toadd) seplen) into used
- collect toadd)))
+ for available = (- cutoff used)
+ for (c . more) on (reverse crumbs)
+ for seplen = (if more (length separator) 0)
+ for shorten-p = (unless (get-text-property 0 'bc-dont-shorten c)
+ (> (+ (length c) seplen) available))
+ for toadd = (if shorten-p (substring c 0 1) c)
+ sum (+ (length toadd) seplen) into used
+ collect toadd)))
(string-join (reverse rcrumbs) separator)))
(defun bc--format-project-node (p more root path)
@@ -358,7 +358,7 @@ propertized crumbs."
(define-minor-mode breadcrumb-local-mode
"Header lines with breadcrumbs."
:init-value nil
- (if bc-local-mode (add-to-list 'header-line-format '(:eval (bc--header-line)))
+ (if bc-local-mode (add-to-list 'header-line-format '(:eval
(bc--header-line)))
(setq header-line-format (delete '(:eval (bc--header-line))
header-line-format))))
(defun bc--turn-on-local-mode-on-behalf-of-global-mode ()
- [elpa] externals/breadcrumb 779ef0bfc0 02/18: * breadcrumb.el: Add todo list, (continued)
- [elpa] externals/breadcrumb 779ef0bfc0 02/18: * breadcrumb.el: Add todo list, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb 9800e6fc60 05/18: Minor changes, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb eb7c97d414 04/18: Add a README.md and a screenshot, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb e508856a59 06/18: * breadcrumb.el (bc-jump): Replace `M-x' by its function name, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb 9cfc08ff6c 11/18: Add capability to jump to siblings, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb 85a3885b98 07/18: Change defcustom type fixnum into natnum (#4), ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb 07b8e96ed4 09/18: Fix #7: Select window before jumping around with breadcrumbs, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb 2369e5b609 03/18: * breadcrumb.el: Fix todos add another one, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb df9e2c3678 10/18: Fix case when bc--ipath-alist results in something useless, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb 1cb229b87e 14/18: Clean up before ELPA submission, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb 9205ef62c8 15/18: Fix indentation in two places,
ELPA Syncer <=
- [elpa] externals/breadcrumb 20bfa7407b 16/18: * breadcrumb.el (bc--format-ipath-node): Fix bug, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb a44bb5ced2 17/18: Compute length of breadcrumbs dynamically by default, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb e9358a641a 13/18: Work some more in the mode-line/header-line mouse interaction, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb 995e1638d2 18/18: * .elpaignore: Add a basic file (#15), ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb 64ae52c534 01/18: Initial commit, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb cda39e32f0 08/18: Use longhand symbol forms for autoloaded functions, ELPA Syncer, 2023/09/05
- [elpa] externals/breadcrumb 4dd49220fd 12/18: Fancy it up with some faces, ELPA Syncer, 2023/09/05