cgit.sxemacs.org Git - pkgusr/blob - 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 <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>
   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