summaryrefslogtreecommitdiffhomepage
path: root/attic/skels/geiser-skel.el
diff options
context:
space:
mode:
Diffstat (limited to 'attic/skels/geiser-skel.el')
-rw-r--r--attic/skels/geiser-skel.el50
1 files changed, 0 insertions, 50 deletions
diff --git a/attic/skels/geiser-skel.el b/attic/skels/geiser-skel.el
deleted file mode 100644
index 3c9181a..0000000
--- a/attic/skels/geiser-skel.el
+++ /dev/null
@@ -1,50 +0,0 @@
-;; geiser-skel.el -- geiser skeletons
-
-;; Copyright (C) 2009 Jose Antonio Ortega Ruiz
-
-;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
-;; Start date: Fri Sep 11, 2009 00:31
-
-(require 'common-skel)
-
-(defconst jao-skel-geiser--bsd
- ";; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the Modified BSD License. You should
-;; have received a copy of the license along with this program. If
-;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
-")
-
-(defsubst jao-skel-geiser--end-line ()
- (format ";;; %s ends here\n\n" (file-name-nondirectory (buffer-file-name))))
-
-(define-skeleton jao-skel-geiser--common
- "Geiser elisp header"
- "Brief description: "
- ";;; " (file-name-nondirectory (buffer-file-name)) " -- " str ""
- \n \n
- (jao-copyright-line ";; ") \n
- jao-skel-geiser--bsd
- \n (jao-date-line ";; ") \n)
-
-(define-skeleton jao-skel-geiser-elisp
- "Geiser elisp header"
- nil
- '(jao-skel-geiser--common)
- " " \n _ \n \n " " \n "(provide '" (jao-basename) ")" \n
- (jao-skel-geiser--end-line))
-
-(jao-provide-skel "geiser/elisp/.+\\.el\\'" 'jao-skel-geiser-elisp)
-
-(define-skeleton jao-skel-geiser-scheme
- "Geiser scheme header"
- nil
- '(jao-skel-geiser--common) _
- \n (jao-skel-geiser--end-line))
-
-(jao-provide-skel "geiser/scheme/.+\\.\\(scm\\|ss\\|sls\\)\\'"
- 'jao-skel-geiser-scheme)
-
-
-
-(provide 'geiser-skel)
-;;; geiser-skel.el ends here