diff options
| -rw-r--r-- | COPYING | 4 | ||||
| -rw-r--r-- | README.org | 6 | ||||
| -rw-r--r-- | agitate.el | 26 |
3 files changed, 18 insertions, 18 deletions
@@ -632,7 +632,7 @@ state the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. <one line to give the program's name and a brief idea of what it does.> - Copyright (C) 2021 Protesilaos Stavrou + Copyright (C) 2021 Protesilaos 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 @@ -652,7 +652,7 @@ Also add information on how to contact you by electronic and paper mail. If the program does terminal interaction, make it output a short notice like this when it starts in an interactive mode: - <program> Copyright (C) 2021 Protesilaos Stavrou + <program> Copyright (C) 2021 Protesilaos This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. @@ -1,5 +1,5 @@ #+title: agitate: Extras for diff-mode, vc-git, log-edit, log-view -#+author: Protesilaos Stavrou +#+author: Protesilaos #+email: info@protesilaos.com #+language: en #+options: ':t toc:nil author:t email:t num:t @@ -13,13 +13,13 @@ #+texinfo_dir_title: Agitate: (agitate) #+texinfo_dir_desc: Extras for diff-mode, vc-git, log-edit, log-view #+texinfo_header: @set MAINTAINERSITE @uref{https://protesilaos.com,maintainer webpage} -#+texinfo_header: @set MAINTAINER Protesilaos Stavrou +#+texinfo_header: @set MAINTAINER Protesilaos #+texinfo_header: @set MAINTAINEREMAIL @email{info@protesilaos.com} #+texinfo_header: @set MAINTAINERCONTACT @uref{mailto:info@protesilaos.com,contact the maintainer} #+texinfo: @insertcopying -This manual, written by Protesilaos Stavrou, describes the customization +This manual, written by Protesilaos, describes the customization options for the Emacs package called =agitate= (or =agitate.el=), and provides every other piece of information pertinent to it. @@ -2,8 +2,8 @@ ;; Copyright (C) 2022-2024 Free Software Foundation, Inc. -;; Author: Protesilaos Stavrou <info@protesilaos.com> -;; Maintainer: Protesilaos Stavrou <info@protesilaos.com> +;; Author: Protesilaos <info@protesilaos.com> +;; Maintainer: Protesilaos <info@protesilaos.com> ;; URL: https://github.com/protesilaos/agitate ;; Version: 0 ;; Package-Requires: ((emacs "28.1")) @@ -114,8 +114,8 @@ none exists, the one closest to it. On second call, operate on the entire buffer. And on the third time, remove all word-wise fontification." (interactive nil diff-mode) - (when-let (((derived-mode-p 'diff-mode)) - (point (point))) + (when-let* (((derived-mode-p 'diff-mode)) + (point (point))) (pcase agitate--refine-diff-state ('current (setq-local diff-refine 'font-lock) @@ -337,7 +337,7 @@ user option `log-edit-keep-buffer'." (defun agitate--log-edit-informative-kill-buffer () "Kill the vc-log buffer." ;; TODO 2022-10-19: More robust way to get this buffer? - (when-let ((buf (get-buffer "*vc-log*"))) + (when-let* ((buf (get-buffer "*vc-log*"))) (kill-buffer buf))) ;;;; Commands for log-view (listings of commits) @@ -356,15 +356,15 @@ When the log-view is in the long format (detailed view where each revision spans several lines), the revision is the one pertinent to the text at point." (interactive) - (when-let ((revision (cadr (log-view-current-entry (point) t)))) + (when-let* ((revision (cadr (log-view-current-entry (point) t)))) (kill-new (format "%s" revision)) (message "Copied: %s" revision))) (defun agitate--log-view-on-revision-p (&optional pos) "Return non-nil if optional POS is on a revision line. When POS is nil, use `point'." - (when-let ((point (or pos (point))) - ((not (log-view-inside-comment-p point)))) + (when-let* ((point (or pos (point))) + ((not (log-view-inside-comment-p point)))) (save-excursion (goto-char (line-beginning-position)) (looking-at log-view-message-re)))) @@ -473,7 +473,7 @@ snapshot of the minibuffer prompt. Then use the resulting buffer to browse through the available commits." (declare (interactive-only t)) (interactive "P") - (when-let ((file (caadr (vc-deduce-fileset)))) + (when-let* ((file (caadr (vc-deduce-fileset)))) (let* ((f (when current-file file)) (revision (agitate--vc-git-get-hash-from-string (agitate--vc-git-commit-prompt @@ -487,7 +487,7 @@ to browse through the available commits." (diff-mode) (setq-local revert-buffer-function (lambda (_ignore-auto _noconfirm) - (agitate--vc-git-show-revert buf "show" "--patch-with-stat" revision))) + (agitate--vc-git-show-revert buf "show" "--patch-with-stat" revision))) (goto-char (point-min)))))) (defun agitate--vc-git-tag-prompt () @@ -514,7 +514,7 @@ to browse through the available tags." (let* ((buf "*agitate-vc-git-show*") (inhibit-read-only t)) (with-current-buffer (get-buffer-create buf) - (erase-buffer)) + (erase-buffer)) (vc-git--call buf "show" tag) (with-current-buffer (pop-to-buffer buf) (diff-mode) @@ -526,7 +526,7 @@ to browse through the available tags." (defun agitate--vc-git-format-patch-single-commit () "Help `agitate-vc-git-format-patch-single' with its COMMIT." - (if-let ((default-value (cadr (log-view-current-entry (point) t)))) + (if-let* ((default-value (cadr (log-view-current-entry (point) t)))) default-value (agitate--vc-git-get-hash-from-string (agitate--vc-git-commit-prompt)))) @@ -580,7 +580,7 @@ arguments." (defun agitate--vc-git-prompt-remote () "Helper prompt for `agitate-git-push'." - (when-let ((remotes (process-lines vc-git-program "remote"))) + (when-let* ((remotes (process-lines vc-git-program "remote"))) (if (length> remotes 1) (completing-read "Select Git remote: " remotes nil t) (car remotes)))) |