Update packages

This commit is contained in:
Gergely Polonkai 2016-10-05 13:56:57 +02:00
parent 5e3e01390e
commit 5598dd3102
66 changed files with 265 additions and 166 deletions

View File

@ -1 +0,0 @@
(define-package "clojure-mode" "20160803.140" "Major mode for Clojure code" '((emacs "24.3")) :url "http://github.com/clojure-emacs/clojure-mode" :keywords '("languages" "clojure" "clojurescript" "lisp"))

View File

@ -1,10 +1,10 @@
;;; clojure-mode-autoloads.el --- automatically extracted autoloads ;;; clojure-mode-autoloads.el --- automatically extracted autoloads
;; ;;
;;; Code: ;;; Code:
(add-to-list 'load-path (or (file-name-directory #$) (car load-path))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "clojure-mode" "clojure-mode.el" (22500 1824 ;;;### (autoloads nil "clojure-mode" "clojure-mode.el" (22516 57909
;;;;;; 812229 917000)) ;;;;;; 485546 83000))
;;; Generated autoloads from clojure-mode.el ;;; Generated autoloads from clojure-mode.el
(autoload 'clojure-mode "clojure-mode" "\ (autoload 'clojure-mode "clojure-mode" "\
@ -111,11 +111,6 @@ Major mode for editing ClojureX code.
(add-to-list 'auto-mode-alist '("\\(?:build\\|profile\\)\\.boot\\'" . clojure-mode)) (add-to-list 'auto-mode-alist '("\\(?:build\\|profile\\)\\.boot\\'" . clojure-mode))
;;;***
;;;### (autoloads nil nil ("clojure-mode-pkg.el") (22500 1824 819441
;;;;;; 379000))
;;;*** ;;;***
;; Local Variables: ;; Local Variables:

View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "clojure-mode" "20161004.2314" "Major mode for Clojure code" '((emacs "24.3")) :url "http://github.com/clojure-emacs/clojure-mode" :keywords '("languages" "clojure" "clojurescript" "lisp"))

View File

