[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Momchil Velikov
Subject: Re: [Gnu-arch-users] arch-tag.el
Date: 31 Jan 2004 13:33:43 +0200
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50

>>>>> "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 ()
  (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)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]