198 lines
7.3 KiB
EmacsLisp
198 lines
7.3 KiB
EmacsLisp
;;; magit-gitignore.el --- intentionally untracked files -*- lexical-binding: t -*-
|
|
|
|
;; Copyright (C) 2008-2020 The Magit Project Contributors
|
|
;;
|
|
;; You should have received a copy of the AUTHORS.md file which
|
|
;; lists all contributors. If not, see http://magit.vc/authors.
|
|
|
|
;; Author: Jonas Bernoulli <jonas@bernoul.li>
|
|
;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
|
|
|
|
;; Magit is free software; you can redistribute it and/or modify it
|
|
;; under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation; either version 3, or (at your option)
|
|
;; any later version.
|
|
;;
|
|
;; Magit is distributed in the hope that it will be useful, but WITHOUT
|
|
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
|
;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
|
|
;; License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with Magit. If not, see http://www.gnu.org/licenses.
|
|
|
|
;;; Commentary:
|
|
|
|
;; This library implements gitignore commands.
|
|
|
|
;;; Code:
|
|
|
|
(eval-when-compile
|
|
(require 'subr-x))
|
|
|
|
(require 'magit)
|
|
|
|
;;; Transient
|
|
|
|
;;;###autoload (autoload 'magit-gitignore "magit-gitignore" nil t)
|
|
(transient-define-prefix magit-gitignore ()
|
|
"Instruct Git to ignore a file or pattern."
|
|
:man-page "gitignore"
|
|
["Gitignore"
|
|
("t" "shared at toplevel (.gitignore)"
|
|
magit-gitignore-in-topdir)
|
|
("s" "shared in subdirectory (path/to/.gitignore)"
|
|
magit-gitignore-in-subdir)
|
|
("p" "privately (.git/info/exclude)"
|
|
magit-gitignore-in-gitdir)
|
|
("g" magit-gitignore-on-system
|
|
:if (lambda () (magit-get "core.excludesfile"))
|
|
:description (lambda ()
|
|
(format "privately for all repositories (%s)"
|
|
(magit-get "core.excludesfile"))))]
|
|
["Skip worktree"
|
|
(7 "w" "do skip worktree" magit-skip-worktree)
|
|
(7 "W" "do not skip worktree" magit-no-skip-worktree)]
|
|
["Assume unchanged"
|
|
(7 "u" "do assume unchanged" magit-assume-unchanged)
|
|
(7 "U" "do not assume unchanged" magit-no-assume-unchanged)])
|
|
|
|
;;; Gitignore Commands
|
|
|
|
;;;###autoload
|
|
(defun magit-gitignore-in-topdir (rule)
|
|
"Add the Git ignore RULE to the top-level \".gitignore\" file.
|
|
Since this file is tracked, it is shared with other clones of the
|
|
repository. Also stage the file."
|
|
(interactive (list (magit-gitignore-read-pattern)))
|
|
(magit-with-toplevel
|
|
(magit--gitignore rule ".gitignore")
|
|
(magit-run-git "add" ".gitignore")))
|
|
|
|
;;;###autoload
|
|
(defun magit-gitignore-in-subdir (rule directory)
|
|
"Add the Git ignore RULE to a \".gitignore\" file.
|
|
Prompted the user for a directory and add the rule to the
|
|
\".gitignore\" file in that directory. Since such files are
|
|
tracked, they are shared with other clones of the repository.
|
|
Also stage the file."
|
|
(interactive (list (magit-gitignore-read-pattern)
|
|
(read-directory-name "Limit rule to files in: ")))
|
|
(magit-with-toplevel
|
|
(let ((file (expand-file-name ".gitignore" directory)))
|
|
(magit--gitignore rule file)
|
|
(magit-run-git "add" file))))
|
|
|
|
;;;###autoload
|
|
(defun magit-gitignore-in-gitdir (rule)
|
|
"Add the Git ignore RULE to \"$GIT_DIR/info/exclude\".
|
|
Rules in that file only affects this clone of the repository."
|
|
(interactive (list (magit-gitignore-read-pattern)))
|
|
(magit--gitignore rule (magit-git-dir "info/exclude"))
|
|
(magit-refresh))
|
|
|
|
;;;###autoload
|
|
(defun magit-gitignore-on-system (rule)
|
|
"Add the Git ignore RULE to the file specified by `core.excludesFile'.
|
|
Rules that are defined in that file affect all local repositories."
|
|
(interactive (list (magit-gitignore-read-pattern)))
|
|
(magit--gitignore rule
|
|
(or (magit-get "core.excludesFile")
|
|
(error "Variable `core.excludesFile' isn't set")))
|
|
(magit-refresh))
|
|
|
|
(defun magit--gitignore (rule file)
|
|
(when-let ((directory (file-name-directory file)))
|
|
(make-directory directory t))
|
|
(with-temp-buffer
|
|
(when (file-exists-p file)
|
|
(insert-file-contents file))
|
|
(goto-char (point-max))
|
|
(unless (bolp)
|
|
(insert "\n"))
|
|
(insert (replace-regexp-in-string "\\(\\\\*\\)" "\\1\\1" rule))
|
|
(insert "\n")
|
|
(write-region nil nil file)))
|
|
|
|
(defun magit-gitignore-read-pattern ()
|
|
(let* ((default (magit-current-file))
|
|
(base (car magit-buffer-diff-files))
|
|
(base (and base (file-directory-p base) base))
|
|
(choices
|
|
(delete-dups
|
|
(--mapcat
|
|
(cons (concat "/" it)
|
|
(when-let ((ext (file-name-extension it)))
|
|
(list (concat "/" (file-name-directory it) "*." ext)
|
|
(concat "*." ext))))
|
|
(sort (nconc
|
|
(magit-untracked-files nil base)
|
|
;; The untracked section of the status buffer lists
|
|
;; directories containing only untracked files.
|
|
;; Add those as candidates.
|
|
(-filter #'directory-name-p
|
|
(magit-list-files
|
|
"--other" "--exclude-standard" "--directory"
|
|
"--no-empty-directory" "--" base)))
|
|
#'string-lessp)))))
|
|
(when default
|
|
(setq default (concat "/" default))
|
|
(unless (member default choices)
|
|
(setq default (concat "*." (file-name-extension default)))
|
|
(unless (member default choices)
|
|
(setq default nil))))
|
|
(magit-completing-read "File or pattern to ignore"
|
|
choices nil nil nil nil default)))
|
|
|
|
;;; Skip Worktree Commands
|
|
|
|
;;;###autoload
|
|
(defun magit-skip-worktree (file)
|
|
"Call \"git update-index --skip-worktree -- FILE\"."
|
|
(interactive
|
|
(list (magit-read-file-choice "Skip worktree for"
|
|
(magit-with-toplevel
|
|
(cl-set-difference
|
|
(magit-list-files)
|
|
(magit-skip-worktree-files))))))
|
|
(magit-with-toplevel
|
|
(magit-run-git "update-index" "--skip-worktree" "--" file)))
|
|
|
|
;;;###autoload
|
|
(defun magit-no-skip-worktree (file)
|
|
"Call \"git update-index --no-skip-worktree -- FILE\"."
|
|
(interactive
|
|
(list (magit-read-file-choice "Do not skip worktree for"
|
|
(magit-with-toplevel
|
|
(magit-skip-worktree-files)))))
|
|
(magit-with-toplevel
|
|
(magit-run-git "update-index" "--no-skip-worktree" "--" file)))
|
|
|
|
;;; Assume Unchanged Commands
|
|
|
|
;;;###autoload
|
|
(defun magit-assume-unchanged (file)
|
|
"Call \"git update-index --assume-unchanged -- FILE\"."
|
|
(interactive
|
|
(list (magit-read-file-choice "Assume file to be unchanged"
|
|
(magit-with-toplevel
|
|
(cl-set-difference
|
|
(magit-list-files)
|
|
(magit-assume-unchanged-files))))))
|
|
(magit-with-toplevel
|
|
(magit-run-git "update-index" "--assume-unchanged" "--" file)))
|
|
|
|
;;;###autoload
|
|
(defun magit-no-assume-unchanged (file)
|
|
"Call \"git update-index --no-assume-unchanged -- FILE\"."
|
|
(interactive
|
|
(list (magit-read-file-choice "Do not assume file to be unchanged"
|
|
(magit-with-toplevel
|
|
(magit-assume-unchanged-files)))))
|
|
(magit-with-toplevel
|
|
(magit-run-git "update-index" "--no-assume-unchanged" "--" file)))
|
|
|
|
;;; _
|
|
(provide 'magit-gitignore)
|
|
;;; magit-gitignore.el ends here
|