sellout/vc-pijul - Change 26Z3OQSDCGQDNX2DMQDZHLEUYKOILDRUINZI6E3OBTWJZHNC23FAC

Remove vc-pijul-find-file-hook

Unlike DARCS, Pijul doesn’t store copies of files under .pijul, so this isn’t necessary

Created by sellout on October 12, 2022

26Z3OQSDCGQDNX2DMQDZHLEUYKOILDRUINZI6E3OBTWJZHNC23FAC

Dependencies

In channels

main

Change contents

Replacement in vc-pijul.el at line 46 [3.4]
B:BD[3.1597] → [3.1597:1613]
```
;; your .emacs:
```
[3.1597]
[3.1613]
```
;; your emacs init file:
```

Deletion in vc-pijul.el at line 49 [3.4]

B:BD[2.823] → [2.823:929]

;; (autoload 'vc-pijul-find-file-hook "vc-pijul")
;; (add-hook 'find-file-hooks 'vc-pijul-find-file-hook)

Deletion in vc-pijul.el at line 600 [3.4]

∅:D[2.12101] → [3.21229:21231]

B:BD[3.21229] → [3.21229:21231]

B:BD[3.21231] → [2.12102:12152]

∅:D[2.12152] → [3.21281:21323]

B:BD[3.21281] → [3.21281:21323]

B:BD[3.21323] → [2.12153:12187]

∅:D[2.12187] → [3.21357:21406]

B:BD[3.21357] → [3.21357:21406]

B:BD[3.21406] → [2.12188:12227]

∅:D[2.12227] → [3.21445:21613]

B:BD[3.21445] → [3.21445:21613]

B:BD[3.21613] → [2.12228:12303]

∅:D[2.12303] → [3.21688:21983]

B:BD[3.21688] → [3.21688:21983]

B:BD[3.21983] → [2.12304:12385]

∅:D[2.12385] → [3.22064:22081]

B:BD[3.22064] → [3.22064:22081]

B:BD[3.22081] → [4.6985:7111]

B:BD[4.7111] → [2.12386:12463]

∅:D[2.12463] → [4.7188:7246]

B:BD[4.7188] → [4.7188:7246]


;;; protection against editing files under .pijul
;;; adapted from an idea by Rob Giardine
(defun vc-pijul-find-file-hook ()
  (let ((f (buffer-file-name (current-buffer))))
    (and f (vc-pijul-special-file-p f)
         (let* ((candidate
                 (let* ((f (buffer-file-name (current-buffer)))
                        (match
                         (and f (string-match
                                 "/.pijul/\\(current\\|pristine\\)/" f))))
                   (and match
                        (concat (substring f 0 (match-beginning 0))
                                "/"
                                (substring f (match-end 0))))))
                (open-instead
                 (and candidate
                      (yes-or-no-p
                       "This is a .pijul file, open the real file instead? "))))
           (cond
            (open-instead
             (find-alternate-file candidate))
            (t
             (setq buffer-read-only t)
             (push '(:propertize ".PIJUL-FILE:" face font-lock-warning-face)
                   mode-line-buffer-identification)))))))