[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/project-switching c6e80fd 09/15: Simplify 'project--keymap-promp
From: |
Simen Heggestøyl |
Subject: |
feature/project-switching c6e80fd 09/15: Simplify 'project--keymap-prompt' a bit |
Date: |
Tue, 26 May 2020 11:43:18 -0400 (EDT) |
branch: feature/project-switching
commit c6e80fdb65ca425d4826f48c348cfd9e30f8eb9b
Author: Simen Heggestøyl <address@hidden>
Commit: Simen Heggestøyl <address@hidden>
Simplify 'project--keymap-prompt' a bit
* lisp/progmodes/project.el: Remove seq requirement.
(project--keymap-prompt): Simplify with 'mapconcat'.
---
lisp/progmodes/project.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index a00bb70..7f765e6 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -93,7 +93,6 @@
;;; Code:
(require 'cl-generic)
-(require 'seq)
(eval-when-compile (require 'subr-x))
(defvar project-find-functions (list #'project-try-vc)
@@ -808,13 +807,13 @@ the choice in the dispatch menu.")
(defun project--keymap-prompt ()
"Return a prompt for the project swithing dispatch menu."
- (string-trim
- (seq-mapcat
- (pcase-lambda (`(,key ,label))
- (format "[%s] %s "
- (propertize (key-description `(,key)) 'face 'bold)
- label))
- project-switch-menu 'string)))
+ (mapconcat
+ (pcase-lambda (`(,key ,label))
+ (format "[%s] %s"
+ (propertize (key-description `(,key)) 'face 'bold)
+ label))
+ project-switch-menu
+ " "))
;;;###autoload
(defun project-switch-project ()
- feature/project-switching afb96da 05/15: Move project-dired and project-eshell higher, (continued)
- feature/project-switching afb96da 05/15: Move project-dired and project-eshell higher, Simen Heggestøyl, 2020/05/26
- feature/project-switching 02e1ee9 06/15: Integrate project-switch-project with project-find-regexp, Simen Heggestøyl, 2020/05/26
- feature/project-switching 46bb2cb 07/15: Change dispatch binding of 'project-find-regexp', Simen Heggestøyl, 2020/05/26
- feature/project-switching 0db801a 11/15: Update the Emacs manual with recent project.el changes, Simen Heggestøyl, 2020/05/26
- feature/project-switching e37e6c8 13/15: Some copy edits, Simen Heggestøyl, 2020/05/26
- feature/project-switching 9f88356 02/15: Simplify a little, and avoid duplicate commands, Simen Heggestøyl, 2020/05/26
- feature/project-switching c6f56bd 08/15: Turn project switch menu var into a public alist, Simen Heggestøyl, 2020/05/26
- feature/project-switching 7082468 10/15: Rename 'project-switch-menu' to 'project-switch-commands', Simen Heggestøyl, 2020/05/26
- feature/project-switching 0b057ca 12/15: Teach project-current to inhibit the prompt, Simen Heggestøyl, 2020/05/26
- feature/project-switching 449810b 15/15: Avoid adding the empty string to the project list, Simen Heggestøyl, 2020/05/26
- feature/project-switching c6e80fd 09/15: Simplify 'project--keymap-prompt' a bit,
Simen Heggestøyl <=
- feature/project-switching 5a48ede 14/15: Adapt project functions to the new 'project-root', Simen Heggestøyl, 2020/05/26