@ -9,9 +9,9 @@
;; Bozhidar Batsov <bozhidar@batsov.com> ;; Bozhidar Batsov <bozhidar@batsov.com>
;; Artur Malabarba <bruce.connor.am@gmail.com> ;; Artur Malabarba <bruce.connor.am@gmail.com>
;; URL: http://github.com/clojure-emacs/clojure-mode ;; URL: http://github.com/clojure-emacs/clojure-mode
;; Package-Version: 20160803.140 ;; Package-Version: 20161004.2314
;; Keywords: languages clojure clojurescript lisp ;; Keywords: languages clojure clojurescript lisp
;; Version: 5.5.2 ;; Version: 5.6.0-cvs
;; Package-Requires: ((emacs "24.3")) ;; Package-Requires: ((emacs "24.3"))
;; This file is not part of GNU Emacs. ;; This file is not part of GNU Emacs.
@ -192,38 +192,50 @@ Out-of-the box clojure-mode understands lein, boot and gradle."
(and (listp value) (and (listp value)
(cl-every 'stringp value)))) (cl-every 'stringp value))))
(defcustom clojure-refactor-map-prefix (kbd "C-c C-r")
"Clojure refactor keymap prefix."
:group 'clojure
:type 'string
:package-version '(clojure-mode . "5.6.0"))
(defvar clojure-refactor-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-t") #'clojure-thread)
(define-key map (kbd "t") #'clojure-thread)
(define-key map (kbd "C-u") #'clojure-unwind)
(define-key map (kbd "u") #'clojure-unwind)
(define-key map (kbd "C-f") #'clojure-thread-first-all)
(define-key map (kbd "f") #'clojure-thread-first-all)
(define-key map (kbd "C-l") #'clojure-thread-last-all)
(define-key map (kbd "l") #'clojure-thread-last-all)
(define-key map (kbd "C-a") #'clojure-unwind-all)
(define-key map (kbd "a") #'clojure-unwind-all)
(define-key map (kbd "C-p") #'clojure-cycle-privacy)
(define-key map (kbd "p") #'clojure-cycle-privacy)
(define-key map (kbd "C-(") #'clojure-convert-collection-to-list)
(define-key map (kbd "(") #'clojure-convert-collection-to-list)
(define-key map (kbd "C-'") #'clojure-convert-collection-to-quoted-list)
(define-key map (kbd "'") #'clojure-convert-collection-to-quoted-list)
(define-key map (kbd "C-{") #'clojure-convert-collection-to-map)
(define-key map (kbd "{") #'clojure-convert-collection-to-map)
(define-key map (kbd "C-[") #'clojure-convert-collection-to-vector)
(define-key map (kbd "[") #'clojure-convert-collection-to-vector)
(define-key map (kbd "C-#") #'clojure-convert-collection-to-set)
(define-key map (kbd "#") #'clojure-convert-collection-to-set)
(define-key map (kbd "C-i") #'clojure-cycle-if)
(define-key map (kbd "i") #'clojure-cycle-if)
(define-key map (kbd "n i") #'clojure-insert-ns-form)
(define-key map (kbd "n h") #'clojure-insert-ns-form-at-point)
(define-key map (kbd "n u") #'clojure-update-ns)
(define-key map (kbd "n s") #'clojure-sort-ns))
"Keymap for Clojure refactoring commands.")
(fset 'clojure-refactor-map clojure-refactor-map)
(defvar clojure-mode-map (defvar clojure-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map (kbd "C-:") #'clojure-toggle-keyword-string) (define-key map (kbd "C-:") #'clojure-toggle-keyword-string)
(define-key map (kbd "C-c SPC") #'clojure-align) (define-key map (kbd "C-c SPC") #'clojure-align)
(define-key map (kbd "C-c C-r C-t") #'clojure-thread) (define-key map clojure-refactor-map-prefix 'clojure-refactor-map)
(define-key map (kbd "C-c C-r t") #'clojure-thread)
(define-key map (kbd "C-c C-r C-u") #'clojure-unwind)
(define-key map (kbd "C-c C-r u") #'clojure-unwind)
(define-key map (kbd "C-c C-r C-f") #'clojure-thread-first-all)
(define-key map (kbd "C-c C-r f") #'clojure-thread-first-all)
(define-key map (kbd "C-c C-r C-l") #'clojure-thread-last-all)
(define-key map (kbd "C-c C-r l") #'clojure-thread-last-all)
(define-key map (kbd "C-c C-r C-a") #'clojure-unwind-all)
(define-key map (kbd "C-c C-r a") #'clojure-unwind-all)
(define-key map (kbd "C-c C-r C-p") #'clojure-cycle-privacy)
(define-key map (kbd "C-c C-r p") #'clojure-cycle-privacy)
(define-key map (kbd "C-c C-r C-(") #'clojure-convert-collection-to-list)
(define-key map (kbd "C-c C-r (") #'clojure-convert-collection-to-list)
(define-key map (kbd "C-c C-r C-'") #'clojure-convert-collection-to-quoted-list)
(define-key map (kbd "C-c C-r '") #'clojure-convert-collection-to-quoted-list)
(define-key map (kbd "C-c C-r C-{") #'clojure-convert-collection-to-map)
(define-key map (kbd "C-c C-r {") #'clojure-convert-collection-to-map)
(define-key map (kbd "C-c C-r C-[") #'clojure-convert-collection-to-vector)
(define-key map (kbd "C-c C-r [") #'clojure-convert-collection-to-vector)
(define-key map (kbd "C-c C-r C-#") #'clojure-convert-collection-to-set)
(define-key map (kbd "C-c C-r #") #'clojure-convert-collection-to-set)
(define-key map (kbd "C-c C-r C-i") #'clojure-cycle-if)
(define-key map (kbd "C-c C-r i") #'clojure-cycle-if)
(define-key map (kbd "C-c C-r n i") #'clojure-insert-ns-form)
(define-key map (kbd "C-c C-r n h") #'clojure-insert-ns-form-at-point)
(define-key map (kbd "C-c C-r n u") #'clojure-update-ns)
(define-key map (kbd "C-c C-r n s") #'clojure-sort-ns)
(easy-menu-define clojure-mode-menu map "Clojure Mode Menu" (easy-menu-define clojure-mode-menu map "Clojure Mode Menu"
'("Clojure" '("Clojure"
["Toggle between string & keyword" clojure-toggle-keyword-string] ["Toggle between string & keyword" clojure-toggle-keyword-string]
@ -248,7 +260,14 @@ Out-of-the box clojure-mode understands lein, boot and gradle."
"--" "--"
["Unwind once" clojure-unwind] ["Unwind once" clojure-unwind]
["Fully unwind a threading macro" clojure-unwind-all]) ["Fully unwind a threading macro" clojure-unwind-all])
("Documentation"
["View a Clojure guide" clojure-view-guide]
["View a Clojure reference section" clojure-view-reference-section]
["View the Clojure cheatsheet" clojure-view-cheatsheet]
["View the Clojure Grimoire" clojure-view-grimoire]
["View the Clojure style guide" clojure-view-style-guide])
"--" "--"
["Report a clojure-mode bug" clojure-mode-report-bug]
["Clojure-mode version" clojure-mode-display-version])) ["Clojure-mode version" clojure-mode-display-version]))
map) map)
"Keymap for Clojure mode.") "Keymap for Clojure mode.")
@ -282,6 +301,99 @@ CIDER provides a more complex version which does classpath analysis.")
(interactive) (interactive)
(message "clojure-mode (version %s)" clojure-mode-version)) (message "clojure-mode (version %s)" clojure-mode-version))
(defconst clojure-mode-report-bug-url "https://github.com/clojure-emacs/clojure-mode/issues/new"
"The URL to report a clojure-mode issue.")
(defun clojure-mode-report-bug ()
"Report a bug in your default browser."
(interactive)
(browse-url clojure-mode-report-bug-url))
(defconst clojure-guides-base-url "https://clojure.org/guides/"
"The base URL for official Clojure guides.")
(defconst clojure-guides '(("Getting Started" . "getting_started")
("FAQ" . "faq")
("spec" . "spec")
("Destructuring" . "destructuring")
("Threading Macros" . "threading_macros")
("Comparators" . "comparators")
("Reader Conditionals" . "reader_conditionals"))
"A list of all official Clojure guides.")
(defun clojure-view-guide ()
"Open a Clojure guide in your default browser.
The command will prompt you to select one of the available guides."
(interactive)
(let ((guide (completing-read "Select a guide: " (mapcar #'car clojure-guides))))
(when guide
(let ((guide-url (concat clojure-guides-base-url (cdr (assoc guide clojure-guides)))))
(browse-url guide-url)))))
(defconst clojure-reference-base-url "https://clojure.org/reference/"
"The base URL for the official Clojure reference.")
(defconst clojure-reference-sections '(("The Reader" . "reader")
("The REPL and main" . "repl_and_main")
("Evaluation" . "evaluation")
("Special Forms" . "special_forms")
("Macros" . "macros")
("Other Functions" . "other_functions")
("Data Structures" . "data_structures")
("Datatypes" . "datatypes")
("Sequences" . "sequences")
("Transients" . "transients")
("Transducers" . "transducers")
("Multimethods and Hierarchies" . "multimethods")
("Protocols" . "protocols")
("Metadata" . "metadata")
("Namespaces" . "namespaces")
("Libs" . "libs")
("Vars and Environments" . "vars")
("Refs and Transactions" . "refs")
("Agents" . "agents")
("Atoms" . "atoms")
("Reducers" . "reducers")
("Java Interop" . "java_interop")
("Compilation and Class Generation" . "compilation")
("Other Libraries" . "other_libraries")
("Differences with Lisps" . "lisps")))
(defun clojure-view-reference-section ()
"Open a Clojure reference section in your default browser.
The command will prompt you to select one of the available sections."
(interactive)
(let ((section (completing-read "Select a reference section: " (mapcar #'car clojure-reference-sections))))
(when section
(let ((section-url (concat clojure-reference-base-url (cdr (assoc section clojure-reference-sections)))))
(browse-url section-url)))))
(defconst clojure-cheatsheet-url "http://clojure.org/api/cheatsheet"
"The URL of the official Clojure cheatsheet.")
(defun clojure-view-cheatsheet ()
"Open the Clojure cheatsheet in your default browser."
(interactive)
(browse-url clojure-cheatsheet-url))
(defconst clojure-grimoire-url "https://www.conj.io/"
"The URL of the Grimoire community documentation site.")
(defun clojure-view-grimoire ()
"Open the Clojure Grimoire in your default browser."
(interactive)
(browse-url clojure-grimoire-url))
(defconst clojure-style-guide-url "https://github.com/bbatsov/clojure-style-guide"
"The URL of the Clojure style guide.")
(defun clojure-view-style-guide ()
"Open the Clojure style guide in your default browser."
(interactive)
(browse-url clojure-style-guide-url))
(defun clojure-space-for-delimiter-p (endp delim) (defun clojure-space-for-delimiter-p (endp delim)
"Prevent paredit from inserting useless spaces. "Prevent paredit from inserting useless spaces.
See `paredit-space-for-delimiter-predicates' for the meaning of See `paredit-space-for-delimiter-predicates' for the meaning of
@ -1001,9 +1113,9 @@ When called from lisp code align everything between BEG and END."
(dotimes (_ count) (dotimes (_ count)
(align-region (point) sexp-end nil (align-region (point) sexp-end nil
'((clojure-align (regexp . clojure--search-whitespace-after-next-sexp) '((clojure-align (regexp . clojure--search-whitespace-after-next-sexp)
(group . 1) (group . 1)
(separate . "^ *$") (separate . "^ *$")
(repeat . t))) (repeat . t)))
nil)) nil))
;; Reindent after aligning because of #360. ;; Reindent after aligning because of #360.
(indent-region (point) sexp-end))))) (indent-region (point) sexp-end)))))

View File

@ -3,8 +3,8 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "flycheck" "flycheck.el" (22514 17685 56751 ;;;### (autoloads nil "flycheck" "flycheck.el" (22516 57907 641537
;;;;;; 684000)) ;;;;;; 759000))
;;; Generated autoloads from flycheck.el ;;; Generated autoloads from flycheck.el
(autoload 'flycheck-manual "flycheck" "\ (autoload 'flycheck-manual "flycheck" "\
@ -228,7 +228,7 @@ Use this together with the `option', `option-list' and
;;;*** ;;;***
;;;### (autoloads nil nil ("flycheck-buttercup.el" "flycheck-ert.el" ;;;### (autoloads nil nil ("flycheck-buttercup.el" "flycheck-ert.el"
;;;;;; "flycheck-pkg.el") (22514 17685 48751 666000)) ;;;;;; "flycheck-pkg.el") (22516 57907 637537 741000))
;;;*** ;;;***

View File

@ -1,4 +1,4 @@
(define-package "flycheck" "20160930.944" "On-the-fly syntax checking" (define-package "flycheck" "20161004.1257" "On-the-fly syntax checking"
'((dash "2.12.1") '((dash "2.12.1")
(pkg-info "0.4") (pkg-info "0.4")
(let-alist "1.0.4") (let-alist "1.0.4")

View File

@ -64,7 +64,7 @@
(eval-when-compile (eval-when-compile
(require 'let-alist) ; `let-alist' (require 'let-alist) ; `let-alist'
(require 'compile) ; Compile Mode integration (require 'compile) ; Compile Mode integration
(require 'jka-compr) ; For JKA workarounds in `flycheck-temp-file-system' (require 'jka-compr) ; To inhibit compression of temp files
(require 'pcase) ; `pcase-dolist' (`pcase' itself is autoloaded) (require 'pcase) ; `pcase-dolist' (`pcase' itself is autoloaded)
) )
@ -8747,6 +8747,15 @@ See URL `http://call-cc.org/'."
"Warning: " (zero-or-more not-newline) ":\n" "Warning: " (zero-or-more not-newline) ":\n"
(one-or-more (any space)) "(" (file-name) ":" line ") " (message) (one-or-more (any space)) "(" (file-name) ":" line ") " (message)
line-end) line-end)
(error line-start "Error: (line " line ") " (message) line-end)
(error line-start "Syntax error: (" (file-name) ":" line ")"
(zero-or-more not-newline) " - "
(message (one-or-more not-newline)
(zero-or-more "\n"
(zero-or-more space)
(zero-or-more not-newline))
(one-or-more space) "<--")
line-end)
(error line-start (error line-start
"Error: " (zero-or-more not-newline) ":\n" "Error: " (zero-or-more not-newline) ":\n"
(one-or-more (any space)) "(" (file-name) ":" line ") " (message) (one-or-more (any space)) "(" (file-name) ":" line ") " (message)

View File

@ -3,8 +3,8 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22514 17679 ;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22516 57904
;;;;;; 860739 765000)) ;;;;;; 857525 192000))
;;; Generated autoloads from helm-adaptive.el ;;; Generated autoloads from helm-adaptive.el
(defvar helm-adaptive-mode nil "\ (defvar helm-adaptive-mode nil "\
@ -30,8 +30,8 @@ Useful when you have a old or corrupted `helm-adaptive-history-file'.
;;;*** ;;;***
;;;### (autoloads nil "helm-apt" "helm-apt.el" (22514 17679 824739 ;;;### (autoloads nil "helm-apt" "helm-apt.el" (22516 57904 817525
;;;;;; 683000)) ;;;;;; 11000))
;;; Generated autoloads from helm-apt.el ;;; Generated autoloads from helm-apt.el
(autoload 'helm-apt "helm-apt" "\ (autoload 'helm-apt "helm-apt" "\
@ -42,8 +42,8 @@ With a prefix arg reload cache.
;;;*** ;;;***
;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22514 17679 ;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22516 57904
;;;;;; 924739 912000)) ;;;;;; 909525 426000))
;;; Generated autoloads from helm-bookmark.el ;;; Generated autoloads from helm-bookmark.el
(autoload 'helm-bookmarks "helm-bookmark" "\ (autoload 'helm-bookmarks "helm-bookmark" "\
@ -60,8 +60,8 @@ only if external library addressbook-bookmark.el is available.
;;;*** ;;;***
;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22514 17679 ;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22516 57904
;;;;;; 816739 664000)) ;;;;;; 809524 975000))
;;; Generated autoloads from helm-buffers.el ;;; Generated autoloads from helm-buffers.el
(autoload 'helm-buffers-list "helm-buffers" "\ (autoload 'helm-buffers-list "helm-buffers" "\
@ -76,8 +76,8 @@ Preconfigured `helm' lightweight version (buffer -> recentf).
;;;*** ;;;***
;;;### (autoloads nil "helm-color" "helm-color.el" (22514 17679 908739 ;;;### (autoloads nil "helm-color" "helm-color.el" (22516 57904 889525
;;;;;; 875000)) ;;;;;; 336000))
;;; Generated autoloads from helm-color.el ;;; Generated autoloads from helm-color.el
(autoload 'helm-colors "helm-color" "\ (autoload 'helm-colors "helm-color" "\
@ -87,8 +87,8 @@ Preconfigured `helm' for color.
;;;*** ;;;***
;;;### (autoloads nil "helm-command" "helm-command.el" (22514 17679 ;;;### (autoloads nil "helm-command" "helm-command.el" (22516 57904
;;;;;; 768739 554000)) ;;;;;; 761524 758000))
;;; Generated autoloads from helm-command.el ;;; Generated autoloads from helm-command.el
(autoload 'helm-M-x "helm-command" "\ (autoload 'helm-M-x "helm-command" "\
@ -106,8 +106,8 @@ You can get help on each command by persistent action.
;;;*** ;;;***
;;;### (autoloads nil "helm-config" "helm-config.el" (22514 17679 ;;;### (autoloads nil "helm-config" "helm-config.el" (22516 57904
;;;;;; 916739 894000)) ;;;;;; 901525 390000))
;;; Generated autoloads from helm-config.el ;;; Generated autoloads from helm-config.el
(autoload 'helm-configuration "helm-config" "\ (autoload 'helm-configuration "helm-config" "\
@ -117,8 +117,8 @@ Customize `helm'.
;;;*** ;;;***
;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22514 17679 ;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22516 57904
;;;;;; 832739 701000)) ;;;;;; 829525 65000))
;;; Generated autoloads from helm-dabbrev.el ;;; Generated autoloads from helm-dabbrev.el
(autoload 'helm-dabbrev "helm-dabbrev" "\ (autoload 'helm-dabbrev "helm-dabbrev" "\
@ -128,8 +128,8 @@ Preconfigured helm for dynamic abbreviations.
;;;*** ;;;***
;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22514 17679 912739 ;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22516 57904 893525
;;;;;; 884000)) ;;;;;; 354000))
;;; Generated autoloads from helm-elisp.el ;;; Generated autoloads from helm-elisp.el
(autoload 'helm-lisp-completion-at-point "helm-elisp" "\ (autoload 'helm-lisp-completion-at-point "helm-elisp" "\
@ -183,7 +183,7 @@ Preconfigured helm for complex command history.
;;;*** ;;;***
;;;### (autoloads nil "helm-elisp-package" "helm-elisp-package.el" ;;;### (autoloads nil "helm-elisp-package" "helm-elisp-package.el"
;;;;;; (22514 17679 776739 573000)) ;;;;;; (22516 57904 765524 776000))
;;; Generated autoloads from helm-elisp-package.el ;;; Generated autoloads from helm-elisp-package.el
(autoload 'helm-list-elisp-packages "helm-elisp-package" "\ (autoload 'helm-list-elisp-packages "helm-elisp-package" "\
@ -199,8 +199,8 @@ Same as `helm-list-elisp-packages' but don't fetch packages on remote.
;;;*** ;;;***
;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22514 17679 ;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22516 57904
;;;;;; 760739 536000)) ;;;;;; 753524 722000))
;;; Generated autoloads from helm-elscreen.el ;;; Generated autoloads from helm-elscreen.el
(autoload 'helm-elscreen "helm-elscreen" "\ (autoload 'helm-elscreen "helm-elscreen" "\
@ -215,8 +215,8 @@ Preconfigured helm to list elscreen in history order.
;;;*** ;;;***
;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22514 17679 ;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22516 57904
;;;;;; 792739 610000)) ;;;;;; 789524 885000))
;;; Generated autoloads from helm-eshell.el ;;; Generated autoloads from helm-eshell.el
(autoload 'helm-esh-pcomplete "helm-eshell" "\ (autoload 'helm-esh-pcomplete "helm-eshell" "\
@ -231,8 +231,8 @@ Preconfigured helm for eshell history.
;;;*** ;;;***
;;;### (autoloads nil "helm-eval" "helm-eval.el" (22514 17679 864739 ;;;### (autoloads nil "helm-eval" "helm-eval.el" (22516 57904 861525
;;;;;; 775000)) ;;;;;; 209000))
;;; Generated autoloads from helm-eval.el ;;; Generated autoloads from helm-eval.el
(autoload 'helm-eval-expression "helm-eval" "\ (autoload 'helm-eval-expression "helm-eval" "\
@ -252,8 +252,8 @@ Preconfigured helm for `helm-source-calculation-result'.
;;;*** ;;;***
;;;### (autoloads nil "helm-external" "helm-external.el" (22514 17679 ;;;### (autoloads nil "helm-external" "helm-external.el" (22516 57904
;;;;;; 748739 508000)) ;;;;;; 741524 668000))
;;; Generated autoloads from helm-external.el ;;; Generated autoloads from helm-external.el
(autoload 'helm-run-external-command "helm-external" "\ (autoload 'helm-run-external-command "helm-external" "\
@ -266,8 +266,8 @@ You can set your own list of commands with
;;;*** ;;;***
;;;### (autoloads nil "helm-files" "helm-files.el" (22514 17679 836739 ;;;### (autoloads nil "helm-files" "helm-files.el" (22516 57904 837525
;;;;;; 710000)) ;;;;;; 102000))
;;; Generated autoloads from helm-files.el ;;; Generated autoloads from helm-files.el
(autoload 'helm-projects-history "helm-files" "\ (autoload 'helm-projects-history "helm-files" "\
@ -355,8 +355,8 @@ It allows additionally to delete more than one connection at once.
;;;*** ;;;***
;;;### (autoloads nil "helm-font" "helm-font.el" (22514 17679 796739 ;;;### (autoloads nil "helm-font" "helm-font.el" (22516 57904 793524
;;;;;; 619000)) ;;;;;; 903000))
;;; Generated autoloads from helm-font.el ;;; Generated autoloads from helm-font.el
(autoload 'helm-select-xfont "helm-font" "\ (autoload 'helm-select-xfont "helm-font" "\
@ -371,8 +371,8 @@ Preconfigured helm for `ucs-names' math symbols.
;;;*** ;;;***
;;;### (autoloads nil "helm-grep" "helm-grep.el" (22514 17679 928739 ;;;### (autoloads nil "helm-grep" "helm-grep.el" (22516 57904 917525
;;;;;; 921000)) ;;;;;; 462000))
;;; Generated autoloads from helm-grep.el ;;; Generated autoloads from helm-grep.el
(autoload 'helm-goto-precedent-file "helm-grep" "\ (autoload 'helm-goto-precedent-file "helm-grep" "\
@ -399,8 +399,8 @@ With a prefix arg ARG git-grep the whole repository.
;;;*** ;;;***
;;;### (autoloads nil "helm-help" "helm-help.el" (22514 17679 744739 ;;;### (autoloads nil "helm-help" "helm-help.el" (22516 57904 733524
;;;;;; 499000)) ;;;;;; 632000))
;;; Generated autoloads from helm-help.el ;;; Generated autoloads from helm-help.el
(autoload 'helm-documentation "helm-help" "\ (autoload 'helm-documentation "helm-help" "\
@ -420,8 +420,8 @@ String displayed in mode-line in `helm-source-find-files'.")
;;;*** ;;;***
;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22514 17679 ;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22516 57904
;;;;;; 820739 673000)) ;;;;;; 813524 993000))
;;; Generated autoloads from helm-id-utils.el ;;; Generated autoloads from helm-id-utils.el
(autoload 'helm-gid "helm-id-utils" "\ (autoload 'helm-gid "helm-id-utils" "\
@ -435,8 +435,8 @@ See <https://www.gnu.org/software/idutils/>.
;;;*** ;;;***
;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22514 17679 808739 ;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22516 57904 801524
;;;;;; 646000)) ;;;;;; 939000))
;;; Generated autoloads from helm-imenu.el ;;; Generated autoloads from helm-imenu.el
(autoload 'helm-imenu "helm-imenu" "\ (autoload 'helm-imenu "helm-imenu" "\
@ -453,8 +453,8 @@ or it have an association in `helm-imenu-all-buffer-assoc'.
;;;*** ;;;***
;;;### (autoloads nil "helm-info" "helm-info.el" (22514 17679 800739 ;;;### (autoloads nil "helm-info" "helm-info.el" (22516 57904 797524
;;;;;; 627000)) ;;;;;; 921000))
;;; Generated autoloads from helm-info.el ;;; Generated autoloads from helm-info.el
(autoload 'helm-info "helm-info" "\ (autoload 'helm-info "helm-info" "\
@ -470,8 +470,8 @@ With a prefix-arg insert symbol at point.
;;;*** ;;;***
;;;### (autoloads nil "helm-locate" "helm-locate.el" (22514 17679 ;;;### (autoloads nil "helm-locate" "helm-locate.el" (22516 57904
;;;;;; 752739 518000)) ;;;;;; 745524 686000))
;;; Generated autoloads from helm-locate.el ;;; Generated autoloads from helm-locate.el
(autoload 'helm-projects-find-files "helm-locate" "\ (autoload 'helm-projects-find-files "helm-locate" "\
@ -498,8 +498,8 @@ Where db_path is a filename matched by
;;;*** ;;;***
;;;### (autoloads nil "helm-man" "helm-man.el" (22514 17679 876739 ;;;### (autoloads nil "helm-man" "helm-man.el" (22516 57904 869525
;;;;;; 802000)) ;;;;;; 246000))
;;; Generated autoloads from helm-man.el ;;; Generated autoloads from helm-man.el
(autoload 'helm-man-woman "helm-man" "\ (autoload 'helm-man-woman "helm-man" "\
@ -510,8 +510,8 @@ With a prefix arg reinitialize the cache.
;;;*** ;;;***
;;;### (autoloads nil "helm-misc" "helm-misc.el" (22514 17679 856739 ;;;### (autoloads nil "helm-misc" "helm-misc.el" (22516 57904 853525
;;;;;; 756000)) ;;;;;; 174000))
;;; Generated autoloads from helm-misc.el ;;; Generated autoloads from helm-misc.el
(autoload 'helm-browse-menubar "helm-misc" "\ (autoload 'helm-browse-menubar "helm-misc" "\
@ -552,8 +552,8 @@ Preconfigured `helm' that provide completion of `comint' history.
;;;*** ;;;***
;;;### (autoloads nil "helm-mode" "helm-mode.el" (22514 17679 720739 ;;;### (autoloads nil "helm-mode" "helm-mode.el" (22516 57904 717524
;;;;;; 444000)) ;;;;;; 560000))
;;; Generated autoloads from helm-mode.el ;;; Generated autoloads from helm-mode.el
(autoload 'helm-comp-read "helm-mode" "\ (autoload 'helm-comp-read "helm-mode" "\
@ -724,8 +724,8 @@ Note: This mode is incompatible with Emacs23.
;;;*** ;;;***
;;;### (autoloads nil "helm-net" "helm-net.el" (22514 17679 900739 ;;;### (autoloads nil "helm-net" "helm-net.el" (22516 57904 885525
;;;;;; 857000)) ;;;;;; 318000))
;;; Generated autoloads from helm-net.el ;;; Generated autoloads from helm-net.el
(autoload 'helm-surfraw "helm-net" "\ (autoload 'helm-surfraw "helm-net" "\
@ -745,8 +745,8 @@ Preconfigured `helm' for Wikipedia lookup with Wikipedia suggest.
;;;*** ;;;***
;;;### (autoloads nil "helm-org" "helm-org.el" (22514 17679 932739 ;;;### (autoloads nil "helm-org" "helm-org.el" (22516 57904 921525
;;;;;; 930000)) ;;;;;; 481000))
;;; Generated autoloads from helm-org.el ;;; Generated autoloads from helm-org.el
(autoload 'helm-org-agenda-files-headings "helm-org" "\ (autoload 'helm-org-agenda-files-headings "helm-org" "\
@ -777,8 +777,8 @@ Preconfigured helm for org templates.
;;;*** ;;;***
;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22514 17679 ;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22516 57904
;;;;;; 888739 830000)) ;;;;;; 881525 300000))
;;; Generated autoloads from helm-regexp.el ;;; Generated autoloads from helm-regexp.el
(autoload 'helm-moccur-mode "helm-regexp" "\ (autoload 'helm-moccur-mode "helm-regexp" "\
@ -817,8 +817,8 @@ The prefix arg can be set before calling
;;;*** ;;;***
;;;### (autoloads nil "helm-ring" "helm-ring.el" (22514 17679 732739 ;;;### (autoloads nil "helm-ring" "helm-ring.el" (22516 57904 729524
;;;;;; 472000)) ;;;;;; 614000))
;;; Generated autoloads from helm-ring.el ;;; Generated autoloads from helm-ring.el
(defvar helm-push-mark-mode nil "\ (defvar helm-push-mark-mode nil "\
@ -876,8 +876,8 @@ This command is useful when used with persistent action.
;;;*** ;;;***
;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22514 17679 ;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22516 57904
;;;;;; 812739 655000)) ;;;;;; 805524 957000))
;;; Generated autoloads from helm-semantic.el ;;; Generated autoloads from helm-semantic.el
(autoload 'helm-semantic "helm-semantic" "\ (autoload 'helm-semantic "helm-semantic" "\
@ -899,8 +899,8 @@ Fill in the symbol at point by default.
;;;*** ;;;***
;;;### (autoloads nil "helm-sys" "helm-sys.el" (22514 17679 828739 ;;;### (autoloads nil "helm-sys" "helm-sys.el" (22516 57904 825525
;;;;;; 692000)) ;;;;;; 47000))
;;; Generated autoloads from helm-sys.el ;;; Generated autoloads from helm-sys.el
(defvar helm-top-poll-mode nil "\ (defvar helm-top-poll-mode nil "\
@ -935,8 +935,8 @@ Preconfigured helm for xrandr.
;;;*** ;;;***
;;;### (autoloads nil "helm-tags" "helm-tags.el" (22514 17679 788739 ;;;### (autoloads nil "helm-tags" "helm-tags.el" (22516 57904 781524
;;;;;; 600000)) ;;;;;; 849000))
;;; Generated autoloads from helm-tags.el ;;; Generated autoloads from helm-tags.el
(autoload 'helm-etags-select "helm-tags" "\ (autoload 'helm-etags-select "helm-tags" "\
@ -955,8 +955,8 @@ This function aggregates three sources of tag files:
;;;*** ;;;***
;;;### (autoloads nil "helm-utils" "helm-utils.el" (22514 17679 764739 ;;;### (autoloads nil "helm-utils" "helm-utils.el" (22516 57904 757524
;;;;;; 545000)) ;;;;;; 740000))
;;; Generated autoloads from helm-utils.el ;;; Generated autoloads from helm-utils.el
(defvar helm-popup-tip-mode nil "\ (defvar helm-popup-tip-mode nil "\
@ -977,7 +977,7 @@ Show help-echo informations in a popup tip at end of line.
;;;*** ;;;***
;;;### (autoloads nil nil ("helm-easymenu.el" "helm-pkg.el" "helm-types.el") ;;;### (autoloads nil nil ("helm-easymenu.el" "helm-pkg.el" "helm-types.el")
;;;;;; (22514 17679 936739 940000)) ;;;;;; (22516 57904 925525 499000))
;;;*** ;;;***

