[Users] External editor?
itz at buug.org
Mon Nov 10 20:29:59 CET 2014
On Mon, 10 Nov 2014 12:53:47 -0500,
Barry Warsaw <barry at python.org> wrote:
Barry> Here's my dumb way of setting this up in emacs. I've had this
Barry> chunk of code for years, so there are probably better ways of
Barry> doing it, but it WFM.
> (defun baw-os-path-split (filename)
> "Convert a file name into a list of its path components."
> (let ((path filename)
> last dir parts)
> (while path
> (setq last (file-name-nondirectory path)
> dir (file-name-directory path))
> ;; Remove any trailing slash.
> (if dir
> (setq path (substring (file-name-directory path) 0 -1))
> (setq path dir))
> (push last parts))
> (defun baw-server-visit-hook ()
> (let* ((filename (buffer-file-name))
> (parts (and filename (reverse (baw-os-path-split filename))))
> (when parts
> (setq firstpart (pop parts))
> (when (and (>= (length firstpart) 6)
> (string-equal (substring firstpart 0 6) "tmpmsg")
> (string-equal (pop parts) "tmp")
> (string-equal (pop parts) ".claws-mail"))
> ;; Claws mail temporary buffers should be mail buffers for syntax
> ;; highlighting. I may want to turn off whitespace mode and other
> ;; syntax highlighting, but I'm not sure yet.
> (add-hook 'server-visit-hook 'baw-server-visit-hook)
That's a very nice way too, yes. But then it works _only_ if you're
connecting to a daemon emacs. My "editor" is actually a script that
execs emacsclient if the daemon is up, and full emacs otherwise.
Please *no* private copies of mailing list or newsgroup messages.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Size: 490 bytes
Desc: OpenPGP digital signature
More information about the Users