changelog shortlog tags changeset files revisions annotate raw

funck.el

changeset 66: 5b737eefe5ea
author: kim.vanwyk
date: Wed Nov 10 15:19:03 2010 +0200 (18 months ago)
permissions: -rw-r--r--
description: Adding CSharp Mode and Google Weather 
     1(defvar funck-command (concat "ctags -x \"--c-kinds=f\" -f -") "The command run by the funck function.") 

     2(defvar funck-use-search-in-buffer-name t

     3  "If non-nil, use the search string in the ack buffer's name.")

     4(define-compilation-mode funck-mode "Funck"

     5  "Specialization of compilation-mode for use with funck."

     6  nil)

     7(defvar funck-regexp-alist '(("^\\(.*\\) function\s *\\([0-9]*\\) \\([A-Za-z\\./_:-]*\\) \\(.*\\)" 

     8                              3 2 nil nil nil)))

     9

    10;;'(("\\([a-z_-]*\\)\\s *\\(function\\)\\s *\\([0-9]*\\) \\([A-Za-z.:/]*\\)" 4 3)

    11(defun funck ()

    12  "Run funck, with user-specified ARGS, and collect output in a buffer.

    13While funck runs asynchronously, you can use the \\[next-error] command to

    14find the text that ack hits refer to. The command actually run is

    15defined by the funck-command variable."

    16  (interactive)

    17  (let (compile-command

    18        (compilation-error-regexp-alist funck-regexp-alist)

    19        (compilation-directory default-directory)

    20        (funck-full-buffer-name (concat "*funck-" args "*")))

    21;;    (save-some-buffers (not compilation-ask-about-save) nil)

    22    (compilation-start (concat funck-command " " args) 'funck-mode

    23                       (when funck-use-search-in-buffer-name

    24                         (function (lambda (ignore)

    25                                     funck-full-buffer-name)))

    26                       (regexp-quote args))))

    27

    28(provide 'funck)