[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole 781bbb5 17/50: Merge pull request #41 from rs
From: |
Stefan Monnier |
Subject: |
[elpa] externals/hyperbole 781bbb5 17/50: Merge pull request #41 from rswgnu/update-git-repo-cache-interactively |
Date: |
Wed, 17 Mar 2021 18:44:15 -0400 (EDT) |
branch: externals/hyperbole
commit 781bbb57719ab3f743deae5f36fdf71336d75163
Merge: b4f7e49 7be77e0
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>
Merge pull request #41 from rswgnu/update-git-repo-cache-interactively
Update git cache interactively
---
hib-social.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/hib-social.el b/hib-social.el
index f3fca08..1b9e59a 100644
--- a/hib-social.el
+++ b/hib-social.el
@@ -628,10 +628,11 @@ PROJECT value is provided, it defaults to the value of
"Store cache of local git repo directories in `hibtypes-git-repos-cache'.
With optional PROMPT-FLAG non-nil, prompt user whether to build the cache
before building.
Return t if built, nil otherwise."
+ (interactive)
(when (or (not prompt-flag)
(y-or-n-p "Find all local git repositories (will take some time)?
"))
(message "Please wait while all local git repositories are found...")
- (unless (zerop (shell-command (format "%s -r '/\.git$' | sed -e
's+/.git$++' > %s"
+ (unless (zerop (shell-command (format "%s -r '/\\.git$' | sed -e
's+/.git$++' > %s"
(hibtypes-git-get-locate-command)
hibtypes-git-repos-cache)))
(error "(hibtypes-git-build-repos-cache): Cache build failed;
`locate-command' must accept `-r' argument for regexp matching"))
@@ -641,6 +642,7 @@ Return t if built, nil otherwise."
(defun hibtypes-git-add-project-to-repos-cache (project)
"Locate PROJECT directory and add to the cache of local git repo directories
in `hibtypes-git-repos-cache'.
Return the project directory found or nil if none."
+ (interactive "sProject: ")
(message "Please wait while %s's local git repository is found..." project)
(let ((project-dir (shell-command-to-string
(format "%s -l1 /%s/.git | sed -e 's+/.git++' | tr -d
'\n'"
@@ -649,9 +651,10 @@ Return the project directory found or nil if none."
(message "")
(when (and (> (length project-dir) 0) (= ?/ (aref project-dir 0)))
;; project-dir a directory, prepend it to the cache file...
- (shell-command-to-string (format "echo -e \"%s\n$(cat %s)\" > %s"
- project-dir hibtypes-git-repos-cache
- hibtypes-git-repos-cache))
+ (with-current-buffer (find-file-noselect hibtypes-git-repos-cache)
+ (goto-char (point-min))
+ (insert (concat project-dir "\n"))
+ (save-buffer))
;; ...and return it.
project-dir)))
- [elpa] externals/hyperbole 66b35cc 07/50: Add kotl/kotl-orgtbl.el, (continued)
- [elpa] externals/hyperbole 66b35cc 07/50: Add kotl/kotl-orgtbl.el, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 8d77205 08/50: 7.1.3a - Add key bindings and finish Kotl Org table mode support, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 4ddeaf6 10/50: Remove Makefile.maintenance, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 28a1e0c 18/50: Use xdg-open to dispatch to user preferences for display alist (#40), Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 7b92152 11/50: Merge pull request #39 from rswgnu/add-maintenance-makefile-with-web-site-support, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 7be77e0 12/50: Update git cache interactively, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole ad16470 13/50: Document Koutline Org table support; allow ibtype reprioritization, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 9f5a787 14/50: Add hypb-maintenance.el, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole e914edb 15/50: Add hypb-maintenance.el to MANIFEST, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole b4f7e49 16/50: Move HY-TALK.org button data to HY-TALK/.hypb, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 781bbb5 17/50: Merge pull request #41 from rswgnu/update-git-repo-cache-interactively,
Stefan Monnier <=
- [elpa] externals/hyperbole 22439e6 20/50: Add klink ref cmds, ebut:program and defiblink for programmatic creation, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole e999fc7 21/50: Stop man-apropos from matching to log file entries, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole cfc61a3 22/50: Eliminate a number of order-based byte-compilation warnings, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole e3544c8 23/50: Revert improper application of "Use \\0 for matched Nth substitution", Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole f1b2cba 24/50: Add dependency on hvar to resolve use of var:remove-all (#43), Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 312c858 25/50: kexport.el - use lowercase HTML tags; mail-address ibtype allow trigger in any major mode, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole a3b9d6d 26/50: Merge branch 'master' of github.com:rswgnu/hyperbole, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 398f8e4 32/50: Add hypb:def-to-buffer to hypb.el for fast def copying, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole a831ef9 36/50: Fix bug #46606 by replacing hkey-define-key with hkey-global-set-key, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 8969fe9 43/50: Merge branch 'master' of hyperbole, Stefan Monnier, 2021/03/17