Re: [Gnu-arch-users] arch-tag.el

[Momchil Velikov]

>>>>> "Martin" == Martin Thorsen Ranang <address@hidden> writes:

Martin> Hence, I created this little Emacs lisp function, attached to this
Martin> e-mail, that seems to solve the problem for most kinds of programming
Martin> languages used in my projects.

My 2 cents ...

;; Arch taglines
(defun make-tag ()
  (interactive)
  (insert "arch-tag: ")
  (call-process "uuidgen" nil t))

(global-set-key [(control x) (a) (t)] 'make-tag)

(defun make-c-tag (n)
  (insert "\n/*\n * Local variables:\n")
  (if n (insert " * mode: C++\n") (insert " * mode: C\n"))
  (insert " * indent-tabs-mode: nil\n * arch-tag: ")
  (call-process "uuidgen" nil t)
  (insert " * End:\n */\n"))

(global-set-key [(control x) (a) (c)]
                '(lambda () (interactive) (make-c-tag nil)))
(global-set-key [(control x) (a) (x)]
                '(lambda () (interactive) (make-c-tag t)))