81 lines
2.4 KiB
EmacsLisp
81 lines
2.4 KiB
EmacsLisp
;;; xdarcs-dvc.el --- The dvc layer for darcs
|
|
|
|
;; Copyright (C) 2006, 2007, 2008 by all contributors
|
|
|
|
;; Author: Stefan Reichoer, <stefan@xsteve.at>
|
|
|
|
;; This file 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 2, or (at your option)
|
|
;; any later version.
|
|
|
|
;; This file 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 GNU Emacs; see the file COPYING. If not, write to
|
|
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
;; Boston, MA 02110-1301, USA.
|
|
|
|
;;; Commentary:
|
|
|
|
;; This file provides the common dvc layer for darcs
|
|
|
|
|
|
;;; History:
|
|
|
|
;;
|
|
|
|
;;; Code:
|
|
|
|
(require 'xdarcs)
|
|
(eval-and-compile (require 'dvc-unified))
|
|
|
|
;;;###autoload
|
|
(dvc-register-dvc 'xdarcs "Darcs")
|
|
|
|
;;;###autoload
|
|
(defalias 'xdarcs-dvc-tree-root 'xdarcs-tree-root)
|
|
|
|
;;;###autoload
|
|
(defalias 'xdarcs-dvc-log-edit-done 'xdarcs-log-edit-done)
|
|
|
|
;;;###autoload
|
|
(defalias 'xdarcs-dvc-command-version 'xdarcs-command-version)
|
|
|
|
;;;###autoload
|
|
(defalias 'xdarcs-dvc-status 'xdarcs-whatsnew)
|
|
|
|
;;;###autoload
|
|
(defalias 'xdarcs-dvc-pull 'xdarcs-pull)
|
|
|
|
(defvar xdarcs-ignore-file "_darcs/prefs/boring"
|
|
"Relative path of the darcs boring file within the xdarcs-tree-root.")
|
|
|
|
(defun xdarcs-dvc-edit-ignore-files ()
|
|
(interactive)
|
|
(find-file-other-window (concat (xdarcs-tree-root) xdarcs-ignore-file)))
|
|
|
|
(defun xdarcs-dvc-ignore-files (file-list)
|
|
(interactive (list (dvc-current-file-list)))
|
|
(when (y-or-n-p (format "Ignore %S for %s? " file-list (xdarcs-tree-root)))
|
|
(with-current-buffer
|
|
(find-file-noselect (concat (xdarcs-tree-root) xdarcs-ignore-file))
|
|
(goto-char (point-max))
|
|
(dolist (f-name file-list)
|
|
(insert (format "^%s$\n" (regexp-quote f-name))))
|
|
(save-buffer))))
|
|
|
|
(defun xdarcs-dvc-backend-ignore-file-extensions (extension-list)
|
|
(with-current-buffer
|
|
(find-file-noselect (concat (xdarcs-tree-root) xdarcs-ignore-file))
|
|
(goto-char (point-max))
|
|
(dolist (ext-name extension-list)
|
|
(insert (format "\\.%s$\n" (regexp-quote ext-name))))
|
|
(save-buffer)))
|
|
|
|
(provide 'xdarcs-dvc)
|
|
;;; xdarcs-dvc.el ends here
|