insert-header-preprocessor-definition

[Emanuel Berg]

(defun insert-header-preprocessor-definition ()
  (interactive)
  (let*((filename (buffer-name))
        (label (upcase (replace-regexp-in-string "\\." "_" filename)))
        (beg-string (concat
                     (format "#ifndef %s\n"   label)
                     (format "#define %s\n\n" label) ))
        (end-string "\n#endif") )
    (save-excursion
      (goto-char (point-min))
      (insert beg-string)

      (goto-char (point-max))
      (beginning-of-line)
      (insert end-string) )
    ))
(defalias 'hep #'insert-header-preprocessor-definition)

-- 
underground experts united
http://user.it.uu.se/~embe8573