.emacs.d/gr-config.el at master · graehl/.emacs.d · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
(defun emacs-version-matches (substr)
  (string-match substr (emacs-version)))

(setq gr-mac-port (emacs-version-matches "Carbon"))

(setq gr-on-mac (eq system-type 'darwin))
(setq gr-on-linux (eq system-type 'gnu/linux))
(setq gr-on-win (not (or gr-on-mac gr-on-linux)))

(setq gr-have-ag (not gr-on-win))

(defun emacs-version-get-component (component)
  (let ((old-match-data (match-data))
	(version 0)
	(regexp (cond
		 ((eq 'major component) "^\\([0-9]+\\)")
		 ((eq 'minor component) "^[0-9]+\\.\\([0-9]+\\)")
		 ((eq 'build component) "^[0-9]+\\.[0-9]+\\.\\([0-9]+\\)"))))
    (unwind-protect
	(and (string-match regexp emacs-version)
	     (setq version
		   (string-to-number (substring emacs-version
					     (match-beginning 1)
					     (match-end 1)))))
      (store-match-data old-match-data))
    version))

(defun emacs-version-major ()
  "Returns (as an integer) the major version number."
  (interactive)
  (emacs-version-get-component 'major))

(setq gr-on-24 (>= (emacs-version-major) 24))
(setq gr-on-25 (>= (emacs-version-major) 25))
(setq gr-on-26 (>= (emacs-version-major) 26))
(setq gr-on-27 (>= (emacs-version-major) 27))
(setq gr-on-28 (>= (emacs-version-major) 28))
(setq gr-on-24-3 (or gr-on-25 (and (= (emacs-version-major) 24) (>= (emacs-version-get-component 'minor) 3))))
(provide 'gr-config)