A truck load of updates/fixes/tweaks

[pkgusr] / lisp / bld-update.el

diff --git a/lisp/bld-update.el b/lisp/bld-update.el
new file mode 100644 (file)
index 0000000..531ebd9
--- /dev/null
+++ b/lisp/bld-update.el
@@ -0,0 +1,59 @@
+;; bld-update.el --- Update pkgusr build scripts via ediff   -*- Emacs-Lisp -*-
+
+;; Copyright (C) 2014 Steve Youngs
+
+;; Author:     Steve Youngs <stevesteveyoungs.com>
+;; Maintainer: Steve Youngs <stevesteveyoungs.com>
+;; Created:    <2014-03-10>
+;; Time-stamp: <Monday Mar 10, 2014 17:35:01 steve>
+
+;; This file is part of pkgusr.
+
+;; Redistribution and use in source and binary forms, with or without
+;; modification, are permitted provided that the following conditions
+;; are met:
+;;
+;; 1. Redistributions of source code must retain the above copyright
+;;    notice, this list of conditions and the following disclaimer.
+;;
+;; 2. Redistributions in binary form must reproduce the above copyright
+;;    notice, this list of conditions and the following disclaimer in the
+;;    documentation and/or other materials provided with the distribution.
+;;
+;; 3. Neither the name of the author nor the names of any contributors
+;;    may be used to endorse or promote products derived from this
+;;    software without specific prior written permission.
+;;
+;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
+;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+;; DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
+;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
+;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+;;; Commentary:
+;; 
+;;   Just calls #'ediff-files to update build scripts.  Probably way
+;;   over the top, but it is the best and easiest way I know of to
+;;   incrementally and interactively apply a diff.
+
+;;; Code:
+(require 'ediff)
+(defvar pkgusr-build-script
+  (expand-file-name "build" (user-home-directory))
+  "The pkgusr's build script.")
+
+(defvar system-build-script
+  (expand-file-name "build"
+                   (paths-construct-path
+                    (list "/etc" "pkgusr" "skel-package")))
+  "The build script new pkgusrs get.")
+
+(ediff-files pkgusr-build-script system-build-script)
+
+;;; bld-update.el ends here