[137332] branches/gsoc15-portfile/portfile.el/portfile.el

chunyang at macports.org chunyang at macports.org
Tue Jun 9 06:13:38 PDT 2015


Revision: 137332
          https://trac.macports.org/changeset/137332
Author:   chunyang at macports.org
Date:     2015-06-09 06:13:38 -0700 (Tue, 09 Jun 2015)
Log Message:
-----------
portfile.el: Highlight some keywords

Modified Paths:
--------------
    branches/gsoc15-portfile/portfile.el/portfile.el

Modified: branches/gsoc15-portfile/portfile.el/portfile.el
===================================================================
--- branches/gsoc15-portfile/portfile.el/portfile.el	2015-06-09 11:17:57 UTC (rev 137331)
+++ branches/gsoc15-portfile/portfile.el/portfile.el	2015-06-09 13:13:38 UTC (rev 137332)
@@ -14,5 +14,38 @@
 
 ;;; Code:
 
+(defvar portfile-required-list
+  '("PortSystem" "name" "version" "maintainers"
+    "homepage" "platforms"
+    "master_sites" "master_sites-append" "master_sites-delete"
+    "categories" "categories-append" "categories-delete"
+    "description" "description-append"
+    "long_description" "long_description-append"))
+
+(defvar portfile-optional-list
+  '("PortGroup" "epoch" "revision" "patch_sites"
+    "license" "conflicts" "license_noconflict"
+    "replaced_by" "supported_archs"
+    "distfiles" "distfiles-append" "distfiles-delete"
+    "distname" "dist_subdir" "worksrcdir"
+    "installs_libs" "nextgroup=PortfileYesNo" "skipwhite"
+    "depends_skip_archcheck" "depends_skip_archcheck-append" "depends_skip_archcheck-delete"
+    "checksums" "checksums-append" "checksums-delete"))
+
+(defvar portfile-mode-font-lock-keywords
+  (list (cons (concat "\\_<"
+                      (regexp-opt (append portfile-required-list
+                                          portfile-optional-list) t) "\\_>")
+              'font-lock-keyword-face)))
+
+(define-derived-mode portfile-mode tcl-mode "portfile-mode"
+  "Portfile mode"
+  (font-lock-add-keywords nil portfile-mode-font-lock-keywords))
+
+;; Test:
+;; (add-hook 'tcl-mode-hook (lambda ()
+;;                            (when (string-equal (buffer-name) "Portfile")
+;;                              (portfile-mode))))
+
 (provide 'portfile)
 ;;; portfile.el ends here
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150609/dbb09dfc/attachment.html>


More information about the macports-changes mailing list