Elisp snippet for mailing feedback

(defun sacha/mail-cs21a-feedback (id)
  (interactive "MID:")
  (save-excursion
    (insert "\n-------------------------------------------------------------------\n"
            "Files\n"
            "-------------------------------------------------------------------\n"
            "\n"
            "-------------------------------------------------------------------\n"
            "Vectors\n"
            "-------------------------------------------------------------------\n"
            "\n"
            "-------------------------------------------------------------------\n"
            "Other comments\n"
            "-------------------------------------------------------------------\n"))
  (insert "-------------------------------------------------------------------\n"
          "Your code\n"
          "-------------------------------------------------------------------\n")
  (insert-file-contents
   (car (file-expand-wildcards (concat "~/1/" id "/*.java") t ))))

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>