Commit | Line | Data |
---|---|---|
1f13861b AK |
1 | ;;; guix-popup.el --- Popup windows library |
2 | ||
3 | ;; Copyright © 2015 Alex Kost <alezost@gmail.com> | |
4 | ||
5 | ;; This file is part of GNU Guix. | |
6 | ||
7 | ;; GNU Guix is free software; you can redistribute it and/or modify | |
8 | ;; it under the terms of the GNU General Public License as published by | |
9 | ;; the Free Software Foundation, either version 3 of the License, or | |
10 | ;; (at your option) any later version. | |
11 | ||
12 | ;; GNU Guix is distributed in the hope that it will be useful, | |
13 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | ;; GNU General Public License for more details. | |
16 | ||
17 | ;; You should have received a copy of the GNU General Public License | |
18 | ;; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
19 | ||
20 | ;;; Commentary: | |
21 | ||
22 | ;; This file provides `guix-define-popup' macro which is just an alias | |
23 | ;; to `magit-define-popup'. According to the manual (info | |
24 | ;; "(magit-popup) Defining prefix and suffix commands") `magit-popup' | |
25 | ;; library will eventually be superseded by a more general library. | |
26 | ||
27 | ;;; Code: | |
28 | ||
29 | (require 'magit-popup) | |
30 | ||
31 | (defalias 'guix-define-popup 'magit-define-popup) | |
32 | ||
33 | (defvar guix-popup-font-lock-keywords | |
34 | (eval-when-compile | |
35 | `((,(rx "(" | |
36 | (group "guix-define-popup") | |
37 | symbol-end | |
38 | (zero-or-more blank) | |
39 | (zero-or-one | |
40 | (group (one-or-more (or (syntax word) (syntax symbol)))))) | |
41 | (1 font-lock-keyword-face) | |
42 | (2 font-lock-function-name-face nil t))))) | |
43 | ||
44 | (font-lock-add-keywords 'emacs-lisp-mode guix-popup-font-lock-keywords) | |
45 | ||
46 | (provide 'guix-popup) | |
47 | ||
48 | ;;; guix-popup.el ends here |