Permalink
Browse files

Go mode, updates

  • Loading branch information...
1 parent 8d5c77c commit b028cf9d263a426b161a770192538a847c46a551 @julienXX committed Sep 24, 2012
Showing 1,261 changed files with 1,555 additions and 9,370 deletions.

Large diffs are not rendered by default.

Oops, something went wrong.
@@ -87,7 +87,7 @@
[(0 8)
nil "OAuth 2.0 Authorization Protocol" single])
(org .
- [(20120919)
+ [(20120924)
nil "Outline-based notes management and organizer" tar])
(quarter-plane .
[(0 1)
@@ -136,4 +136,7 @@
nil "Resize windows interactively" single])
(xclip .
[(1 0)
- nil "Emacs Interface to XClip" single]))
+ nil "Emacs Interface to XClip" single])
+ (yasnippet .
+ [(0 8 0)
+ nil "A template system for Emacs" tar]))

Large diffs are not rendered by default.

Oops, something went wrong.
@@ -1 +0,0 @@
-(define-package "ctags-update" "20120919.946" "(auto) update TAGS in parent directory using exuberant-ctags [source: github]" (quote nil))
@@ -4,14 +4,15 @@
;;;### (autoloads (turn-on-ctags-auto-update-mode ctags-auto-update-mode
-;;;;;; ctags-update) "ctags-update" "ctags-update.el" (20569 40324))
+;;;;;; ctags-update) "ctags-update" "ctags-update.el" (20576 22471))
;;; Generated autoloads from ctags-update.el
(autoload 'ctags-update "ctags-update" "\
-update TAGS in parent directory using `exuberant-ctags' you
-can call this function directly , or enable
-`ctags-auto-update-mode' or with prefix `C-u' then you can
-generate a new TAGS file in directory
+update TAGS in parent directory using `exuberant-ctags'.
+1. you can call this function directly,
+2. enable `ctags-auto-update-mode',
+3. with prefix `C-u' then you can generate a new TAGS file in directory,
+4. with prefix `C-uC-u' save the command to king-ring instead of execute it.
\(fn &optional ARGS)" t nil)
@@ -27,7 +28,7 @@ turn on `ctags-auto-update-mode'.
;;;***
-;;;### (autoloads nil nil ("ctags-update-pkg.el") (20569 40324 659311))
+;;;### (autoloads nil nil ("ctags-update-pkg.el") (20576 22471 538316))
;;;***
@@ -0,0 +1 @@
+(define-package "ctags-update" "20120922.1220" "(auto) update TAGS in parent directory using exuberant-ctags [source: github]" (quote nil))
@@ -1,8 +1,8 @@
;;; ctags-update.el --- (auto) update TAGS in parent directory using exuberant-ctags
;; Created: 2011-10-16 13:17
-;; Last Updated: Joseph 2012-09-19 09:46:32 星期三
-;; Version: 0.2.0
+;; Last Updated: Joseph 2012-09-22 12:20:15 星期六
+;; Version: 0.2.1
;; Author: Joseph(纪秀峰) jixiuf@gmail.com
;; Keywords: exuberant-ctags etags
;; URL: https://github.com/jixiuf/helm-etags-plus
@@ -45,10 +45,10 @@
;; if you want to update TAGS only when you want.
;; you can
;; (autoload 'ctags-update "ctags-update" "update TAGS using ctags" t)
-;; and
-;; M-x : ctags-update
-;; with prefix `C-u' ,then you can generate a new TAGS file in your
-;; selected directory.
+;; (global-set-key "\C-cE" 'ctags-update)
+;; with prefix `C-u' ,then you can generate a new TAGS file in your selected directory,
+;; with prefix `C-uC-u' same to prefix `C-u',but save it to king-ring instead of execute it."
+
;;
;; on windows ,you can custom `ctags-update-command' like this:
;; (when (equal system-type 'windows-nt)
@@ -59,7 +59,7 @@
;; Below are complete command list:
;;
;; `ctags-update'
-;; update TAGS in parent directory using `exuberant-ctags' you
+;; update TAGS in parent directory using `exuberant-ctags'.
;; `ctags-auto-update-mode'
;; auto update TAGS using `exuberant-ctags' in parent directory.
;; `turn-on-ctags-auto-update-mode'
@@ -156,12 +156,19 @@ the command to update TAGS"
(tagdir-without-slash-appended (substring tagdir-with-slash-appended 0 (1- length-of-tagfile-directory)))
(args
(append
- (list "-R" "-e" "-f")
- (list (get-system-file-path (or save-tagfile-to-as tagfile-full-path)))
+ (list "-R" "-e" )
+ (when (equal system-type 'windows-nt)
+ (list "-f" (get-system-file-path (or save-tagfile-to-as tagfile-full-path))))
ctags-update-other-options
- (list tagdir-without-slash-appended)
+ (if (equal system-type 'windows-nt)
+ (list tagdir-without-slash-appended)
+ (list "."))
)))
args))
+(defun ctags-update-get-command(command command-args)
+ "get the full command as string."
+ (concat command " "(mapconcat 'identity command-args " ")))
+
(defun get-system-file-path(file-path)
"when on windows `expand-file-name' will translate from \\ to /
@@ -182,15 +189,16 @@ not visiting a file"
;;;###autoload
(defun ctags-update(&optional args)
- "update TAGS in parent directory using `exuberant-ctags' you
-can call this function directly , or enable
-`ctags-auto-update-mode' or with prefix `C-u' then you can
-generate a new TAGS file in directory"
+ "update TAGS in parent directory using `exuberant-ctags'.
+1. you can call this function directly,
+2. enable `ctags-auto-update-mode',
+3. with prefix `C-u' then you can generate a new TAGS file in directory,
+4. with prefix `C-uC-u' save the command to king-ring instead of execute it."
(interactive "P")
(let (tags-file-name process)
(when (or (and args (setq tags-file-name
(expand-file-name
- "TAGS" (read-directory-name "Generate new TAGS to:" ))))
+ "TAGS" (read-directory-name "Generate new TAGS to directory:" ))))
(and (not (get-process "update TAGS"));;if "update TAGS" process is not already running
(or (called-interactively-p 'interactive)
(> (- (float-time (current-time))
@@ -202,17 +210,33 @@ generate a new TAGS file in directory"
(ctags-update-file-truename (buffer-file-name)))
))))
(setq ctags-update-last-update-time (float-time (current-time)));;update time
- (setq process
- (apply 'start-process ;;
- "update TAGS" " *update TAGS*"
- ctags-update-command
- (ctags-update-command-args tags-file-name)))
- (set-process-sentinel process
- (lambda (proc change)
- (when (string-match "\\(finished\\|exited\\)" change)
- (kill-buffer " *update TAGS*")
- (message "TAGS in parent directory is updated. " )
- ))))))
+ (let ((orig-default-directory default-directory)
+ (default-directory (file-name-directory tags-file-name)))
+ (when (equal system-type 'windows-nt)
+ (setq default-directory orig-default-directory))
+ (cond
+ ;;with prefix `C-uC-u' save the command to king-ring
+ ;; sometime the directory you select need root privilege
+ ;; so save the command to king-ring,
+ ((and (called-interactively-p 'interactive) args (equal args '(16)))
+ (kill-new (format "cd %s && %s" default-directory
+ (ctags-update-get-command
+ ctags-update-command (ctags-update-command-args tags-file-name))))
+ (message "save ctags-upate command to king-ring. (C-y) yank it back."))
+ (t
+ (setq process
+ (apply 'start-process ;;
+ "update TAGS" " *update TAGS*"
+ ctags-update-command
+ (ctags-update-command-args tags-file-name)))
+ (set-process-sentinel process
+ (lambda (proc change)
+ (when (string-match "\\(finished\\|exited\\)" change)
+ (kill-buffer " *update TAGS*")
+ (message "TAGS in parent directory is updated. " )
+ )))
+ ))))))
+
;;;###autoload
(define-minor-mode ctags-auto-update-mode
"auto update TAGS using `exuberant-ctags' in parent directory."
@@ -1,40 +0,0 @@
-;;; expand-region-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-
-;;;### (autoloads (er/expand-region) "expand-region" "expand-region.el"
-;;;;;; (20569 40273))
-;;; Generated autoloads from expand-region.el
-
-(autoload 'er/expand-region "expand-region" "\
-Increase selected region by semantic units.
-
-With prefix argument expands the region that many times.
-If prefix argument is negative calls `er/contract-region'.
-If prefix argument is 0 it resets point and mark to their state
-before calling `er/expand-region' for the first time.
-
-\(fn ARG)" t nil)
-
-;;;***
-
-;;;### (autoloads nil nil ("cc-mode-expansions.el" "clojure-mode-expansions.el"
-;;;;;; "css-mode-expansions.el" "erlang-mode-expansions.el" "expand-region-core.el"
-;;;;;; "expand-region-custom.el" "expand-region-pkg.el" "feature-mode-expansions.el"
-;;;;;; "html-mode-expansions.el" "js-mode-expansions.el" "js2-mode-expansions.el"
-;;;;;; "jsp-expansions.el" "latex-mode-expansions.el" "nxml-mode-expansions.el"
-;;;;;; "org-mode-expansions.el" "python-el-expansions.el" "python-el-fgallina-expansions.el"
-;;;;;; "python-mode-expansions.el" "ruby-mode-expansions.el" "text-mode-expansions.el")
-;;;;;; (20569 40273 669071))
-
-;;;***
-
-(provide 'expand-region-autoloads)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; expand-region-autoloads.el ends here
@@ -1,2 +0,0 @@
-(define-package "expand-region" "20120917.310" "Increase selected region by semantic units. [source: github]" 'nil)
-
@@ -0,0 +1,88 @@
+;;; expand-region-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads (er/expand-region) "expand-region" "expand-region.el"
+;;;;;; (20570 55090))
+;;; Generated autoloads from expand-region.el
+
+(autoload 'er/expand-region "expand-region" "\
+Increase selected region by semantic units.
+
+With prefix argument expands the region that many times.
+If prefix argument is negative calls `er/contract-region'.
+If prefix argument is 0 it resets point and mark to their state
+before calling `er/expand-region' for the first time.
+
+\(fn ARG)" t nil)
+
+;;;***
+
+;;;### (autoloads (expand-region-reset-fast-key expand-region-contract-fast-key
+;;;;;; expand-region-fast-keys-enabled expand-region-skip-whitespace
+;;;;;; expand-region-autocopy-register expand-region-guess-python-mode
+;;;;;; expand-region-preferred-python-mode expand-region) "expand-region-custom"
+;;;;;; "expand-region-custom.el" (20570 55090))
+;;; Generated autoloads from expand-region-custom.el
+
+(let ((loads (get 'expand-region 'custom-loads))) (if (member '"expand-region-custom" loads) nil (put 'expand-region 'custom-loads (cons '"expand-region-custom" loads))))
+
+(defvar expand-region-preferred-python-mode 'python "\
+The name of your preferred python mode")
+
+(custom-autoload 'expand-region-preferred-python-mode "expand-region-custom" t)
+
+(defvar expand-region-guess-python-mode t "\
+If expand-region should attempt to guess your preferred python mode")
+
+(custom-autoload 'expand-region-guess-python-mode "expand-region-custom" t)
+
+(defvar expand-region-autocopy-register "" "\
+If set to a string of a single character (try \"e\"), then the
+contents of the most recent expand or contract command will
+always be copied to the register named after that character.")
+
+(custom-autoload 'expand-region-autocopy-register "expand-region-custom" t)
+
+(defvar expand-region-skip-whitespace t "\
+If expand-region should skip past whitespace on initial expansion")
+
+(custom-autoload 'expand-region-skip-whitespace "expand-region-custom" t)
+
+(defvar expand-region-fast-keys-enabled t "\
+If expand-region should bind fast keys after initial expand/contract")
+
+(custom-autoload 'expand-region-fast-keys-enabled "expand-region-custom" t)
+
+(defvar expand-region-contract-fast-key "-" "\
+Key to use after an initial expand/contract to contract once more.")
+
+(custom-autoload 'expand-region-contract-fast-key "expand-region-custom" t)
+
+(defvar expand-region-reset-fast-key "0" "\
+Key to use after an initial expand/contract to undo.")
+
+(custom-autoload 'expand-region-reset-fast-key "expand-region-custom" t)
+
+;;;***
+
+;;;### (autoloads nil nil ("cc-mode-expansions.el" "clojure-mode-expansions.el"
+;;;;;; "css-mode-expansions.el" "erlang-mode-expansions.el" "expand-region-core.el"
+;;;;;; "expand-region-pkg.el" "feature-mode-expansions.el" "html-mode-expansions.el"
+;;;;;; "js-mode-expansions.el" "js2-mode-expansions.el" "jsp-expansions.el"
+;;;;;; "latex-mode-expansions.el" "nxml-mode-expansions.el" "org-mode-expansions.el"
+;;;;;; "python-el-expansions.el" "python-el-fgallina-expansions.el"
+;;;;;; "python-mode-expansions.el" "ruby-mode-expansions.el" "text-mode-expansions.el")
+;;;;;; (20570 55091 75153))
+
+;;;***
+
+(provide 'expand-region-autoloads)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; expand-region-autoloads.el ends here
Oops, something went wrong.

0 comments on commit b028cf9

Please sign in to comment.