1 ;; bld-update.el --- Update pkgusr build scripts via ediff -*- Emacs-Lisp -*-
3 ;; Copyright (C) 2014 Steve Youngs
5 ;; Author: Steve Youngs <steve@steveyoungs.com>
6 ;; Maintainer: Steve Youngs <steve@steveyoungs.com>
7 ;; Created: <2014-03-10>
8 ;; Time-stamp: <Saturday Mar 15, 2014 12:10:40 steve>
10 ;; This file is part of pkgusr.
12 ;; Redistribution and use in source and binary forms, with or without
13 ;; modification, are permitted provided that the following conditions
16 ;; 1. Redistributions of source code must retain the above copyright
17 ;; notice, this list of conditions and the following disclaimer.
19 ;; 2. Redistributions in binary form must reproduce the above copyright
20 ;; notice, this list of conditions and the following disclaimer in the
21 ;; documentation and/or other materials provided with the distribution.
23 ;; 3. Neither the name of the author nor the names of any contributors
24 ;; may be used to endorse or promote products derived from this
25 ;; software without specific prior written permission.
27 ;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
28 ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
29 ;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
30 ;; DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31 ;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
32 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
33 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
34 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
35 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
36 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
37 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
41 ;; Just calls #'ediff-files to update build scripts. Probably way
42 ;; over the top, but it is the best and easiest way I know of to
43 ;; incrementally and interactively apply a diff.
47 (defvar pkgusr-build-script
48 (expand-file-name "build" (user-home-directory))
49 "The pkgusr's build script.")
51 (defvar system-build-script
52 (expand-file-name "build"
54 (list "/etc" "pkgusr" "skel-package")))
55 "The build script new pkgusrs get.")
57 (ediff-files pkgusr-build-script system-build-script)
59 ;;; bld-update.el ends here