531ebd91c172db2198267cb6a1a040f9708c9d24
[pkgusr] / lisp / bld-update.el
1 ;; bld-update.el --- Update pkgusr build scripts via ediff   -*- Emacs-Lisp -*-
2
3 ;; Copyright (C) 2014 Steve Youngs
4
5 ;; Author:     Steve Youngs <stevesteveyoungs.com>
6 ;; Maintainer: Steve Youngs <stevesteveyoungs.com>
7 ;; Created:    <2014-03-10>
8 ;; Time-stamp: <Monday Mar 10, 2014 17:35:01 steve>
9
10 ;; This file is part of pkgusr.
11
12 ;; Redistribution and use in source and binary forms, with or without
13 ;; modification, are permitted provided that the following conditions
14 ;; are met:
15 ;;
16 ;; 1. Redistributions of source code must retain the above copyright
17 ;;    notice, this list of conditions and the following disclaimer.
18 ;;
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.
22 ;;
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.
26 ;;
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.
38
39 ;;; Commentary:
40 ;; 
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.
44
45 ;;; Code:
46 (require 'ediff)
47 (defvar pkgusr-build-script
48   (expand-file-name "build" (user-home-directory))
49   "The pkgusr's build script.")
50
51 (defvar system-build-script
52   (expand-file-name "build"
53                     (paths-construct-path
54                      (list "/etc" "pkgusr" "skel-package")))
55   "The build script new pkgusrs get.")
56
57 (ediff-files pkgusr-build-script system-build-script)
58
59 ;;; bld-update.el ends here