summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-03-13 00:39:14 +0000
committerjao <jao@gnu.org>2022-03-13 00:39:14 +0000
commit747696945a91464e34af86f49d373d1d7a9130c0 (patch)
treea8d1cdc9b13ea30ddb94fce11f7b720edab51041
parentbf94b3f00b45794aa4ca70b665efde7ca205d8c8 (diff)
downloadelibs-747696945a91464e34af86f49d373d1d7a9130c0.tar.gz
elibs-747696945a91464e34af86f49d373d1d7a9130c0.tar.bz2
skels: obsolete skeletons back to the closet
-rw-r--r--lib/skels/jao-skel-all.el49
-rw-r--r--lib/skels/jao-skel-dot.emacs.el11
-rw-r--r--lib/skels/jao-skel-fuel.el45
-rw-r--r--lib/skels/jao-skel-init.el39
-rw-r--r--lib/skels/jao-skel-lisa.el157
-rw-r--r--lib/skels/jao-skel-muse.el41
-rw-r--r--lib/skels/jao-skel-noweb.el48
-rw-r--r--lib/skels/jao-skel-pika.el88
-rw-r--r--lib/skels/jao-skel-s48.el61
-rw-r--r--lib/skels/jao-skel-scsh.el45
10 files changed, 0 insertions, 584 deletions
diff --git a/lib/skels/jao-skel-all.el b/lib/skels/jao-skel-all.el
deleted file mode 100644
index 720b08e..0000000
--- a/lib/skels/jao-skel-all.el
+++ /dev/null
@@ -1,49 +0,0 @@
-;;; all-skels.el --- Convenience package loading all skels
-
-;; Copyright (C) 2008 Jose Ortega
-
-;; Author: Jose Ortega <jao@google.com>
-;; Keywords: languages
-
-;; This program 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 3 of the License, or
-;; (at your option) any later version.
-
-;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Require this file to load all defined skels
-
-;;; Code:
-
-(require 'init-skel)
-
-(require 'cpp-skel)
-(require 'cppunit-skel)
-(require 'perl-skel)
-(require 'readme-skel)
-(require 'make-skel)
-(require 'caml-skel)
-(require 'latex-skel)
-(require 'noweb-skel)
-(require 'lisp-skel)
-(require 's48-skel)
-(require 'haskell-skel)
-(require 'scsh-skel)
-(require 'lisa-skel)
-(require 'texinfo-skel)
-(require 'python-skel)
-(require 'muse-skel)
-(require 'asdf-skel)
-
-(provide 'all-skels)
-
-;;; all-skels.el ends here
diff --git a/lib/skels/jao-skel-dot.emacs.el b/lib/skels/jao-skel-dot.emacs.el
deleted file mode 100644
index a82e500..0000000
--- a/lib/skels/jao-skel-dot.emacs.el
+++ /dev/null
@@ -1,11 +0,0 @@
-;; boilerplate skels configuration:
-
-;;; add skels directory to your load path
-(add-to-list 'load-path "~/lib/emacs/skels")
-(load "init-skel")
-
-;;; set configuration variables
-(setq jao-company-name "Free Software Foundation, Inc.")
-(setq jao-cpp-root-namespace "")
-(setq jao-copyright-file ".copyright")
-
diff --git a/lib/skels/jao-skel-fuel.el b/lib/skels/jao-skel-fuel.el
deleted file mode 100644
index 786f4ec..0000000
--- a/lib/skels/jao-skel-fuel.el
+++ /dev/null
@@ -1,45 +0,0 @@
-;;; fuel-skel.el --- skeleton for fuel elisp files
-
-;; Copyright (C) 2008 Jose Antonio Ortega Ruiz
-
-;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
-;; Keywords: lisp
-
-;; This program 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 3 of the License, or
-;; (at your option) any later version.
-
-;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Code:
-
-(require 'common-skel)
-
-(define-skeleton jao-skel-fuel-file
- "Fuel file header"
- "Brief description: "
- ";;; " (file-name-nondirectory (buffer-file-name)) " -- " str ""
- \n \n
- (jao-copyright-line ";; ")
- ";; See http://factorcode.org/license.txt for BSD license."
- \n \n (jao-author-line ";; ") ";; Keywords: languages, fuel, factor"
- \n (jao-date-line ";; ")
- \n ";;; Comentary: " \n \n ";; " _ \n
- \n ";;; Code: " \n \n \n \n
- " " \n "(provide '" (jao-basename) ")" \n
- ";;; " (file-name-nondirectory (buffer-file-name)) " ends here"
- \n
- \n)
-
-(jao-provide-skel "misc/fuel/.+\\.el\\'" 'jao-skel-fuel-file)
-
-
-(provide 'fuel-skel)
-;;; fuel-skel.el ends here
diff --git a/lib/skels/jao-skel-init.el b/lib/skels/jao-skel-init.el
deleted file mode 100644
index 7612f92..0000000
--- a/lib/skels/jao-skel-init.el
+++ /dev/null
@@ -1,39 +0,0 @@
-;; skeleton configuration
-
-;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Jose Antonio Ortega Ruiz
-
-;; Author: Jose A Ortega Ruiz <jao@gnu.org>
-;; Keywords: tools
-
-;; 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 3, 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., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; Initialisation file for jao skeletons
-
-;;; Code:
-
-(require 'autoinsert)
-(setq auto-insert t)
-(add-hook 'find-file-hooks 'auto-insert)
-(setq auto-insert-directory "~/.autoinsert/")
-(setq auto-insert-query t)
-
-(require 'common-skel)
-
-(provide 'init-skel)
-
-;;;; init-skel.el ends here
diff --git a/lib/skels/jao-skel-lisa.el b/lib/skels/jao-skel-lisa.el
deleted file mode 100644
index 6cf3083..0000000
--- a/lib/skels/jao-skel-lisa.el
+++ /dev/null
@@ -1,157 +0,0 @@
-;;; lisa variants of c skeletons
-
-;; Copyright (C) 2004, 2005, 2006 Jose Antonio Ortega Ruiz
-
-;; Author: Jose A Ortega Ruiz <jao@gnu.org>
-;; Keywords: tools
-
-;; 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., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; Lisa variants for c skeletons
-
-;;; Code:
-
-(require 'common-skel)
-
-(defun jao-lisa-filename ()
- (let* ((fname (expand-file-name (buffer-file-name)))
- (parts (split-string fname "/"))
- (dirs (member "src" parts)))
- (mapconcat 'identity dirs "/")))
-
-
-(defun jao-lisa-guard ()
- (upcase (concat (jao-basename)
- "_" (jao-extension) "_"
- (format-time-string "%y%m%d%H%M"))))
-
-(defun jao-lisa-header (&optional desc group prf)
- (concat "/**"
- "\n * @file " (jao-lisa-filename)
- "\n * @author " (user-full-name) " <"user-mail-address">"
- "\n * @date " (format-time-string "%a %b %d, %Y %H:%M")
- "\n * @brief " (or desc (read-string "Description: "))
- (if group (concat "\n * @ingroup " group) "")
- (if prf (concat "\n * @uutrx " prf) "")
- "\n **/\n\n"
- (jao-arch-line "// " "")))
-
-(define-skeleton jao-skel-lisa-h
- "Standard lisa c header"
- nil
- '(setq guard (jao-lisa-guard))
- (jao-lisa-header)
- \n \n
- "#ifndef " guard \n
- "#define " guard \n
- \n \n "#include \"" _ "\"" \n \n \n
- " " \n "// Types" \n \n \n
- " " \n "// Constants" \n \n \n
- " " \n "// Functions" \n \n \n
- \n \n
- "#endif // " guard
- \n \n)
-
-(define-skeleton jao-skel-lisa-c
- "Standard lisa c body"
- nil
- (jao-lisa-header (concat (jao-other-file-name "h" "c") " implementation"))
- \n \n
- "#include \""
- (jao-basename)
- ".h\"" >
- > \n \n \n
- " " \n "// Private" \n \n \n
- _
- " " \n "// Public" \n \n \n
- )
-
-(define-skeleton jao-skel-lisa-test
- "Cantata++ test file"
- nil
- '(setq v1 (read-string "File under test (sans extension): "))
- '(setq v0 (read-string "Doxygen group under test: "))
- '(setq v2 (concat "UnitTest" v0))
- (jao-lisa-header (concat "Unit tests for " v1)
- v2
- (read-string "Prefix of functions being tested (e.g. 'rtos_?+'): "))
- \n \n
- "#include \"test/test.h\"" > \n
- "#include \"" v1 ".h\"" > \n \n \n
- "// Test name" > \n
- "char const *test_name = \"" (concat v1 "_test") "\";" > \n \n
- "// Prototypes for test functions" > \n
- "/**" \n
- "* @defgroup " v2 " Unit tests" > \n
- "* @ingroup " v0 > \n
- "**/" > \n
- "//@{" > \n
- "//@}" > \n
- \n \n \n
- "void" > \n
- "run_tests (void)" > \n
- "{" > \n
- "}" > \n \n
- "// Test functions" > \n \n \n)
-
-(defun jao-add-cantata-test ()
- "Call this function inside a test buffer to add a new test fun"
- (interactive)
- (let* ((fn (read-string "Function under test: "))
- (tfn (concat "test_" fn)))
- (goto-char (point-min))
- (if (not (search-forward-regexp "^// Prototypes for test functions$" nil t))
- (error "No beginning of test fun declarations found"))
- (if (not (search-forward-regexp "//@\\}$" nil t))
- (error "Missing doxygen group marks in prototype function decls"))
- (beginning-of-line)
- (open-line 1)
- (insert "/**\n * Unit tests for @ref " fn "\n */\n")
- (insert "static void " tfn " (void);\n")
- (if (not (search-forward-regexp "run_tests (void)$" nil t))
- (error "No run_tests() definition found"))
- (if (not (search-forward-regexp "^}" nil t))
- (error "End of run_tests() not found"))
- (beginning-of-line)
- (insert "\n")
- (previous-line 1)
- (insert tfn " ();")
- (indent-according-to-mode)
- (goto-char (point-max))
- (jao-insert-cantata-test-fun tfn)))
-
-(defun jao-insert-cantata-test-fun (fn)
- (beginning-of-line)
- (insert "void\n" fn " (void)\n{\n")
- (insert "START_TEST (\"" fn
- "\", \"" (read-string "Test case description: ") "\");")
- (indent-according-to-mode)
- (insert "\n\n\nEND_TEST ();")
- (indent-according-to-mode)
- (insert "\n}\n"))
-
-
-(defun jao-skel-lisa-activate ()
- (interactive)
- (jao-provide-skel "\\.c$" 'jao-skel-lisa-c)
- (jao-provide-skel "\\.h$" 'jao-skel-lisa-h)
- (jao-provide-skel "tests/.*\\.c$" 'jao-skel-lisa-test))
-
-
-(provide 'lisa-skel)
-
diff --git a/lib/skels/jao-skel-muse.el b/lib/skels/jao-skel-muse.el
deleted file mode 100644
index 86686d9..0000000
--- a/lib/skels/jao-skel-muse.el
+++ /dev/null
@@ -1,41 +0,0 @@
-;;; muse-skel.el --- muse pages
-
-;; Copyright (C) 2006 Jose Antonio Ortega Ruiz
-
-;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
-;; Keywords: tools
-
-;; 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.
-
-;;; Code:
-
-(require 'common-skel)
-
-(define-skeleton jao-skel-muse-file
- "Muse file skeleton"
- "Documents (sub)dir: "
- _ \n \n \n \n \n \n \n
- "----" \n
- ";;; Local Variables:" \n
- ";;; wiki-docs: " str \n
- ";;; End:" \n \n
- '(hack-local-variables))
-
-(add-to-list 'auto-insert-alist
- '("\\.muse\\'" . jao-skel-muse-file))
-
-(provide 'muse-skel)
-;;; muse-skel.el ends here
diff --git a/lib/skels/jao-skel-noweb.el b/lib/skels/jao-skel-noweb.el
deleted file mode 100644
index 0e37702..0000000
--- a/lib/skels/jao-skel-noweb.el
+++ /dev/null
@@ -1,48 +0,0 @@
-;;; noweb-skel.el --- skeleton for noweb files
-
-;; Copyright (C) 2003, 2004, 2005 Jose Antonio Ortega Ruiz
-
-;; Author: Jose A Ortega Ruiz <jao@gnu.org>
-;; Keywords: tools
-
-;; 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., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; Skeleton for noweb files
-
-;;; Code:
-
-(require 'common-skel)
-(require 'latex-skel)
-
-(define-skeleton jao-skel-noweb
- "Noweb standard header"
- "Code mode (without -mode suffix): "
- "% -*- mode: Noweb; noweb-code-mode: " str "-mode -*-"
- '(setq noweb-code-mode (intern (concat str "-mode")))
- \n
- '(jao-skel-latex)
- \n _ \n \n
- "%%% end of file"
- \n)
-
-(add-to-list 'auto-insert-alist '("\\.nw$" . jao-skel-noweb))
-
-(provide 'noweb-skel)
-
-
-;;; noweb-skel.el ends here
diff --git a/lib/skels/jao-skel-pika.el b/lib/skels/jao-skel-pika.el
deleted file mode 100644
index 654792d..0000000
--- a/lib/skels/jao-skel-pika.el
+++ /dev/null
@@ -1,88 +0,0 @@
-;;; pika variants of c skeletons
-
-;; Copyright (C) 2004, 2005 Jose Antonio Ortega Ruiz
-
-;; Author: Jose A Ortega Ruiz <jao@gnu.org>
-;; Keywords: tools
-
-;; 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., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; Pika variants for c skeletons
-
-;;; Code:
-
-(require 'common-skel)
-
-(defun jao-pika-guard ()
- (upcase (concat "include__" (jao-basedir) "__" (jao-basename) "_h")))
-
-(define-skeleton jao-pika-header
- ""
- "Brief file description: "
- "/* " (file-name-nondirectory (buffer-file-name)) ": " str
- \n "*" > \n
- "****************************************************************"
- > \n (jao-copyright-line "* ")
- > \n "*" > \n
- "* See the file \"COPYING\" for further information about"
- > n
- "* the copyright and warranty status of this work."
- > n
- "*/" \n " " \n _)
-
-(define-skeleton jao-skel-pika-h
- "Standard pika c header"
- nil
- (jao-pika-header)
- '(setq guard (jao-pika-guard))
- "#ifndef " guard \n
- "#define " guard \n
- " "
- \n \n "#include \"" _ "\""\n \n
- " "
- \n \n \n
- " "
- \n
- "#endif /* " guard " */"
- \n \n " " \n
- (jao-arch-line "/* " "*/")
- \n)
-
-(define-skeleton jao-skel-pika-c
- "Standard pika c body"
- nil
- (jao-pika-header)
- \n "#include \"" (jao-dir-level 2) ".h\"" \n
- \n
- " "
- \n \n _ \n \n " " \n
- (jao-arch-line "/* " "*/")
- \n)
-
-(defun jao-skel-pika-activate ()
- (interactive)
- (let ((c (assoc "\\.c$" auto-insert-alist))
- (h (assoc "\\.h$" auto-insert-alist)))
- (if c (setf (cdr c) 'jao-skel-pika-c)
- (add-to-list 'auto-insert-alist '("\\.c$" . jao-skel-pika-c)))
- (if h (setf (cdr h) 'jao-skel-pika-h)
- (add-to-list 'auto-insert-alist '("\\.h$" . jao-skel-pika-h)))))
-
-
-(provide 'pika-skel)
-
diff --git a/lib/skels/jao-skel-s48.el b/lib/skels/jao-skel-s48.el
deleted file mode 100644
index 30e749f..0000000
--- a/lib/skels/jao-skel-s48.el
+++ /dev/null
@@ -1,61 +0,0 @@
-;;; s48-skel.el --- skeleton for s48
-
-;; Copyright (C) 2003, 2004, 2005, 2006, 2008, 2009 Jose A Ortega Ruiz
-
-;; Author: Jose A Ortega Ruiz <jao@gnu.org>
-;; Keywords: lisp
-
-;; 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 3, 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., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; Skeleton for s48/slime48 like languages
-
-;;; Code:
-
-(require 'common-skel)
-(require 'lisp-skel)
-
-(define-skeleton jao-skel-s48-file
- "Slime/Scheme48 file header"
- "Package: "
- ";; -*- mode: scheme48; scheme48-package: " str " -*-"
- ?\n
- (jao-co-line ";; ")
- ?\n
- (jao-insert-copyright-file)
- \n ";;; Comentary: " \n \n ";; " _ \n
- \n ";;; Code: " \n \n \n \n
- ";;; " (file-name-nondirectory (buffer-file-name)) " ends here"
- '(scheme48-mode)
- \n
- \n)
-
-(define-skeleton jao-skel-s48-file-maybe
- "Choose between a s48 file and a plain scheme one"
- nil
- '(if (y-or-n-p "Is this a s48 file? ") (jao-skel-s48-file)
- (jao-skel-lisp-file))
- '(hack-local-variables))
-
-
-(jao-provide-skel "\\.scm\\'" 'jao-skel-s48-file-maybe)
-
-
-(provide 's48-skel)
-
-
-;;; lisp-skel.el ends here
diff --git a/lib/skels/jao-skel-scsh.el b/lib/skels/jao-skel-scsh.el
deleted file mode 100644
index 495925f..0000000
--- a/lib/skels/jao-skel-scsh.el
+++ /dev/null
@@ -1,45 +0,0 @@
-;;; scsh-skel.el --- skeleton for scsh scripts
-
-;; Copyright (C) 2003, 2004, 2005, 2006, 2008 Jose Antonio Ortega Ruiz
-
-;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
-;; Keywords: abbrev
-
-;; 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 3, 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., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-(require 'common-skel)
-
-(define-skeleton jao-skel-scsh
- "Scsh script skeleton"
- "Brief description: "
- "#! " (executable-find "scsh") " \\" \n
- "-e " (file-name-nondirectory (buffer-file-name)) " -s" \n
- "!#" \n \n
- ";;;; " str \n
- "(define (" (file-name-nondirectory (buffer-file-name)) " args)"
- \n
- > _ " )"
- > \n \n \n
- ";; Local Variables:" \n
- ";; mode: scheme" \n
- ";; End:"
- '(hack-local-variables)
- \n \n)
-
-(provide 'scsh-skel)
-
-
-;;; scsh-skel.el ends here