From 747696945a91464e34af86f49d373d1d7a9130c0 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 13 Mar 2022 00:39:14 +0000 Subject: skels: obsolete skeletons back to the closet --- lib/skels/jao-skel-all.el | 49 ------------- lib/skels/jao-skel-dot.emacs.el | 11 --- lib/skels/jao-skel-fuel.el | 45 ------------ lib/skels/jao-skel-init.el | 39 ---------- lib/skels/jao-skel-lisa.el | 157 ---------------------------------------- lib/skels/jao-skel-muse.el | 41 ----------- lib/skels/jao-skel-noweb.el | 48 ------------ lib/skels/jao-skel-pika.el | 88 ---------------------- lib/skels/jao-skel-s48.el | 61 ---------------- lib/skels/jao-skel-scsh.el | 45 ------------ 10 files changed, 584 deletions(-) delete mode 100644 lib/skels/jao-skel-all.el delete mode 100644 lib/skels/jao-skel-dot.emacs.el delete mode 100644 lib/skels/jao-skel-fuel.el delete mode 100644 lib/skels/jao-skel-init.el delete mode 100644 lib/skels/jao-skel-lisa.el delete mode 100644 lib/skels/jao-skel-muse.el delete mode 100644 lib/skels/jao-skel-noweb.el delete mode 100644 lib/skels/jao-skel-pika.el delete mode 100644 lib/skels/jao-skel-s48.el delete mode 100644 lib/skels/jao-skel-scsh.el (limited to 'lib') 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 -;; 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 . - -;;; 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 -;; 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 . - -;;; 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 -;; 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 -;; 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 -;; 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 -;; 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 -;; 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 -;; 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 -;; 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 -- cgit v1.2.3