My personal .emacs.d folder

mac-compat.el 418B

1234567891011121314151617181920
  1. (defun darwin? ()
  2. (eq system-type 'darwin))
  3. (defun linux? ()
  4. (eq system-type 'gnu/linux))
  5. (defun fixed-buffer-width ()
  6. (cond ((not window-system) 78)
  7. (t 100)))
  8. ;;; Toolbar setup
  9. (when (not (darwin?))
  10. (display-time))
  11. (when (darwin?)
  12. (setenv "PATH"
  13. (concat (getenv "PATH")
  14. ":/usr/local/bin"))
  15. (setq exec-path (append exec-path '("/usr/local/bin"))))