View File

@ -1,8 +1,8 @@
(define-package "helm" "20160929.1313" "Helm is an Emacs incremental and narrowing framework" (define-package "helm" "20161004.2242" "Helm is an Emacs incremental and narrowing framework"
'((emacs "24.4") '((emacs "24.4")
(async "1.9") (async "1.9")
(popup "0.5.3") (popup "0.5.3")
(helm-core "2.2.0")) (helm-core "2.2.1"))
:url "https://emacs-helm.github.io/helm/") :url "https://emacs-helm.github.io/helm/")
;; Local Variables: ;; Local Variables:
;; no-byte-compile: t ;; no-byte-compile: t

View File

@ -3,7 +3,7 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "helm" "helm.el" (22514 17675 208729 97000)) ;;;### (autoloads nil "helm" "helm.el" (22516 57898 381495 962000))
;;; Generated autoloads from helm.el ;;; Generated autoloads from helm.el
(autoload 'helm-define-multi-key "helm" "\ (autoload 'helm-define-multi-key "helm" "\
@ -188,7 +188,7 @@ Enable/disable helm debugging from outside of helm session.
;;;*** ;;;***
;;;### (autoloads nil nil ("helm-core-pkg.el" "helm-lib.el" "helm-multi-match.el" ;;;### (autoloads nil nil ("helm-core-pkg.el" "helm-lib.el" "helm-multi-match.el"
;;;;;; "helm-source.el") (22514 17675 228729 143000)) ;;;;;; "helm-source.el") (22516 57898 397496 35000))
;;;*** ;;;***

