upstream/mercurial-mirror Files · contrib/hg-test-mode.el

fileset: add "tracked()" to explicitly select files in the revision...

fileset: add "tracked()" to explicitly select files in the revision I'm going to rewrite filesets to be match predicates, which means basic patterns such as '*' will no longer be "closed" to the subset constructed from the ctx. Good thing is that 'hg status "set:not binary()"' can include unknown files out of the box, and fileset computation will likely to be faster as we won't have to walk dirstate twice, for example. Bad thing is that we can't select files at a certain revision by 'set:revs(REV, **)' since '**' is "open" to any paths. So, this patch introduces "tracked()" as a replacement for the '**' in the example above.

Matt Mackall - - Load All Authors

File last commit:

r22125:7fce964b default


                r38708:131aae58

default

Download file

             hg-test-mode.el
        
                    56 lines
            
             | 1.9 KiB
            
                | text/x-common-lisp
            
             |
                EmacsLispLexer
            
             / contrib / hg-test-mode.el
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      ;; hg-test-mode.el - Major mode for editing Mercurial tests

      ;;

      ;; Copyright 2014 Matt Mackall <mpm@selenic.com>

      ;; "I have no idea what I'm doing"

      ;;

      ;; This software may be used and distributed according to the terms of the

      ;; GNU General Public License version 2 or any later version.

      ;;

      ;; To enable, add something like the following to your .emacs:

      ;;

      ;; (if (file-exists-p "~/hg/contrib/hg-test-mode.el")

      ;;    (load "~/hg/contrib/hg-test-mode.el"))

      (defvar hg-test-mode-hook nil)

      (defvar hg-test-mode-map

        (let ((map (make-keymap)))

          (define-key map "\C-j" 'newline-and-indent)

          map)

        "Keymap for hg test major mode")

      (add-to-list 'auto-mode-alist '("\\.t\\'" . hg-test-mode))

      (defconst hg-test-font-lock-keywords-1

        (list

         '("^  \\(\\$\\|>>>\\) " 1 font-lock-builtin-face)

         '("^  \\(>\\|\\.\\.\\.\\) " 1 font-lock-constant-face)

         '("^  \\([[][0-9]+[]]\\)$" 1 font-lock-warning-face)

         '("^  \\(.*?\\)\\(\\( [(][-a-z]+[)]\\)*\\)$" 1 font-lock-string-face)

         '("\\$?\\(HG\\|TEST\\)\\w+=?" . font-lock-variable-name-face)

         '("^  \\(.*?\\)\\(\\( [(][-a-z]+[)]\\)+\\)$" 2 font-lock-type-face)

         '("^#.*" . font-lock-preprocessor-face)

         '("^\\([^ ].*\\)$" 1 font-lock-comment-face)

         )

        "Minimal highlighting expressions for hg-test mode")

      (defvar hg-test-font-lock-keywords hg-test-font-lock-keywords-1

        "Default highlighting expressions for hg-test mode")

      (defvar hg-test-mode-syntax-table

        (let ((st (make-syntax-table)))

          (modify-syntax-entry ?\" "w" st) ;; disable standard quoting

          st)

      "Syntax table for hg-test mode")

      (defun hg-test-mode ()

        (interactive)

        (kill-all-local-variables)

        (use-local-map hg-test-mode-map)

        (set-syntax-table hg-test-mode-syntax-table)

        (set (make-local-variable 'font-lock-defaults) '(hg-test-font-lock-keywords))

        (setq major-mode 'hg-test-mode)

        (setq mode-name "hg-test")

        (run-hooks 'hg-test-mode-hook))

      (provide 'hg-test-mode)

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

				;; hg-test-mode.el - Major mode for editing Mercurial tests
				;;
				;; Copyright 2014 Matt Mackall <mpm@selenic.com>
				;; "I have no idea what I'm doing"
				;;
				;; This software may be used and distributed according to the terms of the
				;; GNU General Public License version 2 or any later version.
				;;
				;; To enable, add something like the following to your .emacs:
				;;
				;; (if (file-exists-p "~/hg/contrib/hg-test-mode.el")
				;; (load "~/hg/contrib/hg-test-mode.el"))

				(defvar hg-test-mode-hook nil)

				(defvar hg-test-mode-map
				(let ((map (make-keymap)))
				(define-key map "\C-j" 'newline-and-indent)
				map)
				"Keymap for hg test major mode")

				(add-to-list 'auto-mode-alist '("\\.t\\'" . hg-test-mode))

				(defconst hg-test-font-lock-keywords-1
				(list
				'("^ \\(\\$\\\|>>>\\) " 1 font-lock-builtin-face)
				'("^ \\(>\\\|\\.\\.\\.\\) " 1 font-lock-constant-face)
				'("^ \\([[][0-9]+[]]\\)$" 1 font-lock-warning-face)
				'("^ \\(.?\\)\\(\\( [(][-a-z]+[)]\\)\\)$" 1 font-lock-string-face)
				'("\\$?\\(HG\\\|TEST\\)\\w+=?" . font-lock-variable-name-face)
				'("^ \\(.*?\\)\\(\\( [(][-a-z]+[)]\\)+\\)$" 2 font-lock-type-face)
				'("^#.*" . font-lock-preprocessor-face)
				'("^\\([^ ].*\\)$" 1 font-lock-comment-face)
				)
				"Minimal highlighting expressions for hg-test mode")

				(defvar hg-test-font-lock-keywords hg-test-font-lock-keywords-1
				"Default highlighting expressions for hg-test mode")

				(defvar hg-test-mode-syntax-table
				(let ((st (make-syntax-table)))
				(modify-syntax-entry ?\" "w" st) ;; disable standard quoting
				st)
				"Syntax table for hg-test mode")

				(defun hg-test-mode ()
				(interactive)
				(kill-all-local-variables)
				(use-local-map hg-test-mode-map)
				(set-syntax-table hg-test-mode-syntax-table)
				(set (make-local-variable 'font-lock-defaults) '(hg-test-font-lock-keywords))
				(setq major-mode 'hg-test-mode)
				(setq mode-name "hg-test")
				(run-hooks 'hg-test-mode-hook))

				(provide 'hg-test-mode)