123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 |
- (require 'jao-skel)
- (require 'jao-compilation)
- (require 'haskell-mode nil t)
- (defun jao-skel-haskell--guess-module ()
- (if (fboundp 'haskell-guess-module-name)
- (haskell-guess-module-name)
- (read-string "Module: " (jao-skel-basename))))
- (defconst jao-skel--haskell-line (make-string 78 ?-))
- (define-skeleton jao-skel-haskell-file
- "Haskell hs file header"
- "Brief description: "
- '(setq v (jao-skel-haskell--guess-module))
- jao-skel--haskell-line \n
- "-- |" \n
- "-- Module: " v \n
- (jao-skel-copyright-line "-- Copyright: " "" t)
- "-- License: BSD3-style (see LICENSE)" \n
- "--" \n
- "-- Maintainer: " user-mail-address \n
- "-- Stability: unstable" \n
- "-- Portability: portable" \n
- "-- Created: " (format-time-string "%a %b %d, %Y %H:%M") \n
- "--" \n
- "--" \n
- "-- " str \n
- "--" \n
- jao-skel--haskell-line
- \n \n \n
- "module " v " where " \n \n \n)
- (jao-skel-install "\\.hs\\'" 'jao-skel-haskell-file)
- (provide 'jao-skel-haskell)
|