View File

@ -1,4 +1,4 @@
(define-package "helm-core" "20160929.1313" "Development files for Helm" (define-package "helm-core" "20161004.2301" "Development files for Helm"
'((emacs "24.4") '((emacs "24.4")
(async "1.9")) (async "1.9"))
:url "https://emacs-helm.github.io/helm/") :url "https://emacs-helm.github.io/helm/")

View File

@ -3576,7 +3576,7 @@ If action buffer is selected, back to the helm buffer."
(setq helm-pattern 'dummy) (setq helm-pattern 'dummy)
(helm-check-minibuffer-input)))) (helm-check-minibuffer-input))))
(t (message "No Actions available"))) (t (message "No Actions available")))
(helm-display-mode-line src) (helm-display-mode-line (helm-get-current-source))
(run-hooks 'helm-window-configuration-hook)))))) (run-hooks 'helm-window-configuration-hook))))))
(put 'helm-select-action 'helm-only t) (put 'helm-select-action 'helm-only t)
@ -3592,7 +3592,7 @@ If action buffer is selected, back to the helm buffer."
:nomark t :nomark t
:keymap 'helm-map :keymap 'helm-map
:candidates actions :candidates actions
:mode-line '("Action(s)" "TAB:BackToCands RET/f1/f2/fn:NthAct") :mode-line '("Action(s)" "\\<helm-map>\\[helm-select-action]:BackToCands RET/f1/f2/fn:NthAct")
:candidate-transformer :candidate-transformer
(lambda (candidates) (lambda (candidates)
(cl-loop for (i . j) in candidates (cl-loop for (i . j) in candidates
@ -5354,7 +5354,9 @@ or `helm-follow-input-idle-delay' or `helm-input-idle-delay' secs."
(helm-window) (helm-window)
(helm-get-selection nil nil src)) (helm-get-selection nil nil src))
(helm-follow-mode-set-source 1 src) (helm-follow-mode-set-source 1 src)
(run-with-idle-timer at nil #'helm-execute-persistent-action)))) (run-with-idle-timer at nil (lambda ()
(when helm-alive-p
(helm-execute-persistent-action)))))))
(defun helm-follow-mode-p (&optional source) (defun helm-follow-mode-p (&optional source)
(with-helm-buffer (with-helm-buffer

View File

@ -4,8 +4,8 @@
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil nil ("magithub-cache.el" "magithub-ci.el" "magithub-core.el" ;;;### (autoloads nil nil ("magithub-cache.el" "magithub-ci.el" "magithub-core.el"
;;;;;; "magithub-issue.el" "magithub-pkg.el" "magithub.el") (22514 ;;;;;; "magithub-issue.el" "magithub-pkg.el" "magithub.el") (22516
;;;;;; 17666 568709 294000)) ;;;;;; 57895 765484 157000))
;;;*** ;;;***

View File

@ -29,8 +29,9 @@
(defun magithub-github-repository-p () (defun magithub-github-repository-p ()
"Non-nil if \"origin\" points to GitHub or a whitelisted domain." "Non-nil if \"origin\" points to GitHub or a whitelisted domain."
(let ((url (magit-get "remote" "origin" "url"))) (let ((url (magit-get "remote" "origin" "url")))
(cl-some (lambda (domain) (s-contains? domain url)) (when url
(cons "github.com" (magit-get-all "hub" "host"))))) (cl-some (lambda (domain) (s-contains? domain url))
(cons "github.com" (magit-get-all "hub" "host"))))))
(defun magithub-repo-id () (defun magithub-repo-id ()
"Returns an identifying value for this repository." "Returns an identifying value for this repository."

View File

@ -1,4 +1,4 @@
(define-package "magithub" "20160930.1523" "Magit interfaces for GitHub" (define-package "magithub" "20161004.523" "Magit interfaces for GitHub"
'((emacs "24.3") '((emacs "24.3")
(magit "2.8.0") (magit "2.8.0")
(git-commit "20160821.1338") (git-commit "20160821.1338")

View File

@ -3,8 +3,8 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "projectile" "projectile.el" (22508 49895 417958 ;;;### (autoloads nil "projectile" "projectile.el" (22516 57894 833479
;;;;;; 873000)) ;;;;;; 951000))
;;; Generated autoloads from projectile.el ;;; Generated autoloads from projectile.el
(autoload 'projectile-version "projectile" "\ (autoload 'projectile-version "projectile" "\

View File

@ -1,2 +1,2 @@
;;; -*- no-byte-compile: t -*- ;;; -*- no-byte-compile: t -*-
(define-package "projectile" "20160926.1133" "Manage and navigate projects in Emacs easily" '((pkg-info "0.4")) :url "https://github.com/bbatsov/projectile" :keywords '("project" "convenience")) (define-package "projectile" "20161004.1340" "Manage and navigate projects in Emacs easily" '((pkg-info "0.4")) :url "https://github.com/bbatsov/projectile" :keywords '("project" "convenience"))

View File

@ -4,7 +4,7 @@
;; Author: Bozhidar Batsov <bozhidar@batsov.com> ;; Author: Bozhidar Batsov <bozhidar@batsov.com>
;; URL: https://github.com/bbatsov/projectile ;; URL: https://github.com/bbatsov/projectile
;; Package-Version: 20160926.1133 ;; Package-Version: 20161004.1340
;; Keywords: project, convenience ;; Keywords: project, convenience
;; Version: 0.15.0-cvs ;; Version: 0.15.0-cvs
;; Package-Requires: ((pkg-info "0.4")) ;; Package-Requires: ((pkg-info "0.4"))
@ -38,12 +38,11 @@
;;; Code: ;;; Code:
(require 'cl-lib) (require 'cl-lib)
(require 'compile)
(require 'eshell)
(require 'grep)
(require 'ibuf-ext)
(require 'ibuffer)
(require 'thingatpt) (require 'thingatpt)
(require 'ibuffer)
(require 'ibuf-ext)
(require 'compile)
(require 'grep)
(eval-when-compile (eval-when-compile
(defvar ag-ignore-list) (defvar ag-ignore-list)
@ -226,13 +225,13 @@ Otherwise consider the current directory the project root."
"The tag backend that Projectile should use. "The tag backend that Projectile should use.
If set to 'auto', `projectile-find-tag' will automatically choose If set to 'auto', `projectile-find-tag' will automatically choose
which backend to use. Preference order is ggtags -> etags-select which backend to use. Preference order is ggtags -> etags-select
-> find-tag. Variable can also be set to specify which backend to -> `find-tag'. Variable can also be set to specify which backend to
use. If selected backend is unavailable, fall back to `find-tag'. use. If selected backend is unavailable, fall back to `find-tag'.
If this variable is set to 'auto' and ggtags is available, or if If this variable is set to 'auto' and ggtags is available, or if
set to 'ggtags', then ggtags will be used for set to 'ggtags', then ggtags will be used for
`projectile-regenerate-tags'. For all other settings `projectile-regenerate-tags'. For all other settings
`projectile-tags-command' will be used." `projectile-tags-command' will be used."
:group 'projectile :group 'projectile
:type '(radio :type '(radio
@ -1077,29 +1076,9 @@ they are excluded from the results of this function."
(when cmd (when cmd
(projectile-files-via-ext-command cmd)))) (projectile-files-via-ext-command cmd))))
(defun projectile-call-process-to-string (program &rest args)
"Invoke the executable PROGRAM with ARGS and return the output as a string."
(with-temp-buffer
(apply 'call-process program nil (current-buffer) nil args)
(buffer-string)))
(defun projectile-shell-command-to-string (command)
"Try to run COMMAND without actually using a shell and return the output.
The function `eshell-search-path' will be used to search the PATH
environment variable for an appropriate executable using the text
occuring before the first space. If no executable is found,
fallback to `shell-command-to-string'."
(cl-destructuring-bind
(the-command . args) (split-string command " ")
(let ((binary-path (eshell-search-path the-command)))
(if binary-path
(apply 'projectile-call-process-to-string binary-path args)
(shell-command-to-string command)))))
(defun projectile-files-via-ext-command (command) (defun projectile-files-via-ext-command (command)
"Get a list of relative file names in the project root by executing COMMAND." "Get a list of relative file names in the project root by executing COMMAND."
(split-string (projectile-shell-command-to-string command) "\0" t)) (split-string (shell-command-to-string command) "\0" t))
(defun projectile-index-directory (directory patterns progress-reporter) (defun projectile-index-directory (directory patterns progress-reporter)
"Index DIRECTORY taking into account PATTERNS. "Index DIRECTORY taking into account PATTERNS.

View File

@ -3,8 +3,8 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "wakatime-mode" "wakatime-mode.el" (22510 25032 ;;;### (autoloads nil "wakatime-mode" "wakatime-mode.el" (22516 57893
;;;;;; 328539 79000)) ;;;;;; 981476 105000))
;;; Generated autoloads from wakatime-mode.el ;;; Generated autoloads from wakatime-mode.el
(autoload 'wakatime-mode "wakatime-mode" "\ (autoload 'wakatime-mode "wakatime-mode" "\

View File

@ -1,2 +1,2 @@
;;; -*- no-byte-compile: t -*- ;;; -*- no-byte-compile: t -*-
(define-package "wakatime-mode" "20160929.624" "Automatic time tracking extension for WakaTime" 'nil :keywords '("calendar" "comm")) (define-package "wakatime-mode" "20161003.729" "Automatic time tracking extension for WakaTime" 'nil :keywords '("calendar" "comm"))

View File

@ -6,7 +6,7 @@
;; Maintainer: Alan Hamlett <alan@wakatime.com> ;; Maintainer: Alan Hamlett <alan@wakatime.com>
;; Website: https://wakatime.com ;; Website: https://wakatime.com
;; Keywords: calendar, comm ;; Keywords: calendar, comm
;; Package-Version: 20160929.624 ;; Package-Version: 20161003.729
;; Version: 1.0.2 ;; Version: 1.0.2
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -145,8 +145,8 @@
Set DONT-USE-KEY to t if you want to omit --key from the command Set DONT-USE-KEY to t if you want to omit --key from the command
line." line."
(let ((key (if dont-use-key (let ((key (if dont-use-key
(format "--key %s" wakatime-api-key) ""
""))) (format "--key %s" wakatime-api-key))))
(format "%s %s --file \"%s\" %s --plugin %s/%s %s --time %.2f" (format "%s %s --file \"%s\" %s --plugin %s/%s %s --time %.2f"
wakatime-python-bin wakatime-python-bin
wakatime-cli-path wakatime-cli-path