Re: exec-path question

[Harald Hanche-Olsen <hanche@math.ntnu.no>]

[Harald Hanche-Olsen <hanche@math.ntnu.no> (2011-02-27 08:50:30 UTC)]

> An alternative, as far as the PATH and MANPATH variables goes, is to
> set these from the contents of /etc/paths and /etc/paths.d/* (for
> PATH) and /etc/manpaths and /etc/manpaths.d/* (for MANPATH).
> 
> I think it could be argued that emacs on the mac should do this by
> default.

I suggest code somewhat like this, perhaps to be added to mac-setup.el:

(let ((path-helper
       (lambda (p pd)
	 (with-temp-buffer
	   (mapc (lambda (filename)
		   (insert-file-contents filename)
		   (goto-char (point-max))
		   (unless (bolp) (insert "\n")))
		 (cons p (directory-files pd t "[^.]")))
	   (let (res)
	     (goto-char (point-min))
	     (while (< (point) (point-max))
	       (setq res (cons (buffer-substring
				(point) (progn (end-of-line) (point)))
			       res))
	       (forward-char 1))
	     (nreverse res))))))
  (setq exec-path (funcall path-helper "/etc/paths" "/etc/paths.d"))
  (setenv "PATH" (mapconcat #'identity exec-path ":"))
  (setenv "MANPATH"
	  (mapconcat #'identity
		     (funcall path-helper "/etc/manpaths" "/etc/manpaths.d")
		     ":")))

- Harald