diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2025-02-02 01:07:23 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2025-02-02 01:07:23 +0100 |
| commit | 033aa10b9357fae94059268d52990e654d624e8b (patch) | |
| tree | 11755529c0fdca8dbd2b00d04cdb01c91ed9b100 /lisp/magit-repos.el | |
| parent | 0a649821007e643ab8c13e770e2a2e10b0389bc4 (diff) | |
Use ## and mapcar instead of --map
In three cases use lambda, not ##.
Diffstat (limited to 'lisp/magit-repos.el')
| -rw-r--r-- | lisp/magit-repos.el | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/lisp/magit-repos.el b/lisp/magit-repos.el index bb9e933..b50d58f 100644 --- a/lisp/magit-repos.el +++ b/lisp/magit-repos.el @@ -327,9 +327,9 @@ If it contains \"%s\" then the directory is substituted for that." "")) magit-repolist-columns))))) (magit-list-repos-uniquify - (--map (cons (file-name-nondirectory (directory-file-name it)) - it) - (magit-list-repos))))) + (mapcar (##cons (file-name-nondirectory (directory-file-name %)) + %) + (magit-list-repos))))) (message "Listing repositories...") (tabulated-list-init-header) (tabulated-list-print t) @@ -524,22 +524,24 @@ instead." (if (length= value 1) (push (cons key (car value)) result) (setq result - (append result - (magit-list-repos-uniquify - (--map (cons (concat - key "\\" - (file-name-nondirectory - (directory-file-name - (substring it 0 (- (1+ (length key))))))) - it) - value)))))) + (append + result + (magit-list-repos-uniquify + (mapcar (lambda (v) + (cons (concat + key "\\" + (file-name-nondirectory + (directory-file-name + (substring v 0 (- (1+ (length key))))))) + v)) + value)))))) dict) result)) (defun magit-repos-alist () (magit-list-repos-uniquify - (--map (cons (file-name-nondirectory (directory-file-name it)) it) - (magit-list-repos)))) + (mapcar (##cons (file-name-nondirectory (directory-file-name %)) %) + (magit-list-repos)))) ;;; _ (provide 'magit-repos) |