From 1f13861b579aadf6818f4388a9e9654c9637ae5c Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Thu, 13 Aug 2015 11:06:45 +0300 Subject: emacs: Add "guix-popup.el". * emacs/guix-popup.el: New file. * emacs.am (ELFILES): Add it. --- emacs.am | 1 + emacs/guix-popup.el | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 49 insertions(+) create mode 100644 emacs/guix-popup.el diff --git a/emacs.am b/emacs.am index 18ff091c7a..e3f2001e8f 100644 --- a/emacs.am +++ b/emacs.am @@ -28,6 +28,7 @@ ELFILES = \ emacs/guix-list.el \ emacs/guix-messages.el \ emacs/guix-pcomplete.el \ + emacs/guix-popup.el \ emacs/guix-prettify.el \ emacs/guix-read.el \ emacs/guix-utils.el \ diff --git a/emacs/guix-popup.el b/emacs/guix-popup.el new file mode 100644 index 0000000000..59e98a352e --- /dev/null +++ b/emacs/guix-popup.el @@ -0,0 +1,48 @@ +;;; guix-popup.el --- Popup windows library + +;; Copyright © 2015 Alex Kost + +;; This file is part of GNU Guix. + +;; GNU Guix is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Guix is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; This file provides `guix-define-popup' macro which is just an alias +;; to `magit-define-popup'. According to the manual (info +;; "(magit-popup) Defining prefix and suffix commands") `magit-popup' +;; library will eventually be superseded by a more general library. + +;;; Code: + +(require 'magit-popup) + +(defalias 'guix-define-popup 'magit-define-popup) + +(defvar guix-popup-font-lock-keywords + (eval-when-compile + `((,(rx "(" + (group "guix-define-popup") + symbol-end + (zero-or-more blank) + (zero-or-one + (group (one-or-more (or (syntax word) (syntax symbol)))))) + (1 font-lock-keyword-face) + (2 font-lock-function-name-face nil t))))) + +(font-lock-add-keywords 'emacs-lisp-mode guix-popup-font-lock-keywords) + +(provide 'guix-popup) + +;;; guix-popup.el ends here -- cgit v1.2.3