gergely
/
my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Updated packages

This commit is contained in:
Gergely Polonkai 2016-08-18 22:01:20 +02:00
parent 314c219408
commit c22f73d23f
200 changed files with 3048 additions and 2019 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
elpa/ag-20160702.1128/ag-pkg.el
View File

@ -1 +0,0 @@
(define-package "ag" "20160702.1128" "A front-end for ag ('the silver searcher'), the C ack replacement." '((dash "2.8.0") (s "1.9.0") (cl-lib "0.5")))

4
elpa/ag-20160702.1128/ag-autoloads.el → elpa/ag-20160731.1323/ag-autoloads.el
View File

@ -1,9 +1,9 @@
;;; ag-autoloads.el --- automatically extracted autoloads ;;; ag-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 "ag" "ag.el" (22404 60275 653932 131000)) ;;;### (autoloads nil "ag" "ag.el" (22454 5337 972625 179000))
;;; Generated autoloads from ag.el ;;; Generated autoloads from ag.el
(autoload 'ag "ag" "\ (autoload 'ag "ag" "\

2
elpa/ag-20160731.1323/ag-pkg.el Normal file
View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "ag" "20160731.1323" "A front-end for ag ('the silver searcher'), the C ack replacement." '((dash "2.8.0") (s "1.9.0") (cl-lib "0.5")))

4
elpa/ag-20160702.1128/ag.el → elpa/ag-20160731.1323/ag.el
View File

@ -5,7 +5,7 @@
;; Author: Wilfred Hughes <me@wilfred.me.uk> ;; Author: Wilfred Hughes <me@wilfred.me.uk>
;; Created: 11 January 2013 ;; Created: 11 January 2013
;; Version: 0.48 ;; Version: 0.48
;; Package-Version: 20160702.1128 ;; Package-Version: 20160731.1323
;; Package-Requires: ((dash "2.8.0") (s "1.9.0") (cl-lib "0.5")) ;; Package-Requires: ((dash "2.8.0") (s "1.9.0") (cl-lib "0.5"))
;;; Commentary: ;;; Commentary:
@ -224,7 +224,7 @@ If REGEXP is non-nil, treat STRING as a regular expression."
(setq arguments (cons "--nogroup" arguments))) (setq arguments (cons "--nogroup" arguments)))
(unless regexp (unless regexp
(setq arguments (cons "--literal" arguments))) (setq arguments (cons "--literal" arguments)))
(when (eq system-type 'windows-nt) (when (or (eq system-type 'windows-nt) (eq system-type 'cygwin))
;; Use --vimgrep to work around issue #97 on Windows. ;; Use --vimgrep to work around issue #97 on Windows.
(setq arguments (cons "--vimgrep" arguments))) (setq arguments (cons "--vimgrep" arguments)))
(when (char-or-string-p file-regex) (when (char-or-string-p file-regex)

1
elpa/coffee-mode-20160520.146/coffee-mode-pkg.el
View File

@ -1 +0,0 @@
(define-package "coffee-mode" "20160520.146" "Major mode for CoffeeScript code" '((emacs "24.1") (cl-lib "0.5")) :url "http://github.com/defunkt/coffee-mode" :keywords '("coffeescript" "major" "mode"))

6
elpa/coffee-mode-20160520.146/coffee-mode-autoloads.el → elpa/coffee-mode-20160808.1712/coffee-mode-autoloads.el
View File

@ -1,10 +1,10 @@
;;; coffee-mode-autoloads.el --- automatically extracted autoloads ;;; coffee-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 "coffee-mode" "coffee-mode.el" (22387 29375 ;;;### (autoloads nil "coffee-mode" "coffee-mode.el" (22454 5298
;;;;;; 378447 595000)) ;;;;;; 807704 278000))
;;; Generated autoloads from coffee-mode.el ;;; Generated autoloads from coffee-mode.el
(autoload 'coffee-mode "coffee-mode" "\ (autoload 'coffee-mode "coffee-mode" "\

2
elpa/coffee-mode-20160808.1712/coffee-mode-pkg.el Normal file
View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "coffee-mode" "20160808.1712" "Major mode for CoffeeScript code" '((emacs "24.1") (cl-lib "0.5")) :url "http://github.com/defunkt/coffee-mode" :keywords '("coffeescript" "major" "mode"))

14
elpa/coffee-mode-20160520.146/coffee-mode.el → elpa/coffee-mode-20160808.1712/coffee-mode.el
View File

@ -3,7 +3,7 @@
;; Copyright (C) 2010 Chris Wanstrath ;; Copyright (C) 2010 Chris Wanstrath
;; Version: 0.6.3 ;; Version: 0.6.3
;; Package-Version: 20160520.146 ;; Package-Version: 20160808.1712
;; Keywords: CoffeeScript major mode ;; Keywords: CoffeeScript major mode
;; Author: Chris Wanstrath <chris@ozmm.org> ;; Author: Chris Wanstrath <chris@ozmm.org>
;; URL: http://github.com/defunkt/coffee-mode ;; URL: http://github.com/defunkt/coffee-mode
@ -113,6 +113,10 @@ with CoffeeScript."
"Indentation can insert tabs if this is t." "Indentation can insert tabs if this is t."
:type 'boolean) :type 'boolean)
(defcustom coffee-show-mode 'js-mode
"Major mode to used to show the compiled Javascript."
:type 'function)
(defcustom coffee-after-compile-hook nil (defcustom coffee-after-compile-hook nil
"Hook called after compile to Javascript" "Hook called after compile to Javascript"
:type 'hook) :type 'hook)
@ -281,10 +285,10 @@ called `coffee-compiled-buffer-name'."
(coffee-parse-error-output compile-output))) (coffee-parse-error-output compile-output)))
(let ((props (list :sourcemap (coffee--map-file-name file) (let ((props (list :sourcemap (coffee--map-file-name file)
:line line :column column :source file))) :line line :column column :source file)))
(let ((buffer-file-name "tmp.js")) (setq buffer-read-only t)
(setq buffer-read-only t) (when (fboundp coffee-show-mode)
(set-auto-mode) (funcall coffee-show-mode))
(run-hook-with-args 'coffee-after-compile-hook props)))))))) (run-hook-with-args 'coffee-after-compile-hook props)))))))
(defun coffee-start-compile-process (curbuf line column) (defun coffee-start-compile-process (curbuf line column)
(lambda (start end) (lambda (start end)

0
elpa/company-20160709.1536/company-abbrev.el → elpa/company-20160730.1516/company-abbrev.el
View File

78
elpa/company-20160709.1536/company-autoloads.el → elpa/company-20160730.1516/company-autoloads.el
View File

@ -1,10 +1,9 @@
;;; company-autoloads.el --- automatically extracted autoloads ;;; company-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 "company" "company.el" (22404 60273 313919 ;;;### (autoloads nil "company" "company.el" (22454 5294 352599 524000))
;;;;;; 883000))
;;; Generated autoloads from company.el ;;; Generated autoloads from company.el
(autoload 'company-mode "company" "\ (autoload 'company-mode "company" "\
@ -38,8 +37,9 @@ keymap during active completions (`company-active-map'):
\(fn &optional ARG)" t nil) \(fn &optional ARG)" t nil)
(defvar global-company-mode nil "\ (defvar global-company-mode nil "\
Non-nil if Global-Company mode is enabled. Non-nil if Global Company mode is enabled.
See the command `global-company-mode' for a description of this minor mode. See the `global-company-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect; Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization') either customize it (see the info node `Easy Customization')
or call the function `global-company-mode'.") or call the function `global-company-mode'.")
@ -48,7 +48,7 @@ or call the function `global-company-mode'.")
(autoload 'global-company-mode "company" "\ (autoload 'global-company-mode "company" "\
Toggle Company mode in all buffers. Toggle Company mode in all buffers.
With prefix ARG, enable Global-Company mode if ARG is positive; With prefix ARG, enable Global Company mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil. ARG is omitted or nil.
@ -73,8 +73,8 @@ inserted.
;;;*** ;;;***
;;;### (autoloads nil "company-abbrev" "company-abbrev.el" (22404 ;;;### (autoloads nil "company-abbrev" "company-abbrev.el" (22454
;;;;;; 60273 385920 259000)) ;;;;;; 5294 949613 562000))
;;; Generated autoloads from company-abbrev.el ;;; Generated autoloads from company-abbrev.el
(autoload 'company-abbrev "company-abbrev" "\ (autoload 'company-abbrev "company-abbrev" "\
@ -84,8 +84,8 @@ inserted.
;;;*** ;;;***
;;;### (autoloads nil "company-bbdb" "company-bbdb.el" (22404 60273 ;;;### (autoloads nil "company-bbdb" "company-bbdb.el" (22454 5294
;;;;;; 369920 176000)) ;;;;;; 768609 306000))
;;; Generated autoloads from company-bbdb.el ;;; Generated autoloads from company-bbdb.el
(autoload 'company-bbdb "company-bbdb" "\ (autoload 'company-bbdb "company-bbdb" "\
@ -95,8 +95,8 @@ inserted.
;;;*** ;;;***
;;;### (autoloads nil "company-css" "company-css.el" (22404 60273 ;;;### (autoloads nil "company-css" "company-css.el" (22454 5294
;;;;;; 305919 841000)) ;;;;;; 307598 466000))
;;; Generated autoloads from company-css.el ;;; Generated autoloads from company-css.el
(autoload 'company-css "company-css" "\ (autoload 'company-css "company-css" "\
@ -106,8 +106,8 @@ inserted.
;;;*** ;;;***
;;;### (autoloads nil "company-dabbrev" "company-dabbrev.el" (22404 ;;;### (autoloads nil "company-dabbrev" "company-dabbrev.el" (22454
;;;;;; 60273 337920 9000)) ;;;;;; 5294 565604 532000))
;;; Generated autoloads from company-dabbrev.el ;;; Generated autoloads from company-dabbrev.el
(autoload 'company-dabbrev "company-dabbrev" "\ (autoload 'company-dabbrev "company-dabbrev" "\
@ -118,7 +118,7 @@ dabbrev-like `company-mode' completion backend.
;;;*** ;;;***
;;;### (autoloads nil "company-dabbrev-code" "company-dabbrev-code.el" ;;;### (autoloads nil "company-dabbrev-code" "company-dabbrev-code.el"
;;;;;; (22404 60273 329919 967000)) ;;;;;; (22454 5294 475602 417000))
;;; Generated autoloads from company-dabbrev-code.el ;;; Generated autoloads from company-dabbrev-code.el
(autoload 'company-dabbrev-code "company-dabbrev-code" "\ (autoload 'company-dabbrev-code "company-dabbrev-code" "\
@ -130,8 +130,8 @@ comments or strings.
;;;*** ;;;***
;;;### (autoloads nil "company-elisp" "company-elisp.el" (22404 60273 ;;;### (autoloads nil "company-elisp" "company-elisp.el" (22454 5295
;;;;;; 397920 322000)) ;;;;;; 17615 161000))
;;; Generated autoloads from company-elisp.el ;;; Generated autoloads from company-elisp.el
(autoload 'company-elisp "company-elisp" "\ (autoload 'company-elisp "company-elisp" "\
@ -141,8 +141,8 @@ comments or strings.
;;;*** ;;;***
;;;### (autoloads nil "company-etags" "company-etags.el" (22404 60273 ;;;### (autoloads nil "company-etags" "company-etags.el" (22454 5294
;;;;;; 321919 925000)) ;;;;;; 396600 559000))
;;; Generated autoloads from company-etags.el ;;; Generated autoloads from company-etags.el
(autoload 'company-etags "company-etags" "\ (autoload 'company-etags "company-etags" "\
@ -152,8 +152,8 @@ comments or strings.
;;;*** ;;;***
;;;### (autoloads nil "company-files" "company-files.el" (22404 60273 ;;;### (autoloads nil "company-files" "company-files.el" (22454 5294
;;;;;; 341920 29000)) ;;;;;; 611605 614000))
;;; Generated autoloads from company-files.el ;;; Generated autoloads from company-files.el
(autoload 'company-files "company-files" "\ (autoload 'company-files "company-files" "\
@ -165,8 +165,8 @@ File paths with spaces are only supported inside strings.
;;;*** ;;;***
;;;### (autoloads nil "company-gtags" "company-gtags.el" (22404 60273 ;;;### (autoloads nil "company-gtags" "company-gtags.el" (22454 5294
;;;;;; 277919 694000)) ;;;;;; 137594 469000))
;;; Generated autoloads from company-gtags.el ;;; Generated autoloads from company-gtags.el
(autoload 'company-gtags "company-gtags" "\ (autoload 'company-gtags "company-gtags" "\
@ -176,8 +176,8 @@ File paths with spaces are only supported inside strings.
;;;*** ;;;***
;;;### (autoloads nil "company-ispell" "company-ispell.el" (22404 ;;;### (autoloads nil "company-ispell" "company-ispell.el" (22454
;;;;;; 60273 393920 301000)) ;;;;;; 5294 983614 361000))
;;; Generated autoloads from company-ispell.el ;;; Generated autoloads from company-ispell.el
(autoload 'company-ispell "company-ispell" "\ (autoload 'company-ispell "company-ispell" "\
@ -187,8 +187,8 @@ File paths with spaces are only supported inside strings.
;;;*** ;;;***
;;;### (autoloads nil "company-keywords" "company-keywords.el" (22404 ;;;### (autoloads nil "company-keywords" "company-keywords.el" (22454
;;;;;; 60273 353920 92000)) ;;;;;; 5294 678607 190000))
;;; Generated autoloads from company-keywords.el ;;; Generated autoloads from company-keywords.el
(autoload 'company-keywords "company-keywords" "\ (autoload 'company-keywords "company-keywords" "\
@ -198,8 +198,8 @@ File paths with spaces are only supported inside strings.
;;;*** ;;;***
;;;### (autoloads nil "company-nxml" "company-nxml.el" (22404 60273 ;;;### (autoloads nil "company-nxml" "company-nxml.el" (22454 5294
;;;;;; 373920 196000)) ;;;;;; 802610 105000))
;;; Generated autoloads from company-nxml.el ;;; Generated autoloads from company-nxml.el
(autoload 'company-nxml "company-nxml" "\ (autoload 'company-nxml "company-nxml" "\
@ -209,8 +209,8 @@ File paths with spaces are only supported inside strings.
;;;*** ;;;***
;;;### (autoloads nil "company-oddmuse" "company-oddmuse.el" (22404 ;;;### (autoloads nil "company-oddmuse" "company-oddmuse.el" (22454
;;;;;; 60273 285919 736000)) ;;;;;; 5294 239596 867000))
;;; Generated autoloads from company-oddmuse.el ;;; Generated autoloads from company-oddmuse.el
(autoload 'company-oddmuse "company-oddmuse" "\ (autoload 'company-oddmuse "company-oddmuse" "\
@ -220,8 +220,8 @@ File paths with spaces are only supported inside strings.
;;;*** ;;;***
;;;### (autoloads nil "company-semantic" "company-semantic.el" (22404 ;;;### (autoloads nil "company-semantic" "company-semantic.el" (22454
;;;;;; 60273 277919 694000)) ;;;;;; 5294 171595 268000))
;;; Generated autoloads from company-semantic.el ;;; Generated autoloads from company-semantic.el
(autoload 'company-semantic "company-semantic" "\ (autoload 'company-semantic "company-semantic" "\
@ -231,8 +231,8 @@ File paths with spaces are only supported inside strings.
;;;*** ;;;***
;;;### (autoloads nil "company-tempo" "company-tempo.el" (22404 60273 ;;;### (autoloads nil "company-tempo" "company-tempo.el" (22454 5294
;;;;;; 333919 988000)) ;;;;;; 520603 474000))
;;; Generated autoloads from company-tempo.el ;;; Generated autoloads from company-tempo.el
(autoload 'company-tempo "company-tempo" "\ (autoload 'company-tempo "company-tempo" "\
@ -242,8 +242,8 @@ File paths with spaces are only supported inside strings.
;;;*** ;;;***
;;;### (autoloads nil "company-xcode" "company-xcode.el" (22404 60273 ;;;### (autoloads nil "company-xcode" "company-xcode.el" (22454 5294
;;;;;; 381920 238000)) ;;;;;; 871611 728000))
;;; Generated autoloads from company-xcode.el ;;; Generated autoloads from company-xcode.el
(autoload 'company-xcode "company-xcode" "\ (autoload 'company-xcode "company-xcode" "\
@ -254,7 +254,7 @@ File paths with spaces are only supported inside strings.
;;;*** ;;;***
;;;### (autoloads nil "company-yasnippet" "company-yasnippet.el" ;;;### (autoloads nil "company-yasnippet" "company-yasnippet.el"
;;;;;; (22404 60273 377920 217000)) ;;;;;; (22454 5294 837610 928000))
;;; Generated autoloads from company-yasnippet.el ;;; Generated autoloads from company-yasnippet.el
(autoload 'company-yasnippet "company-yasnippet" "\ (autoload 'company-yasnippet "company-yasnippet" "\
@ -286,7 +286,7 @@ shadow backends that come after it. Recommended usages:
;;;### (autoloads nil nil ("company-capf.el" "company-clang.el" "company-cmake.el" ;;;### (autoloads nil nil ("company-capf.el" "company-clang.el" "company-cmake.el"
;;;;;; "company-eclim.el" "company-pkg.el" "company-template.el") ;;;;;; "company-eclim.el" "company-pkg.el" "company-template.el")
;;;;;; (22404 60273 409561 422000)) ;;;;;; (22454 5294 726608 318000))
;;;*** ;;;***

0
elpa/company-20160709.1536/company-bbdb.el → elpa/company-20160730.1516/company-bbdb.el
View File

0
elpa/company-20160709.1536/company-capf.el → elpa/company-20160730.1516/company-capf.el
View File

0
elpa/company-20160709.1536/company-clang.el → elpa/company-20160730.1516/company-clang.el
View File

0
elpa/company-20160709.1536/company-cmake.el → elpa/company-20160730.1516/company-cmake.el
View File

0
elpa/company-20160709.1536/company-css.el → elpa/company-20160730.1516/company-css.el
View File

2
elpa/company-20160709.1536/company-dabbrev-code.el → elpa/company-20160730.1516/company-dabbrev-code.el
View File

@ -96,7 +96,7 @@ comments or strings."
(`t (list major-mode)) (`t (list major-mode))
(`code company-dabbrev-code-modes) (`code company-dabbrev-code-modes)
(`all `all)) (`all `all))
t))) (not company-dabbrev-code-everywhere))))
(ignore-case company-dabbrev-code-ignore-case) (ignore-case company-dabbrev-code-ignore-case)
(duplicates t))) (duplicates t)))

0
elpa/company-20160709.1536/company-dabbrev.el → elpa/company-20160730.1516/company-dabbrev.el
View File

0
elpa/company-20160709.1536/company-eclim.el → elpa/company-20160730.1516/company-eclim.el
View File

0
elpa/company-20160709.1536/company-elisp.el → elpa/company-20160730.1516/company-elisp.el
View File

0
elpa/company-20160709.1536/company-etags.el → elpa/company-20160730.1516/company-etags.el
View File

16
elpa/company-20160709.1536/company-files.el → elpa/company-20160730.1516/company-files.el
View File

@ -40,13 +40,15 @@ The values should use the same format as `completion-ignored-extensions'."
(defun company-files--directory-files (dir prefix) (defun company-files--directory-files (dir prefix)
;; Don't use directory-files. It produces directories without trailing /. ;; Don't use directory-files. It produces directories without trailing /.
(let ((comp (sort (file-name-all-completions prefix dir) (condition-case err
(lambda (s1 s2) (string-lessp (downcase s1) (downcase s2)))))) (let ((comp (sort (file-name-all-completions prefix dir)
(when company-files-exclusions (lambda (s1 s2) (string-lessp (downcase s1) (downcase s2))))))
(setq comp (company-files--exclusions-filtered comp))) (when company-files-exclusions
(if (equal prefix "") (setq comp (company-files--exclusions-filtered comp)))
(delete "../" (delete "./" comp)) (if (equal prefix "")
comp))) (delete "../" (delete "./" comp))
comp))
(file-error nil)))
(defun company-files--exclusions-filtered (completions) (defun company-files--exclusions-filtered (completions)
(let* ((dir-exclusions (cl-delete-if-not #'company-files--trailing-slash-p (let* ((dir-exclusions (cl-delete-if-not #'company-files--trailing-slash-p

0
elpa/company-20160709.1536/company-gtags.el → elpa/company-20160730.1516/company-gtags.el
View File

0
elpa/company-20160709.1536/company-ispell.el → elpa/company-20160730.1516/company-ispell.el
View File

0
elpa/company-20160709.1536/company-keywords.el → elpa/company-20160730.1516/company-keywords.el
View File

0
elpa/company-20160709.1536/company-nxml.el → elpa/company-20160730.1516/company-nxml.el
View File

0
elpa/company-20160709.1536/company-oddmuse.el → elpa/company-20160730.1516/company-oddmuse.el
View File

2
elpa/company-20160709.1536/company-pkg.el → elpa/company-20160730.1516/company-pkg.el
View File

@ -1,4 +1,4 @@
(define-package "company" "20160709.1536" "Modular text completion framework" (define-package "company" "20160730.1516" "Modular text completion framework"
'((emacs "24.1") '((emacs "24.1")
(cl-lib "0.5")) (cl-lib "0.5"))
:url "http://company-mode.github.io/" :keywords :url "http://company-mode.github.io/" :keywords

0
elpa/company-20160709.1536/company-semantic.el → elpa/company-20160730.1516/company-semantic.el
View File

0
elpa/company-20160709.1536/company-template.el → elpa/company-20160730.1516/company-template.el
View File

0
elpa/company-20160709.1536/company-tempo.el → elpa/company-20160730.1516/company-tempo.el
View File

0
elpa/company-20160709.1536/company-xcode.el → elpa/company-20160730.1516/company-xcode.el
View File

0
elpa/company-20160709.1536/company-yasnippet.el → elpa/company-20160730.1516/company-yasnippet.el
View File

3
elpa/company-20160709.1536/company.el → elpa/company-20160730.1516/company.el
View File

@ -920,6 +920,9 @@ matches IDLE-BEGIN-AFTER-RE, return it wrapped in a cons."
(if (functionp company-backend) (if (functionp company-backend)
(apply company-backend args) (apply company-backend args)
(apply #'company--multi-backend-adapter company-backend args)) (apply #'company--multi-backend-adapter company-backend args))
(user-error (user-error
"Company: backend %s user-error: %s"
company-backend (error-message-string err)))
(error (error "Company: backend %s error \"%s\" with args %s" (error (error "Company: backend %s error \"%s\" with args %s"
company-backend (error-message-string err) args)))) company-backend (error-message-string err) args))))

1
elpa/dash-20160619.611/dash-pkg.el
View File

@ -1 +0,0 @@
(define-package "dash" "20160619.611" "A modern list library for Emacs" 'nil :keywords '("lists"))

4
elpa/dash-20160619.611/dash-autoloads.el → elpa/dash-20160813.951/dash-autoloads.el
View File

@ -1,9 +1,9 @@
;;; dash-autoloads.el --- automatically extracted autoloads ;;; dash-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 nil ("dash.el") (22387 29373 79163 715000)) ;;;### (autoloads nil nil ("dash.el") (22454 5337 8602 510000))
;;;*** ;;;***

2
elpa/dash-20160813.951/dash-pkg.el Normal file
View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "dash" "20160813.951" "A modern list library for Emacs" 'nil :keywords '("lists"))

6
elpa/dash-20160619.611/dash.el → elpa/dash-20160813.951/dash.el
View File

@ -1,10 +1,10 @@
;;; dash.el --- A modern list library for Emacs -*- lexical-binding: t -*- ;;; dash.el --- A modern list library for Emacs -*- lexical-binding: t -*-
;; Copyright (C) 2012-2015 Free Software Foundation, Inc. ;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
;; Author: Magnar Sveen <magnars@gmail.com> ;; Author: Magnar Sveen <magnars@gmail.com>
;; Version: 2.12.1 ;; Version: 2.13.0
;; Package-Version: 20160619.611 ;; Package-Version: 20160813.951
;; Keywords: lists ;; Keywords: lists
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify

4
elpa/erlang-20160615.633/erlang-pkg.el
View File

@ -1,4 +0,0 @@
(define-package "erlang" "20160615.633" "Erlang major mode" 'nil)
;; Local Variables:
;; no-byte-compile: t
;; End:

10
elpa/erlang-20160615.633/erlang-autoloads.el → elpa/erlang-20160719.535/erlang-autoloads.el
View File

@ -1,9 +1,9 @@
;;; erlang-autoloads.el --- automatically extracted autoloads ;;; erlang-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 "erlang" "erlang.el" (22387 29371 497412 949000)) ;;;### (autoloads nil "erlang" "erlang.el" (22454 5334 245537 541000))
;;; Generated autoloads from erlang.el ;;; Generated autoloads from erlang.el
(autoload 'erlang-mode "erlang" "\ (autoload 'erlang-mode "erlang" "\
@ -118,8 +118,8 @@ editing control characters:
;;;*** ;;;***
;;;### (autoloads nil "erlang-start" "erlang-start.el" (22387 29371 ;;;### (autoloads nil "erlang-start" "erlang-start.el" (22454 5334
;;;;;; 473431 317000)) ;;;;;; 87533 826000))
;;; Generated autoloads from erlang-start.el ;;; Generated autoloads from erlang-start.el
(let ((a '("\\.erl\\'" . erlang-mode)) (b '("\\.hrl\\'" . erlang-mode))) (or (assoc (car a) auto-mode-alist) (setq auto-mode-alist (cons a auto-mode-alist))) (or (assoc (car b) auto-mode-alist) (setq auto-mode-alist (cons b auto-mode-alist)))) (let ((a '("\\.erl\\'" . erlang-mode)) (b '("\\.hrl\\'" . erlang-mode))) (or (assoc (car a) auto-mode-alist) (setq auto-mode-alist (cons a auto-mode-alist))) (or (assoc (car b) auto-mode-alist) (setq auto-mode-alist (cons b auto-mode-alist))))
@ -132,7 +132,7 @@ editing control characters:
;;;### (autoloads nil nil ("erlang-eunit.el" "erlang-flymake.el" ;;;### (autoloads nil nil ("erlang-eunit.el" "erlang-flymake.el"
;;;;;; "erlang-pkg.el" "erlang-skels-old.el" "erlang-skels.el" "erlang-test.el" ;;;;;; "erlang-pkg.el" "erlang-skels-old.el" "erlang-skels.el" "erlang-test.el"
;;;;;; "erlang_appwiz.el") (22387 29371 532912 630000)) ;;;;;; "erlang_appwiz.el") (22454 5334 358540 198000))
;;;*** ;;;***

0
elpa/erlang-20160615.633/erlang-eunit.el → elpa/erlang-20160719.535/erlang-eunit.el
View File

0
elpa/erlang-20160615.633/erlang-flymake.el → elpa/erlang-20160719.535/erlang-flymake.el
View File

4
elpa/erlang-20160719.535/erlang-pkg.el Normal file
View File

@ -0,0 +1,4 @@
(define-package "erlang" "20160719.535" "Erlang major mode" 'nil)
;; Local Variables:
;; no-byte-compile: t
;; End:

0
elpa/erlang-20160615.633/erlang-skels-old.el → elpa/erlang-20160719.535/erlang-skels-old.el
View File

12
elpa/erlang-20160615.633/erlang-skels.el → elpa/erlang-20160719.535/erlang-skels.el
View File

@ -903,7 +903,7 @@ Please see the function `tempo-define-template'.")
"%% gen_statem:start_link/[3,4], this function is called by the new" n "%% gen_statem:start_link/[3,4], this function is called by the new" n
"%% process to initialize." n "%% process to initialize." n
(erlang-skel-separator-end 2) (erlang-skel-separator-end 2)
"-spec init(Args :: term()) -> " n> "-spec init(Args :: term()) ->" n>
"{gen_statem:callback_mode()," n> "{gen_statem:callback_mode()," n>
"State :: term(), Data :: term()} |" n> "State :: term(), Data :: term()} |" n>
"{gen_statem:callback_mode()," n> "{gen_statem:callback_mode()," n>
@ -927,7 +927,7 @@ Please see the function `tempo-define-template'.")
"-spec state_name(" n> "-spec state_name(" n>
"gen_statem:event_type(), Msg :: term()," n> "gen_statem:event_type(), Msg :: term()," n>
"Data :: term()) ->" n> "Data :: term()) ->" n>
"gen_statem:state_function_result(). " n "gen_statem:state_function_result()." n
"state_name({call,Caller}, _Msg, Data) ->" n> "state_name({call,Caller}, _Msg, Data) ->" n>
"{next_state, state_name, Data, [{reply,Caller,ok}]}." n "{next_state, state_name, Data, [{reply,Caller,ok}]}." n
n n
@ -940,7 +940,7 @@ Please see the function `tempo-define-template'.")
"-spec handle_event(" n> "-spec handle_event(" n>
"gen_statem:event_type(), Msg :: term()," n> "gen_statem:event_type(), Msg :: term()," n>
"State :: term(), Data :: term()) ->" n> "State :: term(), Data :: term()) ->" n>
"gen_statem:handle_event_result(). " n "gen_statem:handle_event_result()." n
"handle_event({call,From}, _Msg, State, Data) ->" n> "handle_event({call,From}, _Msg, State, Data) ->" n>
"{next_state, State, Data, [{reply,From,ok}]}." n "{next_state, State, Data, [{reply,From,ok}]}." n
n n
@ -965,9 +965,11 @@ Please see the function `tempo-define-template'.")
"-spec code_change(" n> "-spec code_change(" n>
"OldVsn :: term() | {down,term()}," n> "OldVsn :: term() | {down,term()}," n>
"State :: term(), Data :: term(), Extra :: term()) ->" n> "State :: term(), Data :: term(), Extra :: term()) ->" n>
"{ok, NewState :: term(), NewData :: term()}." n "{gen_statem:callback_mode()," n>
"NewState :: term(), NewData :: term()} |" n>
"(Reason :: term())." n
"code_change(_OldVsn, State, Data, _Extra) ->" n> "code_change(_OldVsn, State, Data, _Extra) ->" n>
"{ok, State, Data}." n "{state_functions, State, Data}." n
n n
(erlang-skel-double-separator-start 3) (erlang-skel-double-separator-start 3)
"%%% Internal functions" n "%%% Internal functions" n

0
elpa/erlang-20160615.633/erlang-start.el → elpa/erlang-20160719.535/erlang-start.el
View File

0
elpa/erlang-20160615.633/erlang-test.el → elpa/erlang-20160719.535/erlang-test.el
View File

0
elpa/erlang-20160615.633/erlang.el → elpa/erlang-20160719.535/erlang.el
View File

0
elpa/erlang-20160615.633/erlang_appwiz.el → elpa/erlang-20160719.535/erlang_appwiz.el
View File

162
elpa/gh-20160626.1349/gh-autoloads.el
View File

@ -1,162 +0,0 @@
;;; gh-autoloads.el --- automatically extracted autoloads
;;
;;; Code:
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
;;;### (autoloads nil "gh-api" "gh-api.el" (22387 29369 466970 131000))
;;; Generated autoloads from gh-api.el
(require 'eieio)
(eieio-defclass-autoload 'gh-api 'nil "gh-api" "Github API")
(eieio-defclass-autoload 'gh-api-v3 '(gh-api) "gh-api" "Github API v3")
;;;***
;;;### (autoloads nil "gh-auth" "gh-auth.el" (22387 29369 526924
;;;;;; 94000))
;;; Generated autoloads from gh-auth.el
(require 'eieio)
(eieio-defclass-autoload 'gh-authenticator 'nil "gh-auth" "Abstract authenticator")
(eieio-defclass-autoload 'gh-password-authenticator '(gh-authenticator) "gh-auth" "Password-based authenticator")
(eieio-defclass-autoload 'gh-oauth-authenticator '(gh-authenticator) "gh-auth" "Oauth-based authenticator")
;;;***
;;;### (autoloads nil "gh-cache" "gh-cache.el" (22387 29369 498945
;;;;;; 578000))
;;; Generated autoloads from gh-cache.el
(require 'eieio)
;;;***
;;;### (autoloads nil "gh-common" "gh-common.el" (22387 29369 478960
;;;;;; 924000))
;;; Generated autoloads from gh-common.el
(require 'eieio)
;;;***
;;;### (autoloads nil "gh-gist" "gh-gist.el" (22387 29369 442988
;;;;;; 546000))
;;; Generated autoloads from gh-gist.el
(require 'eieio)
(eieio-defclass-autoload 'gh-gist-api '(gh-api-v3) "gh-gist" "Gist API")
(eieio-defclass-autoload 'gh-gist-gist-stub '(gh-object) "gh-gist" "Class for user-created gist objects")
(eieio-defclass-autoload 'gh-gist-gist '(gh-gist-gist-stub) "gh-gist" "Gist object")
;;;***
;;;### (autoloads nil "gh-issue-comments" "gh-issue-comments.el"
;;;;;; (22387 29369 490951 716000))
;;; Generated autoloads from gh-issue-comments.el
(require 'eieio)
;;;***
;;;### (autoloads nil "gh-issues" "gh-issues.el" (22387 29369 502942
;;;;;; 509000))
;;; Generated autoloads from gh-issues.el
(require 'eieio)
;;;***
;;;### (autoloads nil "gh-oauth" "gh-oauth.el" (22387 29369 430997
;;;;;; 753000))
;;; Generated autoloads from gh-oauth.el
(require 'eieio)
(eieio-defclass-autoload 'gh-oauth-api '(gh-api-v3) "gh-oauth" "OAuth API")
;;;***
;;;### (autoloads nil "gh-orgs" "gh-orgs.el" (22387 29369 482957
;;;;;; 854000))
;;; Generated autoloads from gh-orgs.el
(require 'eieio)
(eieio-defclass-autoload 'gh-orgs-api '(gh-api-v3) "gh-orgs" "Orgs API")
(eieio-defclass-autoload 'gh-orgs-org-stub '(gh-object) "gh-orgs" nil)
;;;***
;;;### (autoloads nil "gh-pull-comments" "gh-pull-comments.el" (22387
;;;;;; 29369 518930 232000))
;;; Generated autoloads from gh-pull-comments.el
(require 'eieio)
;;;***
;;;### (autoloads nil "gh-pulls" "gh-pulls.el" (22387 29369 506939
;;;;;; 440000))
;;; Generated autoloads from gh-pulls.el
(require 'eieio)
(eieio-defclass-autoload 'gh-pulls-api '(gh-api-v3) "gh-pulls" "Git pull requests API")
(eieio-defclass-autoload 'gh-pulls-request '(gh-pulls-request-stub) "gh-pulls" "Git pull requests API")
;;;***
;;;### (autoloads nil "gh-repos" "gh-repos.el" (22387 29369 494948
;;;;;; 647000))
;;; Generated autoloads from gh-repos.el
(require 'eieio)
(eieio-defclass-autoload 'gh-repos-api '(gh-api-v3) "gh-repos" "Repos API")
(eieio-defclass-autoload 'gh-repos-repo-stub '(gh-object) "gh-repos" "Class for user-created repository objects")
(eieio-defclass-autoload 'gh-repos-repo '(gh-repos-repo-stub) "gh-repos" "Class for GitHub repositories")
;;;***
;;;### (autoloads nil "gh-url" "gh-url.el" (22387 29369 419006 961000))
;;; Generated autoloads from gh-url.el
(require 'eieio)
;;;***
;;;### (autoloads nil "gh-users" "gh-users.el" (22387 29369 474963
;;;;;; 993000))
;;; Generated autoloads from gh-users.el
(require 'eieio)
(eieio-defclass-autoload 'gh-users-api '(gh-api-v3) "gh-users" "Users API")
(eieio-defclass-autoload 'gh-users-user '(gh-user) "gh-users" nil)
;;;***
;;;### (autoloads nil nil ("gh-pkg.el" "gh-profile.el" "gh-search.el"
;;;;;; "gh.el") (22387 29369 541412 67000))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; End:
;;; gh-autoloads.el ends here

110
elpa/gh-20160626.1349/gh-issue-comments.el
View File

@ -1,110 +0,0 @@
;;; gh-issue-comments.el --- issue comments api for github
;; Copyright (C) 2014 Travis Thieman
;; Author: Travis Thieman <travis.thieman@gmail.com>
;; Keywords:
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; TODOS:
;; * Support listing all comments in a repository
;; Basic usage:
;; (setf api (gh-issue-comments-api "api" :sync nil :cache nil :num-retries 1))
;; (setf comments (gh-issue-comments-list api "user" "repo" "issue id"))
;; (setq my-comment (make-instance 'gh-issue-comments-comment :body "This is great!"))
;; (gh-issue-comments-new api "user" "repo" "issue id" my-comment)
;;; Code:
(eval-when-compile
(require 'cl))
;;;###autoload
(require 'eieio)
(require 'gh-api)
(require 'gh-auth)
(require 'gh-common)
(require 'gh-issues)
(defclass gh-issue-comments-api (gh-api-v3)
((comment-cls :allocation :class :initform gh-issue-comments-comment))
"GitHub Issue Comments api")
(defclass gh-issue-comments-comment (gh-object)
((url :initarg :url)
(html-url :initarg :html-url)
(body :initarg :body)
(user :initarg :user :initform nil)
(created-at :initarg :created_at)
(updated-at :initarg :updated_at)
(user-cls :allocation :class :initform gh-user))
"issues comment")
(defmethod gh-object-read-into ((comment gh-issue-comments-comment) data)
(call-next-method)
(with-slots (url html-url body user created-at updated-at)
comment
(setq url (gh-read data 'url)
html-url (gh-read data 'html_url)
body (gh-read data 'body)
user (gh-object-read (or (oref comment :user)
(oref comment user-cls))
(gh-read data 'user))
created-at (gh-read data 'created_at)
updated-at (gh-read data 'updated_at))))
(defmethod gh-issue-comments-list ((api gh-issue-comments-api) user repo issue-id)
(gh-api-authenticated-request
api (gh-object-list-reader (oref api comment-cls)) "GET"
(format "/repos/%s/%s/issues/%s/comments" user repo issue-id)))
(defmethod gh-issue-comments-get ((api gh-issue-comments-api) user repo comment-id)
(gh-api-authenticated-request
api (gh-object-reader (oref api comment-cls)) "GET"
(format "/repos/%s/%s/issues/comments/%s" user repo comment-id)))
(defmethod gh-issue-comments-req-to-update ((req gh-issue-comments-comment))
`(("body" . ,(oref req body))))
(defmethod gh-issue-comments-update ((api gh-issue-comments-api) user repo comment-id comment)
(gh-api-authenticated-request
api (gh-object-reader (oref api comment-cls)) "PATCH"
(format "/repos/%s/%s/issues/comments/%s" user repo comment-id)
(gh-issue-comments-req-to-update comment)))
(defmethod gh-issue-comments-new ((api gh-issue-comments-api) user repo issue-id comment)
(gh-api-authenticated-request
api (gh-object-reader (oref api comment-cls)) "POST"
(format "/repos/%s/%s/issues/%s/comments" user repo issue-id)
(gh-issue-comments-req-to-update comment)))
(defmethod gh-issue-comments-delete ((api gh-issue-comments-api) user repo comment-id)
(gh-api-authenticated-request
api nil "DELETE"
(format "/repos/%s/%s/issues/comments/%s" user repo comment-id)))
(provide 'gh-issue-comments)
;;; gh-issue-comments.el ends here
;; Local Variables:
;; indent-tabs-mode: nil
;; End:

7
elpa/gh-20160626.1349/gh-pkg.el
View File

@ -1,7 +0,0 @@
(define-package "gh" "20160626.1349" "A GitHub library for Emacs"
'((emacs "24.4")
(pcache "0.3.1")
(logito "0.1")))
;; Local Variables:
;; no-byte-compile: t
;; End:

139
elpa/gh-20160626.1349/gh-pull-comments.el
View File

@ -1,139 +0,0 @@
;;; gh-pull-comments.el --- pull request comments api for github
;; Copyright (C) 2014 Toni Reina
;; Author: Toni Reina <areina0@gmail.com>
;; Keywords:
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; TODOS:
;; * Support listing all comments in a repository
;; Basic usage:
;; (setf api (gh-pull-comments-api "api" :sync nil :cache nil :num-retries 1))
;; (setf comments (gh-pull-comments-list api "user" "repo" "pull request id"))
;; (setq my-comment (make-instance 'gh-pull-comments-comment
;; :body "This is great!"
;; :path "README.md"
;; :position 2
;; :commit-id "commit sha"))
;; (gh-pull-comments-new api "user" "repo" "pull request id" my-comment)
;;; Code:
(eval-when-compile
(require 'cl))
;;;###autoload
(require 'eieio)
(require 'gh-api)
(require 'gh-auth)
(require 'gh-common)
(defclass gh-pull-comments-api (gh-api-v3)
((pull-comment-cls :allocation :class :initform gh-pull-comments-comment))
"GitHub Pull Request Comments API")
(defclass gh-pull-comments-comment (gh-object)
((url :initarg :url)
(html-url :initarg :html-url)
(id :initarg :id)
(body :initarg :body)
(user :initarg :user :initform nil)
(path :initarg :path)
(diff-hunk :initarg :diff-hunk)
(position :initarg :position)
(original-position :initarg :original-position)
(commit-id :initarg :commit-id)
(original-commit-id :initarg :original-commit-id)
(in-reply-to :initarg :in-reply-to :initform nil)
(created-at :initarg :created_at)
(updated-at :initarg :updated_at)
(user-cls :allocation :class :initform gh-user))
"Class for Pull Requests comments")
(defmethod gh-object-read-into ((comment gh-pull-comments-comment) data)
(call-next-method)
(with-slots (url html-url id body user path diff-hunk position
original-position commit-id original-commit-id in-reply-to
created-at updated-at)
comment
(setq url (gh-read data 'url)
html-url (gh-read data 'html_url)
id (gh-read data 'id)
body (gh-read data 'body)
user (gh-object-read (or (oref comment :user)
(oref comment user-cls))
(gh-read data 'user))
path (gh-read data 'path)
diff-hunk (gh-read data 'diff_hunk)
position (gh-read data 'position)
original-position (gh-read data 'original_position)
commit-id (gh-read data 'commit_id)
original-commit-id (gh-read data 'original_commit_id)
in-reply-to (gh-read data 'in_reply_to)
created-at (gh-read data 'created_at)
updated-at (gh-read data 'updated_at))))
(defmethod gh-pull-comments-list ((api gh-pull-comments-api) user repo pull-id)
(gh-api-authenticated-request
api (gh-object-list-reader (oref api pull-comment-cls)) "GET"
(format "/repos/%s/%s/pulls/%s/comments" user repo pull-id)))
(defmethod gh-pull-comments-get ((api gh-pull-comments-api) user repo pull-id)
(gh-api-authenticated-request
api (gh-object-reader (oref api pull-comment-cls)) "GET"
(format "/repos/%s/%s/pulls/comments/%s" user repo pull-id)))
(defmethod gh-pull-comments-req-to-create ((req gh-pull-comments-comment))
(let ((in-reply-to (oref req in-reply-to))
(to-update `(("body" . ,(oref req body)))))
(if in-reply-to
(nconc to-update `(("in_reply_to" . ,in-reply-to)))
(nconc to-update `(("commit_id" . ,(oref req commit-id))
("path" . ,(oref req path))
("position" . ,(oref req position)))))
to-update))
(defmethod gh-pull-comments-req-to-update ((req gh-pull-comments-comment))
`(("body" . ,(oref req body))))
(defmethod gh-pull-comments-update ((api gh-pull-comments-api) user repo comment-id comment)
(gh-api-authenticated-request
api (gh-object-reader (oref api pull-comment-cls)) "PATCH"
(format "/repos/%s/%s/pulls/comments/%s" user repo comment-id)
(gh-pull-comments-req-to-update comment)))
(defmethod gh-pull-comments-new ((api gh-pull-comments-api) user repo pull-id comment)
(gh-api-authenticated-request
api (gh-object-reader (oref api pull-comment-cls)) "POST"
(format "/repos/%s/%s/pulls/%s/comments" user repo pull-id)
(gh-pull-comments-req-to-create comment)))
(defmethod gh-pull-comments-delete ((api gh-pull-comments-api) user repo comment-id)
(gh-api-authenticated-request
api nil "DELETE"
(format "/repos/%s/%s/pulls/comments/%s" user repo comment-id)))
(provide 'gh-pull-comments)
;;; gh-pull-comments.el ends here
;; Local Variables:
;; indent-tabs-mode: nil
;; End:

15
elpa/gh-20160626.1349/gh-api.el → elpa/gh-20160728.1525/gh-api.el
View File

@ -80,10 +80,12 @@
(unless (or (null cache) (unless (or (null cache)
(and (eieio-object-p cache) (and (eieio-object-p cache)
(object-of-class-p cache 'gh-cache))) (object-of-class-p cache 'gh-cache)))
(oset api :cache (funcall (oref api cache-cls) (oset api :cache (make-instance
(format "gh/%s/%s" (oref api cache-cls)
classname :object-name
(gh-api-get-username api))))))) (format "gh/%s/%s"
classname
(gh-api-get-username api)))))))
(defmethod gh-api-expand-resource ((api gh-api) (defmethod gh-api-expand-resource ((api gh-api)
resource) resource)
@ -116,9 +118,11 @@
(or (oref api :auth) (or (oref api :auth)
(funcall gh-api-v3-authenticator "auth"))))) (funcall gh-api-v3-authenticator "auth")))))
;;;###autoload
(defclass gh-api-request (gh-url-request) (defclass gh-api-request (gh-url-request)
((default-response-cls :allocation :class :initform gh-api-response))) ((default-response-cls :allocation :class :initform gh-api-response)))
;;;###autoload
(defclass gh-api-response (gh-url-response) (defclass gh-api-response (gh-url-response)
()) ())
@ -134,10 +138,12 @@
(defmethod gh-url-response-set-data ((resp gh-api-response) data) (defmethod gh-url-response-set-data ((resp gh-api-response) data)
(call-next-method resp (gh-api-json-decode data))) (call-next-method resp (gh-api-json-decode data)))
;;;###autoload
(defclass gh-api-paged-request (gh-api-request) (defclass gh-api-paged-request (gh-api-request)
((default-response-cls :allocation :class :initform gh-api-paged-response) ((default-response-cls :allocation :class :initform gh-api-paged-response)
(page-limit :initarg :page-limit :initform -1))) (page-limit :initarg :page-limit :initform -1)))
;;;###autoload
(defclass gh-api-paged-response (gh-api-response) (defclass gh-api-paged-response (gh-api-response)
()) ())
@ -235,6 +241,7 @@
(oref req default-response-cls) (oref req default-response-cls)
:transform transformer)))))) :transform transformer))))))
;;;###autoload
(defclass gh-api-callback (gh-url-callback) (defclass gh-api-callback (gh-url-callback)
((cache :initarg :cache) ((cache :initarg :cache)
(key :initarg :key) (key :initarg :key)

3
elpa/gh-20160626.1349/gh-auth.el → elpa/gh-20160728.1525/gh-auth.el
View File

@ -103,6 +103,7 @@
(defmethod gh-auth-modify-request ((auth gh-authenticator) req) (defmethod gh-auth-modify-request ((auth gh-authenticator) req)
req) req)
;;;###autoload
(defclass gh-auth-2fa-callback (gh-url-callback) (defclass gh-auth-2fa-callback (gh-url-callback)
((req :initarg :req :initform nil)) ((req :initarg :req :initform nil))
"2-factor callback") "2-factor callback")
@ -152,7 +153,7 @@
((token :initarg :token :protection :private :initform nil)) ((token :initarg :token :protection :private :initform nil))
"Oauth-based authenticator") "Oauth-based authenticator")
(defmethod initialize-instance :static ((auth gh-oauth-authenticator) &rest args) (defmethod initialize-instance ((auth gh-oauth-authenticator) &rest args)
(call-next-method) (call-next-method)
(or (oref auth :token) (or (oref auth :token)
(oset auth :token (gh-auth-get-oauth-token)))) (oset auth :token (gh-auth-get-oauth-token))))

255
elpa/gh-20160728.1525/gh-autoloads.el Normal file
View File

@ -0,0 +1,255 @@
;;; gh-autoloads.el --- automatically extracted autoloads
;;
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "gh-api" "gh-api.el" (22454 5329 956436 690000))
;;; Generated autoloads from gh-api.el
(require 'eieio)
(eieio-defclass-autoload 'gh-api 'nil "gh-api" "Github API")
(eieio-defclass-autoload 'gh-api-v3 '(gh-api) "gh-api" "Github API v3")
(eieio-defclass-autoload 'gh-api-request '(gh-url-request) "gh-api" nil)
(eieio-defclass-autoload 'gh-api-response '(gh-url-response) "gh-api" nil)
(eieio-defclass-autoload 'gh-api-paged-request '(gh-api-request) "gh-api" nil)
(eieio-defclass-autoload 'gh-api-paged-response '(gh-api-response) "gh-api" nil)
(eieio-defclass-autoload 'gh-api-callback '(gh-url-callback) "gh-api" nil)
;;;***
;;;### (autoloads nil "gh-auth" "gh-auth.el" (22454 5330 384446 754000))
;;; Generated autoloads from gh-auth.el
(require 'eieio)
(eieio-defclass-autoload 'gh-authenticator 'nil "gh-auth" "Abstract authenticator")
(eieio-defclass-autoload 'gh-auth-2fa-callback '(gh-url-callback) "gh-auth" "2-factor callback")
(eieio-defclass-autoload 'gh-password-authenticator '(gh-authenticator) "gh-auth" "Password-based authenticator")
(eieio-defclass-autoload 'gh-oauth-authenticator '(gh-authenticator) "gh-auth" "Oauth-based authenticator")
;;;***
;;;### (autoloads nil "gh-cache" "gh-cache.el" (22454 5330 226443
;;;;;; 38000))
;;; Generated autoloads from gh-cache.el
(require 'eieio)
(eieio-defclass-autoload 'gh-cache '(pcache-repository) "gh-cache" nil)
(eieio-defclass-autoload 'gh-cache-entry '(pcache-entry) "gh-cache" nil)
;;;***
;;;### (autoloads nil "gh-comments" "gh-comments.el" (22454 5329
;;;;;; 753431 916000))
;;; Generated autoloads from gh-comments.el
(require 'eieio)
(eieio-defclass-autoload 'gh-comments-api-mixin 'nil "gh-comments" :abstract)
;;;***
;;;### (autoloads nil "gh-common" "gh-common.el" (22454 5330 91439
;;;;;; 864000))
;;; Generated autoloads from gh-common.el
(require 'eieio)
(autoload 'gh-marshal-default-spec "gh-common" "\
\(fn SLOT)" nil nil)
(autoload 'gh-defclass "gh-common" "\
\(fn NAME SUPERCLASS SLOTS &rest OPTIONS-AND-DOC)" nil t)
(gh-defclass gh-object nil nil)
(gh-defclass gh-ref-object (gh-object) ((id :initarg :id) (url :initarg :url) (html-url :initarg :html-url)))
(gh-defclass gh-user (gh-ref-object) ((login :initarg :login) (gravatar-url :initarg :gravatar-url)) "Github user object")
(gh-defclass gh-comment (gh-ref-object) ((body :initarg :body) (user :initarg :user :initform nil :marshal-type gh-user) (created-at :initarg :created_at) (updated-at :initarg :updated_at)) "Github comment object")
;;;***
;;;### (autoloads nil "gh-gist" "gh-gist.el" (22454 5329 821433 515000))
;;; Generated autoloads from gh-gist.el
(require 'eieio)
(eieio-defclass-autoload 'gh-gist-api '(gh-api-v3) "gh-gist" "Gist API")
(gh-defclass gh-gist-gist-stub (gh-object) ((files :initarg :files :type list :initform nil :marshal-type (list gh-gist-gist-file)) (public :initarg :public :marshal-type bool) (description :initarg :description)) "Class for user-created gist objects")
(gh-defclass gh-gist-history-change (gh-object) ((total :initarg :total) (additions :initarg :additions) (deletions :initarg :deletions)))
(gh-defclass gh-gist-history-entry (gh-object) ((user :initarg :user :initform nil :marshal-type gh-user) (version :initarg :version) (committed :initarg :committed :marshal ((alist . committed_at))) (change :initarg :change :marshal ((alist . change_status)) :marshal-type gh-gist-history-change) (url :initarg :url)))
(gh-defclass gh-gist-fork-entry (gh-ref-object) ((user :initarg :user :initform nil :marshal-type gh-user) (created :initarg :created :marshal ((alist . created_at))) (updated :initarg :updated :marshal ((alist . updated_at)))))
(gh-defclass gh-gist-gist (gh-ref-object gh-gist-gist-stub) ((date :initarg :date :marshal ((alist . created_at))) (update :initarg :update :marshal ((alist . updated_at))) (push-url :initarg :push-url :marshal ((alist . git_push_url))) (pull-url :initarg :pull-url :marshal ((alist . git_pull_url))) (comments :initarg :comments) (user :initarg :user :initform nil :marshal-type gh-user :marshal ((alist . owner))) (history :initarg :history :initform nil :type list :marshal-type (list gh-gist-history-entry)) (forks :initarg :forks :initform nil :type list :marshal-type (list gh-gist-fork-entry))) "Gist object")
(gh-defclass gh-gist-gist-file (gh-object) ((filename :initarg :filename) (size :initarg :size) (url :initarg :url :marshal ((alist . raw_url))) (content :initarg :content)))
;;;***
;;;### (autoloads nil "gh-issue-comments" "gh-issue-comments.el"
;;;;;; (22454 5330 158441 440000))
;;; Generated autoloads from gh-issue-comments.el
(require 'eieio)
;;;***
;;;### (autoloads nil "gh-issues" "gh-issues.el" (22454 5330 260443
;;;;;; 838000))
;;; Generated autoloads from gh-issues.el
(require 'eieio)
(eieio-defclass-autoload 'gh-issues-api '(gh-api-v3 gh-comments-api-mixin) "gh-issues" "Github Issues api")
(gh-defclass gh-issues-issue (gh-ref-object) ((number :initarg :number) (state :initarg :state) (title :initarg :title) (body :initarg :body) (user :initarg :user :initform nil :marshal-type gh-user) (labels :initarg :labels :initform nil :marshal-type (list gh-issues-label)) (assignee :initarg :assignee :initform nil :marshal-type gh-user) (milestone :initarg :milestone :initform nil :marshal-type gh-issues-milestone) (comments :initarg :comments :initform 0) (pull-request :initarg :pull-request :marshal-type gh-issues-pull-request) (closed-at :initarg :created-at) (created-at :initarg :created-at) (updated-at :initarg :updated-at)) "issues request")
(gh-defclass gh-issues-pull-request (gh-object) ((html-url :initarg :html-url) (diff-url :initarg :diff-url) (patch-url :initarg :patch-url)))
(gh-defclass gh-issues-label (gh-ref-object) ((name :initarg :name) (color :initarg :color)))
(gh-defclass gh-issues-milestone (gh-ref-object) ((number :initarg :number) (state :initarg :state) (title :initarg :title) (description :initarg :description) (creator :initarg :creator :initform nil :marshal-type gh-user) (open-issues :initarg :open-issues) (closed-issues :initarg :closed-issues) (created-at :initarg :created-at) (due-on :initarg :due-on)) "github milestone")
(gh-defclass gh-issues-comment (gh-comment) nil)
;;;***
;;;### (autoloads nil "gh-oauth" "gh-oauth.el" (22454 5329 791432
;;;;;; 810000))
;;; Generated autoloads from gh-oauth.el
(require 'eieio)
(eieio-defclass-autoload 'gh-oauth-api '(gh-api-v3) "gh-oauth" "OAuth API")
(eieio-defclass-autoload 'gh-oauth-password-authenticator '(gh-password-authenticator) "gh-oauth" nil)
(gh-defclass gh-oauth-authorization (gh-ref-object) ((scopes :initarg :scopes) (token :initarg :token) (app :initarg :app :initform nil :marshal-type gh-oauth-app) (updated-at :initarg :updated-at) (created-at :initarg :created-at)))
(gh-defclass gh-oauth-app (gh-object) ((url :initarg :url) (name :initarg :name)))
;;;***
;;;### (autoloads nil "gh-orgs" "gh-orgs.el" (22454 5330 124440 640000))
;;; Generated autoloads from gh-orgs.el
(require 'eieio)
(eieio-defclass-autoload 'gh-orgs-api '(gh-api-v3) "gh-orgs" "Orgs API")
(gh-defclass gh-orgs-org-stub (gh-ref-object) ((login :initarg :login) (avatar-url :initarg :avatar-url) (description :initarg :description)))
(gh-defclass gh-orgs-plan (gh-object) ((name :initarg :name) (space :initarg :space) (private-repos :initarg :private-repos)))
(gh-defclass gh-orgs-org (gh-orgs-org-stub) ((name :initarg :name) (company :initarg :company) (blog :initarg :blog) (location :initarg :location) (email :initarg :email) (public-repos :initarg :public-repos) (public-gists :initarg :public-gists) (followers :initarg :followers) (following :initarg :following) (created-at :initarg :created-at) (type :initarg :type) (total-private-repos :initarg :total-private-repos) (owned-private-repos :initarg :owned-private-repos) (private-gists :initarg :private-gists) (disk-usage :initarg :disk-usage) (collaborators :initarg :collaborators) (billing-email :initarg :billing-email) (plan :initarg :plan :initform nil :marshal-type gh-orgs-plan)) "Class for GitHub organizations")
;;;***
;;;### (autoloads nil "gh-pull-comments" "gh-pull-comments.el" (22454
;;;;;; 5330 339445 696000))
;;; Generated autoloads from gh-pull-comments.el
(require 'eieio)
;;;***
;;;### (autoloads nil "gh-pulls" "gh-pulls.el" (22454 5330 294444
;;;;;; 637000))
;;; Generated autoloads from gh-pulls.el
(require 'eieio)
(eieio-defclass-autoload 'gh-pulls-cache '(gh-cache) "gh-pulls" nil)
(eieio-defclass-autoload 'gh-pulls-api '(gh-api-v3 gh-comments-api-mixin) "gh-pulls" "Git pull requests API")
(gh-defclass gh-pulls-comment (gh-comment) ((path :initarg :path) (diff-hunk :initarg :diff-hunk) (position :initarg :position) (original-position :initarg :original-position) (commit-id :initarg :commit-id) (original-commit-id :initarg :original-commit-id) (in-reply-to :initarg :in-reply-to :initform nil)))
(gh-defclass gh-pulls-request-stub (gh-ref-object) ((diff-url :initarg :diff-url) (patch-url :initarg :patch-url) (issue-url :initarg :issue-url) (number :initarg :number) (state :initarg :state) (title :initarg :title) (body :initarg :body) (created-at :initarg :created-at) (updated-at :initarg :updated-at) (closed-at :initarg :closed-at) (merged-at :initarg :merged-at) (head :initarg :head :initform nil :marshal-type gh-repos-ref) (base :initarg :base :initform nil :marshal-type gh-repos-ref)))
(gh-defclass gh-pulls-request (gh-pulls-request-stub) ((merged :initarg :merged) (mergeable :initarg :mergeable) (merged-by :initarg :merged-by) (comments :initarg :comments) (user :initarg :user :initform nil :marshal-type gh-user) (commits :initarg :commits) (additions :initarg :additions) (deletions :initarg :deletions) (changed-files :initarg :changed-files)) "Git pull requests API")
;;;***
;;;### (autoloads nil "gh-repos" "gh-repos.el" (22454 5330 192442
;;;;;; 239000))
;;; Generated autoloads from gh-repos.el
(require 'eieio)
(eieio-defclass-autoload 'gh-repos-api '(gh-api-v3) "gh-repos" "Repos API")
(gh-defclass gh-repos-repo-stub (gh-object) ((name :initarg :name) (description :initarg :description) (homepage :initarg :homepage) (private :initarg :private)) "Class for user-created repository objects")
(gh-defclass gh-repos-repo (gh-ref-object gh-repos-repo-stub) ((clone-url :initarg :clone-url) (git-url :initarg :git-url) (ssh-url :initarg :ssh-url) (svn-url :initarg :svn-url) (mirror-url :initarg :mirror-url) (owner :initarg :owner :initform nil :marshal-type gh-user) (full-name :initarg :full-name) (language :initarg :language) (fork :initarg :fork) (forks :initarg :forks) (forks-count :initarg :forks-count) (watchers :initarg :watchers) (watchers-count :initarg :watchers-count) (stargazers-count :initarg :stargazers-count) (size :initarg :size) (master-branch :initarg :master-branch) (open-issues :initarg :open-issues) (pushed-at :initarg :pushed-at) (created-at :initarg :created-at) (updated-at :initarg :updated-at) (organisation :initarg :organisation :initform nil :marshal-type gh-user) (parent :initarg :parent :marshal-type gh-repos-repo) (source :initarg :source :marshal-type gh-repos-repo) (has-issues :initarg :has-issues) (has-wiki :initarg :has-wiki) (has-downloads :initarg :has-downloads)) "Class for GitHub repositories")
(gh-defclass gh-repos-ref (gh-object) ((label :initarg :label) (ref :initarg :ref :initform nil) (sha :initarg :sha :initform nil) (user :initarg :user :initform nil :marshal-type gh-user) (repo :initarg :repo :initform nil :marshal-type gh-repos-repo)))
;;;***
;;;### (autoloads nil "gh-search" "gh-search.el" (22454 5329 866434
;;;;;; 573000))
;;; Generated autoloads from gh-search.el
(eieio-defclass-autoload 'gh-search-api '(gh-api-v3) "gh-search" nil)
;;;***
;;;### (autoloads nil "gh-url" "gh-url.el" (22454 5329 685430 317000))
;;; Generated autoloads from gh-url.el
(require 'eieio)
(eieio-defclass-autoload 'gh-url-request 'nil "gh-url" nil)
(eieio-defclass-autoload 'gh-url-response 'nil "gh-url" nil)
(eieio-defclass-autoload 'gh-url-callback 'nil "gh-url" nil)
;;;***
;;;### (autoloads nil "gh-users" "gh-users.el" (22454 5330 46438
;;;;;; 806000))
;;; Generated autoloads from gh-users.el
(require 'eieio)
(eieio-defclass-autoload 'gh-users-api '(gh-api-v3) "gh-users" "Users API")
(gh-defclass gh-users-user (gh-user) ((gravatar-id :initarg :gravatar-id) (html-url :initarg :html-url) (followers-url :initarg :followers-url) (following-url :initarg :following-url) (gists-url :initarg :gists-url) (starred-url :initarg :starred-url) (subscriptions-url :initarg :subscriptions-url) (organizations-url :initarg :organizations-url) (repos-url :initarg :repos-url) (events-url :initarg :events-url) (received-events-url :initarg :received-events-url) (type :initarg :type) (site-admin :initarg :site-admin) (name :initarg :name) (company :initarg :company) (blog :initarg :blog) (location :initarg :location) (email :initarg :email) (hireable :initarg :hireable) (bio :initarg :bio) (public-repos :initarg :public-repos) (public-gists :initarg :public-gists) (followers :initarg :followers) (following :initarg :following) (created-at :initarg :created-at) (update-at :initarg :update-at)))
;;;***
;;;### (autoloads nil nil ("gh-pkg.el" "gh-profile.el" "gh.el") (22454
;;;;;; 5330 1437 747000))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; End:
;;; gh-autoloads.el ends here

4
elpa/gh-20160626.1349/gh-cache.el → elpa/gh-20160728.1525/gh-cache.el
View File

@ -36,11 +36,12 @@
(defconst gh-cache-outdated-expiration-delay (* 60 60 24)) (defconst gh-cache-outdated-expiration-delay (* 60 60 24))
(defconst gh-cache-internal-version-constant 3) (defconst gh-cache-internal-version-constant 4)
(defconst gh-cache-version-constant (defconst gh-cache-version-constant
(format "%s/gh-%s" pcache-version-constant gh-cache-internal-version-constant)) (format "%s/gh-%s" pcache-version-constant gh-cache-internal-version-constant))
;;;###autoload
(defclass gh-cache (pcache-repository) (defclass gh-cache (pcache-repository)
((version-constant :allocation :class) ((version-constant :allocation :class)
(entries :initarg :entries :initform (make-hash-table :test 'equal)) (entries :initarg :entries :initform (make-hash-table :test 'equal))
@ -51,6 +52,7 @@
(oset-default 'gh-cache version-constant gh-cache-version-constant) (oset-default 'gh-cache version-constant gh-cache-version-constant)
;;;###autoload
(defclass gh-cache-entry (pcache-entry) (defclass gh-cache-entry (pcache-entry)
((etag :initarg :etag :initform nil) ((etag :initarg :etag :initform nil)
(outdated :initarg :outdated :initform nil) (outdated :initarg :outdated :initform nil)

71
elpa/gh-20160728.1525/gh-comments.el Normal file
View File

@ -0,0 +1,71 @@
;;; gh-comments.el --- support for comment-enabled APIs
;; Copyright (C) 2014-2015 Yann Hodique
;; Author: Yann Hodique <hodiquey@vmware.com>
;; Keywords:
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;
;;; Code:
(eval-when-compile
(require 'cl))
;;;###autoload
(require 'eieio)
(require 'gh-common)
(require 'gh-api)
;;;###autoload
(defclass gh-comments-api-mixin ()
((comment-cls :allocation :class :initform gh-comment))
:abstract t)
(defmethod gh-comments-list ((api gh-comments-api-mixin) base)
(gh-api-authenticated-request
api (gh-object-list-reader (oref api comment-cls)) "GET"
(format "%s/comments" (gh-ref-object-base base))))
(defmethod gh-comments-get ((api gh-comments-api-mixin) base comment-id)
(gh-api-authenticated-request
api (gh-object-reader (oref api comment-cls)) "GET"
(format "%s/comments/%s" (gh-ref-object-base base) comment-id)))
(defmethod gh-comments-update ((api gh-comments-api-mixin) base comment-id comment)
(gh-api-authenticated-request
api (gh-object-reader (oref api comment-cls)) "PATCH"
(format "%s/comments/%s" (gh-ref-object-base base) comment-id)
(gh-comment-req-to-update comment)))
(defmethod gh-comments-new ((api gh-comments-api-mixin) base comment)
(gh-api-authenticated-request
api (gh-object-reader (oref api comment-cls)) "POST"
(format "%s/comments" (gh-ref-object-base base))
(gh-comment-req-to-update comment)))
(defmethod gh-comments-delete ((api gh-comments-api-mixin) base comment-id)
(gh-api-authenticated-request
api nil "DELETE"
(format "%s/comments/%s" (gh-ref-object-base base) comment-id)))
(provide 'gh-comments)
;;; gh-comments.el ends here

120
elpa/gh-20160626.1349/gh-common.el → elpa/gh-20160728.1525/gh-common.el
View File

@ -32,54 +32,16 @@
;;;###autoload ;;;###autoload
(require 'eieio) (require 'eieio)
(require 'dash)
(require 'marshal)
(require 's)
(require 'gh-profile) (require 'gh-profile)
(defgroup gh nil (defgroup gh nil
"Github API client libraries." "Github API client libraries."
:group 'applications) :group 'applications)
(defclass gh-object () ;;; Helper functions
())
(defmethod gh-object-read :static ((obj gh-object) data)
(let ((target (if (object-p obj) obj
(make-instance obj))))
(when data
(gh-object-read-into target data))
target))
(defmethod gh-object-reader :static ((obj gh-object))
(apply-partially 'gh-object-read obj))
(defmethod gh-object-list-read :static ((obj gh-object) data)
(mapcar (gh-object-reader obj) data))
(defmethod gh-object-list-reader :static ((obj gh-object))
(apply-partially 'gh-object-list-read obj))
(defmethod gh-object-read-into ((obj gh-object) data))
(defmethod slot-unbound ((obj gh-object) cls slot-name fn)
(if (eq fn 'oref) nil
(call-next-method)))
(defclass gh-user (gh-object)
((login :initarg :login)
(id :initarg :id)
(avatar-url :initarg :avatar-url)
(gravatar-url :initarg :gravatar-url)
(url :initarg :url))
"Github user object")
(defmethod gh-object-read-into ((user gh-user) data)
(call-next-method)
(with-slots (login id avatar-url gravatar-url url)
user
(setq login (gh-read data 'login)
id (gh-read data 'id)
avatar-url (gh-read data 'avatar_url)
gravatar-url (gh-read data 'gravatar_url)
url (gh-read data 'url))))
(defun gh-read (obj field) (defun gh-read (obj field)
(cdr (assoc field obj))) (cdr (assoc field obj)))
@ -108,6 +70,80 @@
(with-output-to-string (with-output-to-string
(apply 'process-file git nil standard-output nil args)))) (apply 'process-file git nil standard-output nil args))))
;;; Base classes for common objects
;;;###autoload
(defun gh-marshal-default-spec (slot)
(let ((slot-name (symbol-name slot)))
(list (cons 'alist
(intern (s-replace "-" "_" slot-name))))))
;;;###autoload
(defmacro gh-defclass (name superclass slots &rest options-and-doc)
`(marshal-defclass ,name ,superclass ,slots ,@options-and-doc
:marshal-default-spec gh-marshal-default-spec))
;;;###autoload
(gh-defclass gh-object ()
())
(defmethod gh-object-read :static ((obj gh-object) data)
(let ((target (if (object-p obj) obj
(make-instance obj))))
(when data
(gh-object-read-into target data))
target))
(defmethod gh-object-reader :static ((obj gh-object))
(apply-partially 'gh-object-read obj))
(defmethod gh-object-list-read :static ((obj gh-object) data)
(mapcar (gh-object-reader obj) data))
(defmethod gh-object-list-reader :static ((obj gh-object))
(apply-partially 'gh-object-list-read obj))
(defmethod gh-object-read-into ((obj gh-object) data)
(unmarshal obj data 'alist))
(defmethod slot-unbound ((obj gh-object) cls slot-name fn)
(if (eq fn 'oref) nil
(call-next-method)))
;;;###autoload
(gh-defclass gh-ref-object (gh-object)
((id :initarg :id)
(url :initarg :url)
(html-url :initarg :html-url)))
(defmethod gh-ref-object-base ((obj gh-ref-object))
(let ((url (oref obj :url)))
(--> (s-split "/" url t)
(-slice it 2)
(s-join "/" it)
(concat "/" it))))
(defmethod gh-ref-object-base (obj)
(if (stringp obj) obj
(error "illegal input for `gh-ref-object-base'")))
;;;###autoload
(gh-defclass gh-user (gh-ref-object)
((login :initarg :login)
(gravatar-url :initarg :gravatar-url))
"Github user object")
;;;###autoload
(gh-defclass gh-comment (gh-ref-object)
((body :initarg :body)
(user :initarg :user :initform nil :marshal-type gh-user)
(created-at :initarg :created_at)
(updated-at :initarg :updated_at))
"Github comment object")
(defmethod gh-comment-req-to-update ((req gh-comment))
`(("body" . ,(oref req :body))))
(provide 'gh-common) (provide 'gh-common)
;;; gh-common.el ends here ;;; gh-common.el ends here

107
elpa/gh-20160626.1349/gh-gist.el → elpa/gh-20160728.1525/gh-gist.el
View File

@ -42,85 +42,70 @@
"Gist API") "Gist API")
;;;###autoload ;;;###autoload
(defclass gh-gist-gist-stub (gh-object) (gh-defclass gh-gist-gist-stub (gh-object)
((files :initarg :files :type list :initform nil) ((files :initarg :files :type list :initform nil :marshal-type (list gh-gist-gist-file))
(public :initarg :public) (public :initarg :public :marshal-type bool)
(description :initarg :description) (description :initarg :description))
(file-cls :allocation :class :initform gh-gist-gist-file))
"Class for user-created gist objects") "Class for user-created gist objects")
(defmethod gh-object-read-into ((stub gh-gist-gist-stub) data) ;;;###autoload
(call-next-method) (gh-defclass gh-gist-history-change (gh-object)
(with-slots (files public description) ((total :initarg :total)
stub (additions :initarg :additions)
(setq files (gh-object-list-read (oref stub file-cls) (deletions :initarg :deletions)))
(gh-read data 'files))
public (gh-read data 'public)
description (gh-read data 'description))))
;;;###autoload ;;;###autoload
(defclass gh-gist-gist (gh-gist-gist-stub) (gh-defclass gh-gist-history-entry (gh-object)
((date :initarg :date) ((user :initarg :user :initform nil :marshal-type gh-user)
(update :initarg :update) (version :initarg :version)
(push-url :initarg :push-url) (committed :initarg :committed :marshal ((alist . committed_at)))
(pull-url :initarg :pull-url) (change :initarg :change :marshal ((alist . change_status))
(html-url :initarg :html-url) :marshal-type gh-gist-history-change)
(comments :initarg :comments) (url :initarg :url)))
(user :initarg :user :initform nil)
(id :initarg :id :type string)
(url :initarg :url :type string)
(forks :initarg :forks :initform nil)
(user-cls :allocation :class :initform gh-user)) ;;;###autoload
(gh-defclass gh-gist-fork-entry (gh-ref-object)
((user :initarg :user :initform nil :marshal-type gh-user)
(created :initarg :created :marshal ((alist . created_at)))
(updated :initarg :updated :marshal ((alist . updated_at)))))
;;;###autoload
(gh-defclass gh-gist-gist (gh-ref-object gh-gist-gist-stub)
((date :initarg :date :marshal ((alist . created_at)))
(update :initarg :update :marshal ((alist . updated_at)))
(push-url :initarg :push-url :marshal ((alist . git_push_url)))
(pull-url :initarg :pull-url :marshal ((alist . git_pull_url)))
(comments :initarg :comments)
(user :initarg :user :initform nil :marshal-type gh-user :marshal ((alist . owner)))
(history :initarg :history :initform nil :type list :marshal-type (list gh-gist-history-entry))
(forks :initarg :forks :initform nil :type list :marshal-type (list gh-gist-fork-entry)))
"Gist object") "Gist object")
(defmethod gh-object-read-into ((gist gh-gist-gist) data) ;;;###autoload
(call-next-method) (gh-defclass gh-gist-gist-file (gh-object)
(with-slots (date update push-url pull-url html-url comments user
id url forks)
gist
(setq date (gh-read data 'created_at)
update (gh-read data 'updated_at)
push-url (gh-read data 'git_push_url)
pull-url (gh-read data 'git_pull_url)
html-url (gh-read data 'html_url)
comments (gh-read data 'comments)
user (gh-object-read (or (oref gist :user)
(oref gist user-cls))
(gh-read data 'user))
id (gh-read data 'id)
url (gh-read data 'url)
forks (gh-read data 'forks))))
(defclass gh-gist-gist-file (gh-object)
((filename :initarg :filename) ((filename :initarg :filename)
(size :initarg :size) (size :initarg :size)
(url :initarg :url) (url :initarg :url :marshal ((alist . raw_url)))
(content :initarg :content))) (content :initarg :content)))
(defmethod gh-object-read-into ((file gh-gist-gist-file) data)
(call-next-method)
(with-slots (filename size url content)
file
(setq
filename (gh-read data 'filename)
size (gh-read data 'size)
url (gh-read data 'raw_url)
content (gh-read data 'content))))
(defmethod gh-gist-gist-to-obj ((gist gh-gist-gist-stub)) (defmethod gh-gist-gist-to-obj ((gist gh-gist-gist-stub))
`(("description" . ,(oref gist :description)) (let ((files (mapcar #'gh-gist-gist-file-to-obj (oref gist :files))))
("public" . ,(oref gist :public)) `(("description" . ,(oref gist :description))
("files" . ,(mapcar 'gh-gist-gist-file-to-obj (oref gist :files))))) ("public" . ,(oref gist :public))
,@(and files (list (cons "files" files))))))
(defmethod gh-gist-gist-has-files ((gist gh-gist-gist-stub)) (defmethod gh-gist-gist-has-files ((gist gh-gist-gist-stub))
(not (memq nil (mapcar (lambda (f) (not (memq nil (mapcar (lambda (f)
(oref f :content)) (oref gist :files))))) (oref f :content)) (oref gist :files)))))
(defmethod gh-gist-gist-file-to-obj ((file gh-gist-gist-file)) (defmethod gh-gist-gist-file-to-obj ((file gh-gist-gist-file))
`(,(oref file :filename) . (("filename" . ,(oref file :filename)) (let* ((filename (oref file :filename))
("content" . ,(oref file :content))))) (content (oref file :content))
(file (if content
`(("filename" . ,filename)
("content" . ,content))
nil)))
(cons filename file)))
(defmethod gh-gist-list ((api gh-gist-api) &optional username) (defmethod gh-gist-list ((api gh-gist-api) &optional username)
(gh-api-authenticated-request (gh-api-authenticated-request

72
elpa/gh-20160728.1525/gh-issue-comments.el Normal file
View File

@ -0,0 +1,72 @@
;;; gh-issue-comments.el --- issue comments api for github
;; Copyright (C) 2014 Travis Thieman
;; Author: Travis Thieman <travis.thieman@gmail.com>
;; Keywords:
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; TODOS:
;; * Support listing all comments in a repository
;; Basic usage:
;; (setf api (gh-issue-comments-api "api" :sync nil :cache nil :num-retries 1))
;; (setf comments (gh-issue-comments-list api "user" "repo" "issue id"))
;; (setq my-comment (make-instance 'gh-issue-comments-comment :body "This is great!"))
;; (gh-issue-comments-new api "user" "repo" "issue id" my-comment)
;;; Code:
(eval-when-compile
(require 'cl))
;;;###autoload
(require 'eieio)
(require 'gh-api)
(require 'gh-auth)
(require 'gh-common)
(require 'gh-issues)
(let ((ver "1.0.0"))
(define-obsolete-function-alias
'gh-issue-comments-api 'gh-issues-api ver)
(define-obsolete-function-alias
'gh-issue-comments-comment 'gh-issues-comment ver)
(define-obsolete-function-alias
'gh-issue-comments-req-to-update 'gh-comment-req-to-update ver)
(define-obsolete-function-alias
'gh-issue-comments-list 'gh-issues-comments-list ver)
(define-obsolete-function-alias
'gh-issue-comments-get 'gh-issues-comments-get ver)
(define-obsolete-function-alias
'gh-issue-comments-update 'gh-issues-comments-update ver)
(define-obsolete-function-alias
'gh-issue-comments-new 'gh-issues-comments-new ver)
(define-obsolete-function-alias
'gh-issue-comments-delete 'gh-issues-comments-delete ver))
(provide 'gh-issue-comments)
;;; gh-issue-comments.el ends here
;; Local Variables:
;; indent-tabs-mode: nil
;; End:

161
elpa/gh-20160626.1349/gh-issues.el → elpa/gh-20160728.1525/gh-issues.el
View File

@ -1,5 +1,7 @@
;;; gh-issues.el --- issues api for github ;;; gh-issues.el --- issues api for github
;; Copyright (C) 2014-2015 Yann Hodique
;; Copyright (C) 2014 Travis Thieman
;; Copyright (C) 2012 Raimon Grau ;; Copyright (C) 2012 Raimon Grau
;; Author: Raimon Grau <raimonster@gmail.com> ;; Author: Raimon Grau <raimonster@gmail.com>
@ -27,6 +29,9 @@
;; (last (oref issues data)) ; get one issue ;; (last (oref issues data)) ; get one issue
;; (setq mi (make-instance 'gh-issues-issue :body "issue body" :title "issue title")) ;; (setq mi (make-instance 'gh-issues-issue :body "issue body" :title "issue title"))
;; (gh-issues-issue-new api "user" "repo" mi) ;; (gh-issues-issue-new api "user" "repo" mi)
;; (setf comments (gh-issues-comments-list api "user" "repo" "issue id"))
;; (setq my-comment (make-instance 'gh-issues-comment :body "This is great!"))
;; (gh-issues-comments-new api "user" "repo" "issue id" my-comment)
;;; Code: ;;; Code:
@ -38,103 +43,67 @@
(require 'gh-api) (require 'gh-api)
(require 'gh-auth) (require 'gh-auth)
(require 'gh-comments)
(require 'gh-common) (require 'gh-common)
(require 'gh-repos) (require 'gh-repos)
(defclass gh-issues-api (gh-api-v3) ;;;###autoload
(defclass gh-issues-api (gh-api-v3 gh-comments-api-mixin)
((issue-cls :allocation :class :initform gh-issues-issue) ((issue-cls :allocation :class :initform gh-issues-issue)
(milestone-cls :allocation :class :initform gh-issues-milestone) (milestone-cls :allocation :class :initform gh-issues-milestone)
(label-cls :allocation :class :initform gh-issues-label)) (label-cls :allocation :class :initform gh-issues-label)
(comment-cls :allocation :class :initform gh-issues-comment))
"Github Issues api") "Github Issues api")
(defclass gh-issues-issue (gh-object) ;;;###autoload
((url :initarg :url) (gh-defclass gh-issues-issue (gh-ref-object)
(html-url :initarg :html-url) ((number :initarg :number)
(number :initarg :number)
(state :initarg :state) (state :initarg :state)
(title :initarg :title) (title :initarg :title)
(body :initarg :body) (body :initarg :body)
(user :initarg :user :initform nil) (user :initarg :user :initform nil :marshal-type gh-user)
(labels :initarg :labels :initform nil) (labels :initarg :labels :initform nil :marshal-type (list gh-issues-label))
(assignee :initarg :assignee :initform nil) (assignee :initarg :assignee :initform nil :marshal-type gh-user)
(milestone :initarg :milestone :initform nil) (milestone :initarg :milestone :initform nil :marshal-type gh-issues-milestone)
(open_issues :initarg :open_issues) (comments :initarg :comments :initform 0)
(closed_issues :initarg :closed_issues) (pull-request :initarg :pull-request :marshal-type gh-issues-pull-request)
(created_at :initarg :created_at) (closed-at :initarg :created-at)
(due_on :initarg :due_on) (created-at :initarg :created-at)
(updated-at :initarg :updated-at))
(user-cls :allocation :class :initform gh-user)
(milestone-cls :allocation :class :initform gh-issues-milestone))
"issues request") "issues request")
(defclass gh-issues-label (gh-object) ;;;###autoload
((url :initarg :url) (gh-defclass gh-issues-pull-request (gh-object)
(name :initarg :name) ((html-url :initarg :html-url)
(diff-url :initarg :diff-url)
(patch-url :initarg :patch-url)))
;;;###autoload
(gh-defclass gh-issues-label (gh-ref-object)
((name :initarg :name)
(color :initarg :color))) (color :initarg :color)))
(defclass gh-issues-milestone (gh-object) (defmethod gh-issues-label-req-to-update ((label gh-issues-label))
((url :initarg :url) `(("name" . ,(oref label :name))
(number :initarg :number) ("color" . ,(oref label :color))))
;;;###autoload
(gh-defclass gh-issues-milestone (gh-ref-object)
((number :initarg :number)
(state :initarg :state) (state :initarg :state)
(title :initarg :title) (title :initarg :title)
(description :initarg :description) (description :initarg :description)
(creator :initarg :creator :initform nil) (creator :initarg :creator :initform nil :marshal-type gh-user)
(open_issues :initarg :open_issues) (open-issues :initarg :open-issues )
(closed_issues :initarg :closed_issues) (closed-issues :initarg :closed-issues)
(created_at :initarg :created_at) (created-at :initarg :created-at)
(due_on :initarg :due_on) (due-on :initarg :due-on))
(user-cls :allocation :class :initform gh-user))
"github milestone") "github milestone")
(defmethod gh-object-read-into ((issue gh-issues-issue) data) ;;;###autoload
(call-next-method) (gh-defclass gh-issues-comment (gh-comment)
(with-slots (url html-url number state title body ())
user labels assignee milestone open_issues
closed_issues created_at due_on)
issue
(setq url (gh-read data 'url)
html-url (gh-read data 'html_url)
number (gh-read data 'number)
state (gh-read data 'state)
title (gh-read data 'title)
body (gh-read data 'body)
user (gh-object-read (or (oref issue :user)
(oref issue user-cls))
(gh-read data 'user))
labels (gh-read data 'labels)
assignee (gh-object-read (or (oref issue :assignee)
(oref issue user-cls))
(gh-read data 'assignee))
milestone (gh-object-read (or (oref issue :milestone)
(oref issue milestone-cls))
(gh-read data 'milestone))
open_issues (gh-read data 'open_issues)
closed_issues (gh-read data 'closed_issues)
created_at (gh-read data 'created_at)
due_on (gh-read data 'due_on))))
(defmethod gh-object-read-into ((milestone gh-issues-milestone) data)
(call-next-method)
(with-slots (url number state title description creator
open_issues closed_issues
created_at due_on)
milestone
(setq url (gh-read data 'url)
number (gh-read data 'number)
state (gh-read data 'state)
title (gh-read data 'title)
description (gh-read data 'description)
creator (gh-object-read (or (oref milestone :creator)
(oref milestone user-cls))
(gh-read data 'creator))
open_issues (gh-read data 'open_issues)
closed_issues (gh-read data 'closed_issues)
created_at (gh-read data 'created_at)
due_on (gh-read data 'due_on))))
(defmethod gh-issues-issue-list ((api gh-issues-api) user repo) (defmethod gh-issues-issue-list ((api gh-issues-api) user repo)
(gh-api-authenticated-request (gh-api-authenticated-request
@ -206,23 +175,7 @@
(format "/repos/%s/%s/issues" user repo) (format "/repos/%s/%s/issues" user repo)
(gh-issues-issue-req-to-update issue))) (gh-issues-issue-req-to-update issue)))
;;; labels ;;; Labels
(defclass gh-issues-label (gh-object)
((url :initarg :url)
(name :initarg :name)
(color :initarg :color)))
(defmethod gh-object-read-into ((label gh-issues-label) data)
(call-next-method)
(with-slots (url name color)
label
(setq url (gh-read data 'url)
name (gh-read data 'name)
color (gh-read data 'color))))
(defmethod gh-issues-label-req-to-update ((label gh-issues-label))
`(("name" . ,(oref label name))
("color" . ,(oref label color))))
(defmethod gh-issues-label-get ((api gh-issues-api) user repo name) (defmethod gh-issues-label-get ((api gh-issues-api) user repo name)
(gh-api-authenticated-request (gh-api-authenticated-request
@ -281,6 +234,26 @@
api (gh-object-list-reader (oref api label-cls)) "GET" api (gh-object-list-reader (oref api label-cls)) "GET"
(format "/repos/%s/%s/milestones/%s/labels" user repo milestone-id)))) (format "/repos/%s/%s/milestones/%s/labels" user repo milestone-id))))
;;; Comments
(defmethod gh-issues-comments-list ((api gh-issues-api) user repo issue-id)
(gh-comments-list api (format "/repos/%s/%s/issues/%s" user repo issue-id)))
(defmethod gh-issues-comments-get ((api gh-issues-api) user repo comment-id)
(gh-comments-get api (format "/repos/%s/%s/issues" user repo) comment-id))
(defmethod gh-issues-comments-update ((api gh-issues-api)
user repo comment-id comment)
(gh-comments-update api (format "/repos/%s/%s/issues" user repo)
comment-id (gh-comment-req-to-update comment)))
(defmethod gh-issues-comments-new ((api gh-issues-api)
user repo issue-id comment)
(gh-comments-new api (format "/repos/%s/%s/issues/%s" user repo issue-id)
(gh-comment-req-to-update comment)))
(defmethod gh-issues-comments-delete ((api gh-issues-api) user repo comment-id)
(gh-comments-delete api (format "/repos/%s/%s/issues" user repo) comment-id))
;;; helpers ;;; helpers

38
elpa/gh-20160626.1349/gh-oauth.el → elpa/gh-20160728.1525/gh-oauth.el
View File

@ -41,6 +41,7 @@
((auth-cls :allocation :class :initform gh-oauth-authorization)) ((auth-cls :allocation :class :initform gh-oauth-authorization))
"OAuth API") "OAuth API")
;;;###autoload
(defclass gh-oauth-password-authenticator (gh-password-authenticator) (defclass gh-oauth-password-authenticator (gh-password-authenticator)
((remember :allocation :class :initform nil))) ((remember :allocation :class :initform nil)))
@ -49,42 +50,19 @@
(let ((gh-api-v3-authenticator 'gh-oauth-password-authenticator)) (let ((gh-api-v3-authenticator 'gh-oauth-password-authenticator))
(call-next-method))) (call-next-method)))
(defclass gh-oauth-authorization (gh-object) ;;;###autoload
((id :initarg :id) (gh-defclass gh-oauth-authorization (gh-ref-object)
(url :initarg :url) ((scopes :initarg :scopes)
(scopes :initarg :scopes)
(token :initarg :token) (token :initarg :token)
(app :initarg :app :initform nil) (app :initarg :app :initform nil :marshal-type gh-oauth-app)
(updated-at :initarg :updated-at) (updated-at :initarg :updated-at)
(created-at :initarg :created-at) (created-at :initarg :created-at)))
(app-cls :allocation :class :initform gh-oauth-app))) ;;;###autoload
(gh-defclass gh-oauth-app (gh-object)
(defmethod gh-object-read-into ((auth gh-oauth-authorization) data)
(call-next-method)
(with-slots (id url scopes token app updated-at created-at)
auth
(setq id (gh-read data 'id)
url (gh-read data 'url)
scopes (gh-read data 'scopes)
token (gh-read data 'token)
app (gh-object-read (or (oref auth :app)
(oref auth app-cls))
(gh-read data 'app))
updated-at (gh-read data 'updated_at)
created-at (gh-read data 'created_at))))
(defclass gh-oauth-app (gh-object)
((url :initarg :url) ((url :initarg :url)
(name :initarg :name))) (name :initarg :name)))
(defmethod gh-object-read-into ((app gh-oauth-app) data)
(call-next-method)
(with-slots (url name)
app
(setq url (gh-read data 'url)
name (gh-read data 'name))))
(defmethod gh-oauth-auth-list ((api gh-oauth-api)) (defmethod gh-oauth-auth-list ((api gh-oauth-api))
(gh-api-authenticated-request (gh-api-authenticated-request
api (gh-object-list-reader (oref api auth-cls)) "GET" api (gh-object-list-reader (oref api auth-cls)) "GET"

66
elpa/gh-20160626.1349/gh-orgs.el → elpa/gh-20160728.1525/gh-orgs.el
View File

@ -42,35 +42,19 @@
"Orgs API") "Orgs API")
;;;###autoload ;;;###autoload
(defclass gh-orgs-org-stub (gh-object) (gh-defclass gh-orgs-org-stub (gh-ref-object)
((login :initarg :login) ((login :initarg :login)
(id :initarg :id) (avatar-url :initarg :avatar-url)
(url :initarg :url) (description :initarg :description)))
(avatar-url :initarg :avatar-url)))
(defmethod gh-object-read-into ((stub gh-orgs-org-stub) data) ;;;###autoload
(call-next-method) (gh-defclass gh-orgs-plan (gh-object)
(with-slots (login id url avatar-url)
stub
(setq login (gh-read data 'login)
id (gh-read data 'id)
url (gh-read data 'url)
avatar-url (gh-read data 'avatar_url))))
(defclass gh-orgs-plan (gh-object)
((name :initarg :name) ((name :initarg :name)
(space :initarg :space) (space :initarg :space)
(private-repos :initarg :private-repos))) (private-repos :initarg :private-repos)))
(defmethod gh-object-read-into ((plan gh-orgs-plan) data) ;;;###autoload
(call-next-method) (gh-defclass gh-orgs-org (gh-orgs-org-stub)
(with-slots (name space private-repos)
plan
(setq name (gh-read data 'name)
space (gh-read data 'space)
private-repos (gh-read data 'private_repos))))
(defclass gh-orgs-org (gh-orgs-org-stub)
((name :initarg :name) ((name :initarg :name)
(company :initarg :company) (company :initarg :company)
(blog :initarg :blog) (blog :initarg :blog)
@ -80,7 +64,6 @@
(public-gists :initarg :public-gists) (public-gists :initarg :public-gists)
(followers :initarg :followers) (followers :initarg :followers)
(following :initarg :following) (following :initarg :following)
(html-url :initarg :html-url)
(created-at :initarg :created-at) (created-at :initarg :created-at)
(type :initarg :type) (type :initarg :type)
(total-private-repos :initarg :total-private-repos) (total-private-repos :initarg :total-private-repos)
@ -89,42 +72,9 @@
(disk-usage :initarg :disk-usage) (disk-usage :initarg :disk-usage)
(collaborators :initarg :collaborators) (collaborators :initarg :collaborators)
(billing-email :initarg :billing-email) (billing-email :initarg :billing-email)
(plan :initarg :plan :initform nil) (plan :initarg :plan :initform nil :marshal-type gh-orgs-plan))
(plan-cls :allocation :class :initform gh-orgs-plan))
"Class for GitHub organizations") "Class for GitHub organizations")
(defmethod gh-object-read-into ((org gh-orgs-org) data)
(call-next-method)
(with-slots (name company blog location email
public-repos public-gists followers following
html-url created-at type
total-private-repos owned-private-repos
private-gists disk-usage collaborators
billing-email plan)
org
(setq name (gh-read data 'name)
company (gh-read data 'company)
blog (gh-read data 'blog)
location (gh-read data 'location)
email (gh-read data 'email)
public-repos (gh-read data 'public_repos)
public-gists (gh-read data 'public_gists)
followers (gh-read data 'followers)
following (gh-read data 'following)
html-url (gh-read data 'html_url)
created-at (gh-read data 'created_at)
type (gh-read data 'type)
total-private-repos (gh-read data 'total_private_repos)
owned-private-repos (gh-read data 'owned_private_repos)
private-gists (gh-read data 'private_gists)
disk-usage (gh-read data 'disk_usage)
collaborators (gh-read data 'collaborators)
billing-email (gh-read data 'billing_email)
plan (gh-object-read (or (oref org :plan)
(oref org plan-cls))
(gh-read data 'plan)))))
(defmethod gh-orgs-org-to-obj ((org gh-orgs-org)) (defmethod gh-orgs-org-to-obj ((org gh-orgs-org))
`(,@(when (slot-boundp org :billing-email) `(,@(when (slot-boundp org :billing-email)
(list (cons "billing_email" (oref org :billing-email)))) (list (cons "billing_email" (oref org :billing-email))))

10
elpa/gh-20160728.1525/gh-pkg.el Normal file
View File

@ -0,0 +1,10 @@
(define-package "gh" "20160728.1525" "A GitHub library for Emacs"
'((emacs "24.3")
(s "1.9.0")
(dash "2.9.0")
(pcache "0.4.1")
(logito "0.1")
(marshal "0.6.3")))
;; Local Variables:
;; no-byte-compile: t
;; End:

0
elpa/gh-20160626.1349/gh-profile.el → elpa/gh-20160728.1525/gh-profile.el
View File

78
elpa/gh-20160728.1525/gh-pull-comments.el Normal file
View File

@ -0,0 +1,78 @@
;;; gh-pull-comments.el --- pull request comments api for github
;; Copyright (C) 2014 Toni Reina
;; Author: Toni Reina <areina0@gmail.com>
;; Keywords:
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; TODOS:
;; * Support listing all comments in a repository
;; Basic usage:
;; (setf api (gh-pull-comments-api "api" :sync nil :cache nil :num-retries 1))
;; (setf comments (gh-pull-comments-list api "user" "repo" "pull request id"))
;; (setq my-comment (make-instance 'gh-pull-comments-comment
;; :body "This is great!"
;; :path "README.md"
;; :position 2
;; :commit-id "commit sha"))
;; (gh-pull-comments-new api "user" "repo" "pull request id" my-comment)
;;; Code:
(eval-when-compile
(require 'cl))
;;;###autoload
(require 'eieio)
(require 'gh-api)
(require 'gh-auth)
(require 'gh-common)
(require 'gh-pulls)
(let ((ver "1.0.0"))
(define-obsolete-function-alias
'gh-pull-comments-api 'gh-pulls-api ver)
(define-obsolete-function-alias
'gh-pull-comments-comment 'gh-pulls-comment ver)
(define-obsolete-function-alias
'gh-pull-comments-req-to-update 'gh-comment-req-to-update ver)
(define-obsolete-function-alias
'gh-pull-comments-req-to-create 'gh-pulls-comment-req-to-create)
(define-obsolete-function-alias
'gh-pull-comments-list 'gh-pulls-comments-list ver)
(define-obsolete-function-alias
'gh-pull-comments-get 'gh-pulls-comments-get ver)
(define-obsolete-function-alias
'gh-pull-comments-update 'gh-pulls-comments-update ver)
(define-obsolete-function-alias
'gh-pull-comments-new 'gh-pulls-comments-new ver)
(define-obsolete-function-alias
'gh-pull-comments-delete 'gh-pulls-comments-delete ver))
(provide 'gh-pull-comments)
;;; gh-pull-comments.el ends here
;; Local Variables:
;; indent-tabs-mode: nil
;; End:

114
elpa/gh-20160626.1349/gh-pulls.el → elpa/gh-20160728.1525/gh-pulls.el
View File

@ -34,26 +34,48 @@
(require 'gh-api) (require 'gh-api)
(require 'gh-auth) (require 'gh-auth)
(require 'gh-comments)
(require 'gh-common) (require 'gh-common)
(require 'gh-repos) (require 'gh-repos)
;;;###autoload
(defclass gh-pulls-cache (gh-cache) (defclass gh-pulls-cache (gh-cache)
((invalidation-chain :allocation :class ((invalidation-chain :allocation :class
:initform '(("^/repos/.*/.*/pulls$" . "\0") :initform '(("^/repos/.*/.*/pulls$" . "\0")
("^/repos/.*/.*/pulls/.*$" . "\0"))))) ("^/repos/.*/.*/pulls/.*$" . "\0")))))
;;;###autoload ;;;###autoload
(defclass gh-pulls-api (gh-api-v3) (defclass gh-pulls-api (gh-api-v3 gh-comments-api-mixin)
((cache-cls :allocation :class :initform gh-pulls-cache) ((cache-cls :allocation :class :initform gh-pulls-cache)
(req-cls :allocation :class :initform gh-pulls-request)) (req-cls :allocation :class :initform gh-pulls-request)
(comment-cls :allocation :class :initform gh-pulls-comment))
"Git pull requests API") "Git pull requests API")
(defclass gh-pulls-request-stub (gh-object) ;;;###autoload
((url :initarg :url) (gh-defclass gh-pulls-comment (gh-comment)
(html-url :initarg :html-url) ((path :initarg :path)
(diff-url :initarg :diff-url) (diff-hunk :initarg :diff-hunk)
(position :initarg :position)
(original-position :initarg :original-position)
(commit-id :initarg :commit-id)
(original-commit-id :initarg :original-commit-id)
(in-reply-to :initarg :in-reply-to :initform nil)))
(defmethod gh-pulls-comment-req-to-create ((req gh-pulls-comment))
(let ((in-reply-to (oref req in-reply-to))
(to-update `(("body" . ,(oref req body)))))
(if in-reply-to
(nconc to-update `(("in_reply_to" . ,in-reply-to)))
(nconc to-update `(("commit_id" . ,(oref req commit-id))
("path" . ,(oref req path))
("position" . ,(oref req position)))))
to-update))
;;;###autoload
(gh-defclass gh-pulls-request-stub (gh-ref-object)
((diff-url :initarg :diff-url)
(patch-url :initarg :patch-url) (patch-url :initarg :patch-url)
(issue-url :initarg :issue-url) (issue-url :initarg :issue-url)
(number :initarg :number) (number :initarg :number)
@ -64,71 +86,22 @@
(updated-at :initarg :updated-at) (updated-at :initarg :updated-at)
(closed-at :initarg :closed-at) (closed-at :initarg :closed-at)
(merged-at :initarg :merged-at) (merged-at :initarg :merged-at)
(head :initarg :head :initform nil) (head :initarg :head :initform nil :marshal-type gh-repos-ref)
(base :initarg :base :initform nil) (base :initarg :base :initform nil :marshal-type gh-repos-ref)))
(ref-cls :allocation :class :initform gh-repos-ref)))
(defmethod gh-object-read-into ((stub gh-pulls-request-stub) data)
(call-next-method)
(with-slots (url html-url diff-url patch-url issue-url number
state title body created-at updated-at
closed-at merged-at head base)
stub
(setq url (gh-read data 'url)
html-url (gh-read data 'html_url)
diff-url (gh-read data 'diff_url)
patch-url (gh-read data 'patch_url)
issue-url (gh-read data 'issue_url)
number (gh-read data 'number)
state (gh-read data 'state)
title (gh-read data 'title)
body (gh-read data 'body)
created-at (gh-read data 'created_at)
updated-at (gh-read data 'updated_at)
closed-at (gh-read data 'closed_at)
merged-at (gh-read data 'merged_at)
head (gh-object-read (or (oref stub :head)
(oref stub ref-cls))
(gh-read data 'head))
base (gh-object-read (or (oref stub :base)
(oref stub ref-cls))
(gh-read data 'base)))))
;;;###autoload ;;;###autoload
(defclass gh-pulls-request (gh-pulls-request-stub) (gh-defclass gh-pulls-request (gh-pulls-request-stub)
((merged :initarg :merged) ((merged :initarg :merged)
(mergeable :initarg :mergeable) (mergeable :initarg :mergeable)
(merged-by :initarg :merged-by) (merged-by :initarg :merged-by)
(comments :initarg :comments) (comments :initarg :comments)
(user :initarg :user :initform nil) (user :initarg :user :initform nil :marshal-type gh-user)
(commits :initarg :commits) (commits :initarg :commits)
(additions :initarg :additions) (additions :initarg :additions)
(deletions :initarg :deletions) (deletions :initarg :deletions)
(changed-files :initarg :changed-files) (changed-files :initarg :changed-files))
(ref-cls :allocation :class :initform gh-repos-ref)
(user-cls :allocation :class :initform gh-user))
"Git pull requests API") "Git pull requests API")
(defmethod gh-object-read-into ((req gh-pulls-request) data)
(call-next-method)
(with-slots (merged mergeable
merged-by comments user commits additions
deletions changed-files)
req
(setq merged (gh-read data 'merged)
mergeable (gh-read data 'mergeable)
merged-by (gh-read data 'merged_by)
comments (gh-read data 'comments)
user (gh-object-read (or (oref req :user)
(oref req user-cls))
(gh-read data 'user))
commits (gh-read data 'commits)
additions (gh-read data 'additions)
deletions (gh-read data 'deletions)
changed-files (gh-read data 'changed_files))))
(defmethod gh-pulls-req-to-new ((req gh-pulls-request)) (defmethod gh-pulls-req-to-new ((req gh-pulls-request))
(let ((head (oref req :head)) (let ((head (oref req :head))
(base (oref req :base))) (base (oref req :base)))
@ -164,6 +137,27 @@
(format "/repos/%s/%s/pulls/%s" user repo id) (format "/repos/%s/%s/pulls/%s" user repo id)
(gh-pulls-req-to-update req))) (gh-pulls-req-to-update req)))
;;; Comments
(defmethod gh-pulls-comments-list ((api gh-pulls-api) user repo pull-id)
(gh-comments-list api (format "/repos/%s/%s/pulls/%s" user repo pull-id)))
(defmethod gh-pulls-comments-get ((api gh-pulls-api) user repo comment-id)
(gh-comments-get api (format "/repos/%s/%s/pulls" user repo) comment-id))
(defmethod gh-pulls-comments-update ((api gh-pulls-api)
user repo comment-id comment)
(gh-comments-update api (format "/repos/%s/%s/pulls" user repo)
comment-id (gh-comment-req-to-update comment)))
(defmethod gh-pulls-comments-new ((api gh-pulls-api)
user repo pull-id comment)
(gh-comments-new api (format "/repos/%s/%s/pulls/%s" user repo pull-id)
(gh-pulls-comment-req-to-create comment)))
(defmethod gh-pulls-comments-delete ((api gh-pulls-api) user repo comment-id)
(gh-comments-delete api (format "/repos/%s/%s/pulls" user repo) comment-id))
(provide 'gh-pulls) (provide 'gh-pulls)
;;; gh-pulls.el ends here ;;; gh-pulls.el ends here

99
elpa/gh-20160626.1349/gh-repos.el → elpa/gh-20160728.1525/gh-repos.el
View File

@ -43,33 +43,21 @@
"Repos API") "Repos API")
;;;###autoload ;;;###autoload
(defclass gh-repos-repo-stub (gh-object) (gh-defclass gh-repos-repo-stub (gh-object)
((name :initarg :name) ((name :initarg :name)
(description :initarg :description) (description :initarg :description)
(homepage :initarg :homepage) (homepage :initarg :homepage)
(private :initarg :private)) (private :initarg :private))
"Class for user-created repository objects") "Class for user-created repository objects")
(defmethod gh-object-read-into ((stub gh-repos-repo-stub) data)
(call-next-method)
(with-slots (name description homepage private)
stub
(setq name (gh-read data 'name)
description (gh-read data 'description)
homepage (gh-read data 'homepage)
private (gh-read data 'private))))
;;;###autoload ;;;###autoload
(defclass gh-repos-repo (gh-repos-repo-stub) (gh-defclass gh-repos-repo (gh-ref-object gh-repos-repo-stub)
((url :initarg :url) ((clone-url :initarg :clone-url)
(html-url :initarg :html-url)
(clone-url :initarg :clone-url)
(git-url :initarg :git-url) (git-url :initarg :git-url)
(ssh-url :initarg :ssh-url) (ssh-url :initarg :ssh-url)
(svn-url :initarg :svn-url) (svn-url :initarg :svn-url)
(mirror-url :initarg :mirror-url) (mirror-url :initarg :mirror-url)
(owner :initarg :owner :initform nil) (owner :initarg :owner :initform nil :marshal-type gh-user)
(id :initarg :id)
(full-name :initarg :full-name) (full-name :initarg :full-name)
(language :initarg :language) (language :initarg :language)
(fork :initarg :fork) (fork :initarg :fork)
@ -84,84 +72,21 @@
(pushed-at :initarg :pushed-at) (pushed-at :initarg :pushed-at)
(created-at :initarg :created-at) (created-at :initarg :created-at)
(updated-at :initarg :updated-at) (updated-at :initarg :updated-at)
(organisation :initarg :organisation :initform nil) (organisation :initarg :organisation :initform nil :marshal-type gh-user)
(parent :initarg :parent) (parent :initarg :parent :marshal-type gh-repos-repo)
(source :initarg :source) (source :initarg :source :marshal-type gh-repos-repo)
(has-issues :initarg :has-issues) (has-issues :initarg :has-issues)
(has-wiki :initarg :has-wiki) (has-wiki :initarg :has-wiki)
(has-downloads :initarg :has-downloads) (has-downloads :initarg :has-downloads))
(owner-cls :allocation :class :initform gh-user)
(organisation-cls :allocation :class :initform gh-user)
(parent-cls :allocation :class :initform gh-repos-repo)
(source-cls :allocation :class :initform gh-repos-repo))
"Class for GitHub repositories") "Class for GitHub repositories")
(defmethod gh-object-read-into ((repo gh-repos-repo) data) ;;;###autoload
(call-next-method) (gh-defclass gh-repos-ref (gh-object)
(with-slots (url html-url clone-url git-url ssh-url svn-url mirror-url
id owner full-name language fork forks forks-count
watchers watchers-count size master-branch open-issues
pushed-at created-at organisation parent source
has-issues has-wiki has-downloads)
repo
(setq url (gh-read data 'url)
html-url (gh-read data 'html_url)
clone-url (gh-read data 'clone_url)
git-url (gh-read data 'git_url)
ssh-url (gh-read data 'ssh_url)
svn-url (gh-read data 'svn_url)
mirror-url (gh-read data 'mirror_url)
id (gh-read data 'id)
owner (gh-object-read (or (oref repo :owner)
(oref repo owner-cls))
(gh-read data 'owner))
full-name (gh-read data 'full_name)
language (gh-read data 'language)
fork (gh-read data 'fork)
forks (gh-read data 'forks)
forks-count (gh-read data 'forks_count)
watchers (gh-read data 'watchers)
watchers-count (gh-read data 'watchers_count)
size (gh-read data 'size)
master-branch (gh-read data 'master_branch)
open-issues (gh-read data 'open_issues)
pushed-at (gh-read data 'pushed_at)
created-at (gh-read data 'created_at)
organisation (gh-object-read (or (oref repo :organisation)
(oref repo organisation-cls))
(gh-read data 'organisation))
parent (gh-object-read (oref repo parent-cls)
(gh-read data 'parent))
source (gh-object-read (oref repo source-cls)
(gh-read data 'source))
has-issues (gh-read data 'has_issues)
has-wiki (gh-read data 'has_wiki)
has-downloads (gh-read data 'has_downloads))))
(defclass gh-repos-ref (gh-object)
((label :initarg :label) ((label :initarg :label)
(ref :initarg :ref :initform nil) (ref :initarg :ref :initform nil)
(sha :initarg :sha :initform nil) (sha :initarg :sha :initform nil)
(user :initarg :user :initform nil) (user :initarg :user :initform nil :marshal-type gh-user)
(repo :initarg :repo :initform nil) (repo :initarg :repo :initform nil :marshal-type gh-repos-repo)))
(user-cls :allocation :class :initform gh-user)
(repo-cls :allocation :class :initform gh-repos-repo)))
(defmethod gh-object-read-into ((r gh-repos-ref) data)
(call-next-method)
(with-slots (label ref sha user repo)
r
(setq label (gh-read data 'label)
ref (gh-read data 'ref)
sha (gh-read data 'sha)
user (gh-object-read (or (oref r :user)
(oref r user-cls))
(gh-read data 'user))
repo (gh-object-read (or (oref r :repo)
(oref r repo-cls))
(gh-read data 'repo)))))
(defmethod gh-repos-user-list ((api gh-repos-api) &optional username) (defmethod gh-repos-user-list ((api gh-repos-api) &optional username)
(gh-api-authenticated-request (gh-api-authenticated-request

1
elpa/gh-20160626.1349/gh-search.el → elpa/gh-20160728.1525/gh-search.el
View File

@ -25,6 +25,7 @@
(require 'gh-users) (require 'gh-users)
(require 'gh-repos) (require 'gh-repos)
;;;###autoload
(defclass gh-search-api (gh-api-v3) (defclass gh-search-api (gh-api-v3)
((repo-cls :allocation :class :initform gh-repos-repo) ((repo-cls :allocation :class :initform gh-repos-repo)
(user-cls :allocation :class :initform gh-users-user))) (user-cls :allocation :class :initform gh-users-user)))

19
elpa/gh-20160626.1349/gh-url.el → elpa/gh-20160728.1525/gh-url.el
View File

@ -34,6 +34,7 @@
(require 'url-http) (require 'url-http)
;;;###autoload
(defclass gh-url-request () (defclass gh-url-request ()
((method :initarg :method :type string) ((method :initarg :method :type string)
(url :initarg :url :type string) (url :initarg :url :type string)
@ -46,6 +47,7 @@
(default-response-cls :allocation :class :initform gh-url-response))) (default-response-cls :allocation :class :initform gh-url-response)))
;;;###autoload
(defclass gh-url-response () (defclass gh-url-response ()
((data-received :initarg :data-received :initform nil) ((data-received :initarg :data-received :initform nil)
(data :initarg :data :initform nil) (data :initarg :data :initform nil)
@ -63,6 +65,7 @@
data)) data))
(oset resp :data-received t))) (oset resp :data-received t)))
;;;###autoload
(defclass gh-url-callback () (defclass gh-url-callback ()
nil) nil)
@ -140,14 +143,14 @@
(defun gh-url-set-response (status req-resp) (defun gh-url-set-response (status req-resp)
(set-buffer-multibyte t) (set-buffer-multibyte t)
(destructuring-bind (req resp) req-resp (destructuring-bind (req resp) req-resp
(condition-case err (let ((responses-req (clone req))
(let ((responses-req (clone req))) (num (oref req :num-retries)))
(oset resp :-req responses-req) (oset resp :-req responses-req)
(gh-url-response-init resp (current-buffer))) (if (or (null num) (zerop num))
(error (gh-url-response-init resp (current-buffer))
(let ((num (oref req :num-retries))) (condition-case err
(if (or (null num) (zerop num)) (gh-url-response-init resp (current-buffer))
(signal (car err) (cdr err)) (error
(oset req :num-retries (1- num)) (oset req :num-retries (1- num))
(gh-url-run-request req resp))))))) (gh-url-run-request req resp)))))))

36
elpa/gh-20160626.1349/gh-users.el → elpa/gh-20160728.1525/gh-users.el
View File

@ -42,7 +42,7 @@
"Users API") "Users API")
;;;###autoload ;;;###autoload
(defclass gh-users-user (gh-user) (gh-defclass gh-users-user (gh-user)
((gravatar-id :initarg :gravatar-id) ((gravatar-id :initarg :gravatar-id)
(html-url :initarg :html-url) (html-url :initarg :html-url)
(followers-url :initarg :followers-url) (followers-url :initarg :followers-url)
@ -70,40 +70,6 @@
(created-at :initarg :created-at) (created-at :initarg :created-at)
(update-at :initarg :update-at))) (update-at :initarg :update-at)))
(defmethod gh-object-read-into ((user gh-users-user) data)
(call-next-method)
(with-slots (gravatar-id html-url followers-url following-url
gists-url starred-url subscriptions-url organizations-url
repos-url events-url received-events-url type site-admin name
company blog location email hireable bio public-repos
public-gists followers following created-at update-at)
user
(setq gravatar-id (gh-read data 'gravatar_id)
html-url (gh-read data 'html_url)
following-url (gh-read data 'following_url)
gists-url (gh-read data 'gists_url)
starred-url (gh-read data 'starred_url)
subscriptions-url (gh-read data 'subscriptions_url)
organizations-url (gh-read data 'organizations_url)
repos-url (gh-read data 'repos_url)
events-url (gh-read data 'events_url)
received-events-url (gh-read data 'received_events_url)
type (gh-read data 'type)
site-admin (gh-read data 'site_admin)
name (gh-read data 'name)
company (gh-read data 'company)
blog (gh-read data 'blog)
location (gh-read data 'location)
email (gh-read data 'email)
hireable (gh-read data 'hireable)
bio (gh-read data 'bio)
public-repos (gh-read data 'public_repos)
public-gists (gh-read data 'public_gists)
followers (gh-read data 'followers)
following (gh-read data 'following)
created-at (gh-read data 'created_at)
update-at (gh-read data 'update_at))))
(defmethod gh-users-get ((api gh-users-api) &optional username) (defmethod gh-users-get ((api gh-users-api) &optional username)
(gh-api-authenticated-request (gh-api-authenticated-request
api (gh-object-reader (oref api users-cls)) "GET" api (gh-object-reader (oref api users-cls)) "GET"

0
elpa/gh-20160626.1349/gh.el → elpa/gh-20160728.1525/gh.el
View File

6
elpa/go-mode-20160512.110/go-mode-autoloads.el → elpa/go-mode-20160715.205/go-mode-autoloads.el
View File

@ -3,8 +3,7 @@
;;; Code: ;;; Code:
;;;### (autoloads nil "go-mode" "go-mode.el" (22387 29367 888183 ;;;### (autoloads nil "go-mode" "go-mode.el" (22454 5326 453354 320000))
;;;;;; 643000))
;;; Generated autoloads from go-mode.el ;;; Generated autoloads from go-mode.el
(autoload 'go-mode "go-mode" "\ (autoload 'go-mode "go-mode" "\
@ -96,8 +95,7 @@ Tries to look for a URL at point.
;;;*** ;;;***
;;;### (autoloads nil nil ("go-mode-pkg.el") (22387 29367 902180 ;;;### (autoloads nil nil ("go-mode-pkg.el") (22454 5326 404353 168000))
;;;;;; 904000))
;;;*** ;;;***

2
elpa/go-mode-20160512.110/go-mode-pkg.el → elpa/go-mode-20160715.205/go-mode-pkg.el
View File

@ -1,4 +1,4 @@
(define-package "go-mode" "20160512.110" "Major mode for the Go programming language" 'nil :url "https://github.com/dominikh/go-mode.el" :keywords (define-package "go-mode" "20160715.205" "Major mode for the Go programming language" 'nil :url "https://github.com/dominikh/go-mode.el" :keywords
'("languages" "go")) '("languages" "go"))
;; Local Variables: ;; Local Variables:
;; no-byte-compile: t ;; no-byte-compile: t

2
elpa/go-mode-20160512.110/go-mode.el → elpa/go-mode-20160715.205/go-mode.el
View File

@ -199,7 +199,7 @@ point to the wrapper script."
(defcustom gofmt-command "gofmt" (defcustom gofmt-command "gofmt"
"The 'gofmt' command. "The 'gofmt' command.
Some users may replace this with 'goimports' Some users may replace this with 'goimports'
from https://github.com/bradfitz/goimports." from https://golang.org/x/tools/cmd/goimports."
:type 'string :type 'string
:group 'go) :group 'go)

1
elpa/grizzl-20160130.2351/grizzl-pkg.el
View File

@ -1 +0,0 @@
(define-package "grizzl" "20160130.2351" "Fast fuzzy search index for Emacs." '((cl-lib "0.5") (emacs "24.3")) :url "https://github.com/grizzl/grizzl" :keywords '("convenience" "usability"))

4
elpa/grizzl-20160130.2351/grizzl-autoloads.el → elpa/grizzl-20160818.37/grizzl-autoloads.el
View File

@ -1,9 +1,9 @@
;;; grizzl-autoloads.el --- automatically extracted autoloads ;;; grizzl-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 "grizzl" "grizzl.el" (22297 19824 853945 777000)) ;;;### (autoloads nil "grizzl" "grizzl.el" (22454 5325 478331 394000))
;;; Generated autoloads from grizzl.el ;;; Generated autoloads from grizzl.el
(autoload 'grizzl-make-index "grizzl" "\ (autoload 'grizzl-make-index "grizzl" "\

2
elpa/grizzl-20160818.37/grizzl-pkg.el Normal file
View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "grizzl" "20160818.37" "Fast fuzzy search index for Emacs." '((cl-lib "0.5") (emacs "24.3")) :url "https://github.com/grizzl/grizzl" :keywords '("convenience" "usability"))

13
elpa/grizzl-20160130.2351/grizzl.el → elpa/grizzl-20160818.37/grizzl.el
View File

@ -6,7 +6,7 @@
;; Author: Chris Corbyn <chris@w3style.co.uk> ;; Author: Chris Corbyn <chris@w3style.co.uk>
;; Maintainer: Bozhidar Batsov <bozhidar@batsov.com> ;; Maintainer: Bozhidar Batsov <bozhidar@batsov.com>
;; URL: https://github.com/grizzl/grizzl ;; URL: https://github.com/grizzl/grizzl
;; Package-Version: 20160130.2351 ;; Package-Version: 20160818.37
;; Version: 0.1.2 ;; Version: 0.1.2
;; Keywords: convenience, usability ;; Keywords: convenience, usability
;; Package-Requires: ((cl-lib "0.5") (emacs "24.3")) ;; Package-Requires: ((cl-lib "0.5") (emacs "24.3"))
@ -268,6 +268,10 @@ If the :END option is specified, up to :END results are returned."
"Face for selected result." "Face for selected result."
:group 'grizzl-mode) :group 'grizzl-mode)
(defface grizzl-prompt-face
`((t :inherit 'mode-line-inactive))
"Face used for grizzl prompt."
:group 'grizzl-mode)
;;; --- Minor Mode Definition ;;; --- Minor Mode Definition
@ -380,12 +384,13 @@ if this is the current selection."
(let* ((count (grizzl-result-count *grizzl-current-result*)) (let* ((count (grizzl-result-count *grizzl-current-result*))
(match-info (format " (%d candidate%s) ---- *-" (match-info (format " (%d candidate%s) ---- *-"
count (if (= count 1) "" "s")))) count (if (= count 1) "" "s"))))
(concat (propertize (format "-*%s *-" prompt) 'face 'modeline-inactive) (concat (propertize (format "-*%s *-" prompt) 'face 'grizzl-prompt-face)
(propertize " " (propertize " "
'face 'modeline-inactive 'face 'grizzl-prompt-face
'display `(space :align-to (- right 'display `(space :align-to (- right
,(1+ (length match-info))))) ,(1+ (length match-info)))))
(propertize match-info 'face 'modeline-inactive)))) (propertize match-info 'face 'grizzl-prompt-face))))
(defun grizzl-current-selection () (defun grizzl-current-selection ()
"Get the currently selected index in `grizzl-completing-read'." "Get the currently selected index in `grizzl-completing-read'."

108
elpa/helm-20160711.1143/helm-plugin.el
View File

@ -1,108 +0,0 @@
;;; helm-plugin.el --- Helm plugins -*- lexical-binding: t -*-
;; Copyright (C) 2012 ~ 2016 Thierry Volpiatto <thierry.volpiatto@gmail.com>
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Code:
(require 'cl-lib)
(require 'helm)
(require 'helm-utils)
;;; Plug-in: `info-index'
;;
;;
(defun helm-make-info-source (source file)
`(,@source
(name . ,(concat "Info Index: " file))
(info-file . ,file)
(init . helm-info-init)
(display-to-real . helm-info-display-to-real)
(get-line . buffer-substring)
(candidates-in-buffer)
(action ("Goto node" . helm-info-goto))))
(defun helm-compile-source--info-index (source)
(helm-aif (helm-interpret-value (assoc-default 'info-index source))
(helm-make-info-source source it)
source))
(add-to-list 'helm-compile-source-functions 'helm-compile-source--info-index)
;;; Plug-in: `candidates-file'
;;
;; List all lines in a file.
(defun helm-compile-source--candidates-file (source)
(if (assoc-default 'candidates-file source)
`((init helm-p-candidates-file-init
,@(let ((orig-init (assoc-default 'init source)))
(cond ((null orig-init) nil)
((functionp orig-init) (list orig-init))
(t orig-init))))
(candidates-in-buffer)
,@source)
source))
(add-to-list 'helm-compile-source-functions 'helm-compile-source--candidates-file)
(defun helm-p-candidates-file-init ()
(cl-destructuring-bind (file &optional updating)
(helm-mklist (helm-attr 'candidates-file))
(setq file (helm-interpret-value file))
(with-current-buffer (helm-candidate-buffer 'global)
(insert-file-contents file)
(when updating
(buffer-disable-undo)
(font-lock-mode -1)
(auto-revert-mode 1)))))
;;; Plug-in: `persistent-help'
;;
;; Add help about persistent action in `helm-buffer' header.
(defun helm-compile-source--persistent-help (source)
(if (assoc 'header-line source)
source
(append source '((header-line . helm-persistent-help-string)))))
(add-to-list 'helm-compile-source-functions 'helm-compile-source--persistent-help)
(defun helm-persistent-help-string ()
(substitute-command-keys
(concat "\\<helm-map>\\[helm-execute-persistent-action]: "
(or (helm-interpret-value (helm-attr 'persistent-help))
(helm-aif (or (assoc-default
'persistent-action
(helm-get-current-source))
(assoc-default
'action (helm-get-current-source)))
(cond ((symbolp it)
(symbol-name it))
((listp it)
(or (ignore-errors (caar it)) ""))))
"")
" (keeping session)")))
(provide 'helm-plugin)
;; Local Variables:
;; byte-compile-warnings: (not cl-functions obsolete)
;; coding: utf-8
;; indent-tabs-mode: nil
;; End:
;;; helm-plugin ends here

0
elpa/helm-20160711.1143/emacs-helm.sh → elpa/helm-20160818.623/emacs-helm.sh
View File

0
elpa/helm-20160711.1143/helm-adaptive.el → elpa/helm-20160818.623/helm-adaptive.el
View File

0
elpa/helm-20160711.1143/helm-apt.el → elpa/helm-20160818.623/helm-apt.el
View File

162
elpa/helm-20160711.1143/helm-autoloads.el → elpa/helm-20160818.623/helm-autoloads.el
View File

@ -1,15 +1,16 @@
;;; helm-autoloads.el --- automatically extracted autoloads ;;; helm-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 "helm-adaptive" "helm-adaptive.el" (22404 60264 ;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22454 5322
;;;;;; 321872 842000)) ;;;;;; 428259 677000))
;;; Generated autoloads from helm-adaptive.el ;;; Generated autoloads from helm-adaptive.el
(defvar helm-adaptive-mode nil "\ (defvar helm-adaptive-mode nil "\
Non-nil if Helm-Adaptive mode is enabled. Non-nil if Helm-Adaptive mode is enabled.
See the command `helm-adaptive-mode' for a description of this minor mode. See the `helm-adaptive-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect; Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization') either customize it (see the info node `Easy Customization')
or call the function `helm-adaptive-mode'.") or call the function `helm-adaptive-mode'.")
@ -29,8 +30,8 @@ Useful when you have a old or corrupted `helm-adaptive-history-file'.
;;;*** ;;;***
;;;### (autoloads nil "helm-apt" "helm-apt.el" (22404 60264 293872 ;;;### (autoloads nil "helm-apt" "helm-apt.el" (22454 5322 190254
;;;;;; 696000)) ;;;;;; 80000))
;;; Generated autoloads from helm-apt.el ;;; Generated autoloads from helm-apt.el
(autoload 'helm-apt "helm-apt" "\ (autoload 'helm-apt "helm-apt" "\
@ -41,8 +42,8 @@ With a prefix arg reload cache.
;;;*** ;;;***
;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22404 60264 ;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22454 5322
;;;;;; 389873 198000)) ;;;;;; 866269 976000))
;;; Generated autoloads from helm-bookmark.el ;;; Generated autoloads from helm-bookmark.el
(autoload 'helm-bookmarks "helm-bookmark" "\ (autoload 'helm-bookmarks "helm-bookmark" "\
@ -59,8 +60,8 @@ only if external library addressbook-bookmark.el is available.
;;;*** ;;;***
;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22404 60264 ;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22454 5322
;;;;;; 281872 633000)) ;;;;;; 122252 481000))
;;; Generated autoloads from helm-buffers.el ;;; Generated autoloads from helm-buffers.el
(autoload 'helm-buffers-list "helm-buffers" "\ (autoload 'helm-buffers-list "helm-buffers" "\
@ -75,8 +76,8 @@ Preconfigured `helm' lightweight version (buffer -> recentf).
;;;*** ;;;***
;;;### (autoloads nil "helm-color" "helm-color.el" (22404 60264 373873 ;;;### (autoloads nil "helm-color" "helm-color.el" (22454 5322 731266
;;;;;; 114000)) ;;;;;; 803000))
;;; Generated autoloads from helm-color.el ;;; Generated autoloads from helm-color.el
(autoload 'helm-colors "helm-color" "\ (autoload 'helm-colors "helm-color" "\
@ -86,8 +87,8 @@ Preconfigured `helm' for color.
;;;*** ;;;***
;;;### (autoloads nil "helm-command" "helm-command.el" (22404 60264 ;;;### (autoloads nil "helm-command" "helm-command.el" (22454 5321
;;;;;; 229872 361000)) ;;;;;; 795244 793000))
;;; Generated autoloads from helm-command.el ;;; Generated autoloads from helm-command.el
(autoload 'helm-M-x "helm-command" "\ (autoload 'helm-M-x "helm-command" "\
@ -105,8 +106,8 @@ You can get help on each command by persistent action.
;;;*** ;;;***
;;;### (autoloads nil "helm-config" "helm-config.el" (22404 60264 ;;;### (autoloads nil "helm-config" "helm-config.el" (22454 5322
;;;;;; 385873 177000)) ;;;;;; 821268 918000))
;;; Generated autoloads from helm-config.el ;;; Generated autoloads from helm-config.el
(autoload 'helm-configuration "helm-config" "\ (autoload 'helm-configuration "helm-config" "\
@ -116,8 +117,8 @@ Customize `helm'.
;;;*** ;;;***
;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22404 60264 ;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22454 5322
;;;;;; 301872 738000)) ;;;;;; 257255 656000))
;;; Generated autoloads from helm-dabbrev.el ;;; Generated autoloads from helm-dabbrev.el
(autoload 'helm-dabbrev "helm-dabbrev" "\ (autoload 'helm-dabbrev "helm-dabbrev" "\
@ -127,8 +128,8 @@ Preconfigured helm for dynamic abbreviations.
;;;*** ;;;***
;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22404 60264 381873 ;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22454 5322 777267
;;;;;; 156000)) ;;;;;; 884000))
;;; 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" "\
@ -182,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"
;;;;;; (22404 60264 237872 403000)) ;;;;;; (22454 5321 829245 592000))
;;; 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" "\
@ -198,8 +199,8 @@ Same as `helm-list-elisp-packages' but don't fetch packages on remote.
;;;*** ;;;***
;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22404 60264 ;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22454 5321
;;;;;; 217872 298000)) ;;;;;; 728243 218000))
;;; Generated autoloads from helm-elscreen.el ;;; Generated autoloads from helm-elscreen.el
(autoload 'helm-elscreen "helm-elscreen" "\ (autoload 'helm-elscreen "helm-elscreen" "\
@ -214,8 +215,8 @@ Preconfigured helm to list elscreen in history order.
;;;*** ;;;***
;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22404 60264 ;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22454 5321
;;;;;; 249872 465000)) ;;;;;; 942248 250000))
;;; Generated autoloads from helm-eshell.el ;;; Generated autoloads from helm-eshell.el
(autoload 'helm-esh-pcomplete "helm-eshell" "\ (autoload 'helm-esh-pcomplete "helm-eshell" "\
@ -230,8 +231,8 @@ Preconfigured helm for eshell history.
;;;*** ;;;***
;;;### (autoloads nil "helm-eval" "helm-eval.el" (22404 60264 345872 ;;;### (autoloads nil "helm-eval" "helm-eval.el" (22454 5322 518261
;;;;;; 967000)) ;;;;;; 793000))
;;; Generated autoloads from helm-eval.el ;;; Generated autoloads from helm-eval.el
(autoload 'helm-eval-expression "helm-eval" "\ (autoload 'helm-eval-expression "helm-eval" "\
@ -251,8 +252,8 @@ Preconfigured helm for `helm-source-calculation-result'.
;;;*** ;;;***
;;;### (autoloads nil "helm-external" "helm-external.el" (22404 60264 ;;;### (autoloads nil "helm-external" "helm-external.el" (22454 5321
;;;;;; 197872 194000)) ;;;;;; 638241 101000))
;;; 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" "\
@ -265,10 +266,15 @@ You can set your own list of commands with
;;;*** ;;;***
;;;### (autoloads nil "helm-files" "helm-files.el" (22404 60264 305872 ;;;### (autoloads nil "helm-files" "helm-files.el" (22454 5322 291256
;;;;;; 759000)) ;;;;;; 455000))
;;; Generated autoloads from helm-files.el ;;; Generated autoloads from helm-files.el
(autoload 'helm-projects-history "helm-files" "\
\(fn)" t nil)
(autoload 'helm-browse-project "helm-files" "\ (autoload 'helm-browse-project "helm-files" "\
Preconfigured helm to browse projects. Preconfigured helm to browse projects.
Browse files and see status of project with its vcs. Browse files and see status of project with its vcs.
@ -339,8 +345,8 @@ Preconfigured `helm' for `recentf'.
;;;*** ;;;***
;;;### (autoloads nil "helm-font" "helm-font.el" (22404 60264 257872 ;;;### (autoloads nil "helm-font" "helm-font.el" (22454 5321 987249
;;;;;; 507000)) ;;;;;; 307000))
;;; Generated autoloads from helm-font.el ;;; Generated autoloads from helm-font.el
(autoload 'helm-select-xfont "helm-font" "\ (autoload 'helm-select-xfont "helm-font" "\
@ -355,8 +361,8 @@ Preconfigured helm for `ucs-names' math symbols.
;;;*** ;;;***
;;;### (autoloads nil "helm-grep" "helm-grep.el" (22404 60264 397873 ;;;### (autoloads nil "helm-grep" "helm-grep.el" (22454 5322 912271
;;;;;; 239000)) ;;;;;; 58000))
;;; 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" "\
@ -383,8 +389,8 @@ With a prefix arg ARG git-grep the whole repository.
;;;*** ;;;***
;;;### (autoloads nil "helm-help" "helm-help.el" (22404 60264 193872 ;;;### (autoloads nil "helm-help" "helm-help.el" (22454 5321 593240
;;;;;; 173000)) ;;;;;; 43000))
;;; Generated autoloads from helm-help.el ;;; Generated autoloads from helm-help.el
(autoload 'helm-documentation "helm-help" "\ (autoload 'helm-documentation "helm-help" "\
@ -404,8 +410,8 @@ String displayed in mode-line in `helm-source-find-files'.")
;;;*** ;;;***
;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22404 60264 ;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22454 5322
;;;;;; 285872 654000)) ;;;;;; 156253 281000))
;;; 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" "\
@ -419,8 +425,8 @@ See <https://www.gnu.org/software/idutils/>.
;;;*** ;;;***
;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22404 60264 273872 ;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22454 5322 54250
;;;;;; 591000)) ;;;;;; 883000))
;;; Generated autoloads from helm-imenu.el ;;; Generated autoloads from helm-imenu.el
(autoload 'helm-imenu "helm-imenu" "\ (autoload 'helm-imenu "helm-imenu" "\
@ -437,8 +443,8 @@ or it have an association in `helm-imenu-all-buffer-assoc'.
;;;*** ;;;***
;;;### (autoloads nil "helm-info" "helm-info.el" (22404 60264 261872 ;;;### (autoloads nil "helm-info" "helm-info.el" (22454 5322 20250
;;;;;; 528000)) ;;;;;; 83000))
;;; Generated autoloads from helm-info.el ;;; Generated autoloads from helm-info.el
(autoload 'helm-info "helm-info" "\ (autoload 'helm-info "helm-info" "\
@ -454,8 +460,8 @@ With a prefix-arg insert symbol at point.
;;;*** ;;;***
;;;### (autoloads nil "helm-locate" "helm-locate.el" (22404 60264 ;;;### (autoloads nil "helm-locate" "helm-locate.el" (22454 5321
;;;;;; 209872 256000)) ;;;;;; 683242 159000))
;;; 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" "\
@ -482,8 +488,8 @@ Where db_path is a filename matched by
;;;*** ;;;***
;;;### (autoloads nil "helm-man" "helm-man.el" (22404 60264 349872 ;;;### (autoloads nil "helm-man" "helm-man.el" (22454 5322 563262
;;;;;; 988000)) ;;;;;; 851000))
;;; Generated autoloads from helm-man.el ;;; Generated autoloads from helm-man.el
(autoload 'helm-man-woman "helm-man" "\ (autoload 'helm-man-woman "helm-man" "\
@ -494,8 +500,8 @@ With a prefix arg reinitialize the cache.
;;;*** ;;;***
;;;### (autoloads nil "helm-misc" "helm-misc.el" (22404 60264 317872 ;;;### (autoloads nil "helm-misc" "helm-misc.el" (22454 5322 383258
;;;;;; 821000)) ;;;;;; 619000))
;;; Generated autoloads from helm-misc.el ;;; Generated autoloads from helm-misc.el
(autoload 'helm-browse-menubar "helm-misc" "\ (autoload 'helm-browse-menubar "helm-misc" "\
@ -536,8 +542,8 @@ Preconfigured `helm' that provide completion of `comint' history.
;;;*** ;;;***
;;;### (autoloads nil "helm-mode" "helm-mode.el" (22404 60264 185872 ;;;### (autoloads nil "helm-mode" "helm-mode.el" (22454 5321 482237
;;;;;; 131000)) ;;;;;; 433000))
;;; Generated autoloads from helm-mode.el ;;; Generated autoloads from helm-mode.el
(autoload 'helm-comp-read "helm-mode" "\ (autoload 'helm-comp-read "helm-mode" "\
@ -625,13 +631,16 @@ Keys description:
`helm-source-in-buffer' which is much faster. `helm-source-in-buffer' which is much faster.
Argument VOLATILE have no effect when CANDIDATES-IN-BUFFER is non--nil. Argument VOLATILE have no effect when CANDIDATES-IN-BUFFER is non--nil.
- MATCH-PART: Allow matching only one part of candidate.
See match-part documentation in `helm-source'.
Any prefix args passed during `helm-comp-read' invocation will be recorded Any prefix args passed during `helm-comp-read' invocation will be recorded
in `helm-current-prefix-arg', otherwise if prefix args were given before in `helm-current-prefix-arg', otherwise if prefix args were given before
`helm-comp-read' invocation, the value of `current-prefix-arg' will be used. `helm-comp-read' invocation, the value of `current-prefix-arg' will be used.
That's mean you can pass prefix args before or after calling a command That's mean you can pass prefix args before or after calling a command
that use `helm-comp-read' See `helm-M-x' for example. that use `helm-comp-read' See `helm-M-x' for example.
\(fn PROMPT COLLECTION &key TEST INITIAL-INPUT DEFAULT PRESELECT (buffer \"*Helm Completions*\") MUST-MATCH FUZZY REVERSE-HISTORY (requires-pattern 0) HISTORY INPUT-HISTORY (case-fold helm-comp-read-case-fold-search) (del-input t) (persistent-action nil) (persistent-help \"DoNothing\") (mode-line helm-comp-read-mode-line) HELP-MESSAGE (keymap helm-comp-read-map) (name \"Helm Completions\") CANDIDATES-IN-BUFFER EXEC-WHEN-ONLY-ONE QUIT-WHEN-NO-CAND (volatile t) SORT (fc-transformer (quote helm-cr-default-transformer)) HIST-FC-TRANSFORMER MARKED-CANDIDATES NOMARK (alistp t) (candidate-number-limit helm-candidate-number-limit))" nil nil) \(fn PROMPT COLLECTION &key TEST INITIAL-INPUT DEFAULT PRESELECT (BUFFER \"*Helm Completions*\") MUST-MATCH FUZZY REVERSE-HISTORY (REQUIRES-PATTERN 0) HISTORY INPUT-HISTORY (CASE-FOLD helm-comp-read-case-fold-search) (DEL-INPUT t) (PERSISTENT-ACTION nil) (PERSISTENT-HELP \"DoNothing\") (MODE-LINE helm-comp-read-mode-line) HELP-MESSAGE (KEYMAP helm-comp-read-map) (NAME \"Helm Completions\") CANDIDATES-IN-BUFFER MATCH-PART EXEC-WHEN-ONLY-ONE QUIT-WHEN-NO-CAND (VOLATILE t) SORT (FC-TRANSFORMER \\='helm-cr-default-transformer) HIST-FC-TRANSFORMER MARKED-CANDIDATES NOMARK (ALISTP t) (CANDIDATE-NUMBER-LIMIT helm-candidate-number-limit))" nil nil)
(autoload 'helm-read-file-name "helm-mode" "\ (autoload 'helm-read-file-name "helm-mode" "\
Read a file name with helm completion. Read a file name with helm completion.
@ -669,11 +678,12 @@ Keys description:
- MODE-LINE: A mode line message, default is `helm-read-file-name-mode-line-string'. - MODE-LINE: A mode line message, default is `helm-read-file-name-mode-line-string'.
\(fn PROMPT &key (name \"Read File Name\") (initial-input default-directory) (buffer \"*Helm file completions*\") TEST (case-fold helm-file-name-case-fold-search) PRESELECT HISTORY MUST-MATCH DEFAULT MARKED-CANDIDATES (candidate-number-limit helm-ff-candidate-number-limit) NOMARK (alistp t) (persistent-action (quote helm-find-files-persistent-action)) (persistent-help \"Hit1 Expand Candidate, Hit2 or (C-u) Find file\") (mode-line helm-read-file-name-mode-line-string))" nil nil) \(fn PROMPT &key (NAME \"Read File Name\") (INITIAL-INPUT default-directory) (BUFFER \"*Helm file completions*\") TEST (CASE-FOLD helm-file-name-case-fold-search) PRESELECT HISTORY MUST-MATCH DEFAULT MARKED-CANDIDATES (CANDIDATE-NUMBER-LIMIT helm-ff-candidate-number-limit) NOMARK (ALISTP t) (PERSISTENT-ACTION \\='helm-find-files-persistent-action) (PERSISTENT-HELP \"Hit1 Expand Candidate, Hit2 or (C-u) Find file\") (MODE-LINE helm-read-file-name-mode-line-string))" nil nil)
(defvar helm-mode nil "\ (defvar helm-mode nil "\
Non-nil if Helm mode is enabled. Non-nil if Helm mode is enabled.
See the command `helm-mode' for a description of this minor mode. See the `helm-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect; Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization') either customize it (see the info node `Easy Customization')
or call the function `helm-mode'.") or call the function `helm-mode'.")
@ -704,8 +714,8 @@ Note: This mode is incompatible with Emacs23.
;;;*** ;;;***
;;;### (autoloads nil "helm-net" "helm-net.el" (22404 60264 369873 ;;;### (autoloads nil "helm-net" "helm-net.el" (22454 5322 686265
;;;;;; 93000)) ;;;;;; 744000))
;;; Generated autoloads from helm-net.el ;;; Generated autoloads from helm-net.el
(autoload 'helm-surfraw "helm-net" "\ (autoload 'helm-surfraw "helm-net" "\
@ -725,8 +735,8 @@ Preconfigured `helm' for Wikipedia lookup with Wikipedia suggest.
;;;*** ;;;***
;;;### (autoloads nil "helm-org" "helm-org.el" (22404 60264 401873 ;;;### (autoloads nil "helm-org" "helm-org.el" (22454 5322 957272
;;;;;; 260000)) ;;;;;; 116000))
;;; 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" "\
@ -757,8 +767,8 @@ Preconfigured helm for org templates.
;;;*** ;;;***
;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22404 60264 ;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22454 5322
;;;;;; 361873 51000)) ;;;;;; 642264 709000))
;;; Generated autoloads from helm-regexp.el ;;; Generated autoloads from helm-regexp.el
(autoload 'helm-moccur-mode "helm-regexp" "\ (autoload 'helm-moccur-mode "helm-regexp" "\
@ -797,13 +807,14 @@ The prefix arg can be set before calling
;;;*** ;;;***
;;;### (autoloads nil "helm-ring" "helm-ring.el" (22404 60264 189872 ;;;### (autoloads nil "helm-ring" "helm-ring.el" (22454 5321 548238
;;;;;; 152000)) ;;;;;; 985000))
;;; Generated autoloads from helm-ring.el ;;; Generated autoloads from helm-ring.el
(defvar helm-push-mark-mode nil "\ (defvar helm-push-mark-mode nil "\
Non-nil if Helm-Push-Mark mode is enabled. Non-nil if Helm-Push-Mark mode is enabled.
See the command `helm-push-mark-mode' for a description of this minor mode. See the `helm-push-mark-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect; Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization') either customize it (see the info node `Easy Customization')
or call the function `helm-push-mark-mode'.") or call the function `helm-push-mark-mode'.")
@ -855,8 +866,8 @@ This command is useful when used with persistent action.
;;;*** ;;;***
;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22404 60264 ;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22454 5322
;;;;;; 277872 612000)) ;;;;;; 88251 682000))
;;; Generated autoloads from helm-semantic.el ;;; Generated autoloads from helm-semantic.el
(autoload 'helm-semantic "helm-semantic" "\ (autoload 'helm-semantic "helm-semantic" "\
@ -878,13 +889,14 @@ Fill in the symbol at point by default.
;;;*** ;;;***
;;;### (autoloads nil "helm-sys" "helm-sys.el" (22404 60264 297872 ;;;### (autoloads nil "helm-sys" "helm-sys.el" (22454 5322 223254
;;;;;; 717000)) ;;;;;; 856000))
;;; Generated autoloads from helm-sys.el ;;; Generated autoloads from helm-sys.el
(defvar helm-top-poll-mode nil "\ (defvar helm-top-poll-mode nil "\
Non-nil if Helm-Top-Poll mode is enabled. Non-nil if Helm-Top-Poll mode is enabled.
See the command `helm-top-poll-mode' for a description of this minor mode. See the `helm-top-poll-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect; Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization') either customize it (see the info node `Easy Customization')
or call the function `helm-top-poll-mode'.") or call the function `helm-top-poll-mode'.")
@ -913,8 +925,8 @@ Preconfigured helm for xrandr.
;;;*** ;;;***
;;;### (autoloads nil "helm-tags" "helm-tags.el" (22404 60264 245872 ;;;### (autoloads nil "helm-tags" "helm-tags.el" (22454 5321 897247
;;;;;; 444000)) ;;;;;; 191000))
;;; Generated autoloads from helm-tags.el ;;; Generated autoloads from helm-tags.el
(autoload 'helm-etags-select "helm-tags" "\ (autoload 'helm-etags-select "helm-tags" "\
@ -933,13 +945,14 @@ This function aggregates three sources of tag files:
;;;*** ;;;***
;;;### (autoloads nil "helm-utils" "helm-utils.el" (22404 60264 221872 ;;;### (autoloads nil "helm-utils" "helm-utils.el" (22454 5321 761243
;;;;;; 319000)) ;;;;;; 994000))
;;; Generated autoloads from helm-utils.el ;;; Generated autoloads from helm-utils.el
(defvar helm-popup-tip-mode nil "\ (defvar helm-popup-tip-mode nil "\
Non-nil if Helm-Popup-Tip mode is enabled. Non-nil if Helm-Popup-Tip mode is enabled.
See the command `helm-popup-tip-mode' for a description of this minor mode. See the `helm-popup-tip-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect; Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization') either customize it (see the info node `Easy Customization')
or call the function `helm-popup-tip-mode'.") or call the function `helm-popup-tip-mode'.")
@ -954,8 +967,7 @@ Show help-echo informations in a popup tip at end of line.
;;;*** ;;;***
;;;### (autoloads nil nil ("helm-easymenu.el" "helm-multi-match.el" ;;;### (autoloads nil nil ("helm-easymenu.el" "helm-multi-match.el"
;;;;;; "helm-pkg.el" "helm-plugin.el" "helm-types.el") (22404 60264 ;;;;;; "helm-pkg.el" "helm-types.el") (22454 5323 1273 151000))
;;;;;; 421892 158000))
;;;*** ;;;***

1
elpa/helm-20160711.1143/helm-bookmark.el → elpa/helm-20160818.623/helm-bookmark.el
View File

@ -480,6 +480,7 @@ than `w3m-browse-url' use it."
(defclass helm-bookmark-overwrite-inheritor (helm-source) ()) (defclass helm-bookmark-overwrite-inheritor (helm-source) ())
(defmethod helm--setup-source ((source helm-bookmark-overwrite-inheritor)) (defmethod helm--setup-source ((source helm-bookmark-overwrite-inheritor))
(call-next-method)
(setf (slot-value source 'action) (setf (slot-value source 'action)
(helm-append-at-nth (helm-append-at-nth
(remove '("Jump to BM other window" . helm-bookmark-jump-other-window) (remove '("Jump to BM other window" . helm-bookmark-jump-other-window)

47
elpa/helm-20160711.1143/helm-buffers.el → elpa/helm-20160818.623/helm-buffers.el
View File

@ -23,7 +23,6 @@
(require 'helm-utils) (require 'helm-utils)
(require 'helm-elscreen) (require 'helm-elscreen)
(require 'helm-grep) (require 'helm-grep)
(require 'helm-plugin)
(require 'helm-regexp) (require 'helm-regexp)
(require 'helm-help) (require 'helm-help)
@ -213,7 +212,7 @@ Only buffer names are fuzzy matched when this is enabled,
" A function with no arguments to create buffer list.") " A function with no arguments to create buffer list.")
(init :initform 'helm-buffers-list--init) (init :initform 'helm-buffers-list--init)
(candidates :initform helm-buffers-list-cache) (candidates :initform helm-buffers-list-cache)
(matchplugin :initform nil) (multimatch :initform nil)
(match :initform 'helm-buffers-match-function) (match :initform 'helm-buffers-match-function)
(persistent-action :initform 'helm-buffers-list-persistent-action) (persistent-action :initform 'helm-buffers-list-persistent-action)
(resume :initform (lambda () (resume :initform (lambda ()
@ -224,6 +223,7 @@ Only buffer names are fuzzy matched when this is enabled,
(keymap :initform helm-buffer-map) (keymap :initform helm-buffer-map)
(migemo :initform 'nomultimatch) (migemo :initform 'nomultimatch)
(volatile :initform t) (volatile :initform t)
(resume :initform (lambda () (setq helm-buffers-in-project-p nil)))
(help-message :initform 'helm-buffer-help-message) (help-message :initform 'helm-buffer-help-message)
(persistent-help (persistent-help
:initform :initform
@ -660,9 +660,10 @@ If REGEXP-FLAG is given use `query-replace-regexp'."
(defun helm-kill-marked-buffers (_ignore) (defun helm-kill-marked-buffers (_ignore)
(let* ((bufs (helm-marked-candidates)) (let* ((bufs (helm-marked-candidates))
(killed-bufs (cl-count-if 'kill-buffer bufs))) (killed-bufs (cl-count-if 'kill-buffer bufs)))
(with-helm-buffer (when (buffer-live-p helm-buffer)
(setq helm-marked-candidates nil (with-helm-buffer
helm-visible-mark-overlays nil)) (setq helm-marked-candidates nil
helm-visible-mark-overlays nil)))
(message "Killed %s buffer(s)" killed-bufs))) (message "Killed %s buffer(s)" killed-bufs)))
(defun helm-buffer-run-kill-buffers () (defun helm-buffer-run-kill-buffers ()
@ -735,17 +736,21 @@ If REGEXP-FLAG is given use `query-replace-regexp'."
(helm-exit-and-execute-action 'helm-ediff-marked-buffers-merge))) (helm-exit-and-execute-action 'helm-ediff-marked-buffers-merge)))
(put 'helm-buffer-run-ediff-merge 'helm-only t) (put 'helm-buffer-run-ediff-merge 'helm-only t)
(defun helm-buffers-persistent-kill-1 (buffer) (defun helm-buffers-persistent-kill-1 (buffer-or-name)
"Persistent action to kill buffer." "Persistent action to kill buffer."
(if (eql (get-buffer buffer) (get-buffer helm-current-buffer)) (let ((buf (get-buffer buffer-or-name)) helm-buf-or-cur)
(progn (if (or (and (eql buf (get-buffer helm-current-buffer))
(message "Can't kill `helm-current-buffer' without quitting session") (setq helm-buf-or-cur "helm-current-buffer"))
(sit-for 1)) (and (eql buf (get-buffer helm-buffer))
(with-current-buffer (get-buffer buffer) (setq helm-buf-or-cur "helm-buffer")))
(kill-buffer buffer)) (progn
(helm-delete-current-selection) (message "Can't kill `%s' without quitting session" helm-buf-or-cur)
(with-helm-temp-hook 'helm-after-persistent-action-hook (sit-for 1))
(helm-force-update (regexp-quote (helm-get-selection nil t)))))) (with-current-buffer buf
(kill-buffer buffer-or-name))
(helm-delete-current-selection)
(with-helm-temp-hook 'helm-after-persistent-action-hook
(helm-force-update (regexp-quote (helm-get-selection nil t)))))))
(defun helm-buffers--quote-truncated-buffer (buffer) (defun helm-buffers--quote-truncated-buffer (buffer)
(let ((bufname (and (bufferp buffer) (let ((bufname (and (bufferp buffer)
@ -765,9 +770,11 @@ If REGEXP-FLAG is given use `query-replace-regexp'."
do (progn (helm-preselect do (progn (helm-preselect
(format "^%s" (format "^%s"
(helm-buffers--quote-truncated-buffer b))) (helm-buffers--quote-truncated-buffer b)))
(when (y-or-n-p (format "kill buffer (%s)? " b)) (save-selected-window
(helm-buffers-persistent-kill-1 b)) (when (y-or-n-p (format "kill buffer (%s)? " b))
(message nil))) (helm-buffers-persistent-kill-1 b)))
(message nil)
(helm--remove-marked-and-update-mode-line b)))
(with-helm-buffer (with-helm-buffer
(setq helm-marked-candidates nil (setq helm-marked-candidates nil
helm-visible-mark-overlays nil)) helm-visible-mark-overlays nil))
@ -836,12 +843,12 @@ Can be used by any source that list buffers."
(cons 'helm-skip-boring-buffers (cons 'helm-skip-boring-buffers
(remove 'helm-shadow-boring-buffers (remove 'helm-shadow-boring-buffers
filter-attrs)) filter-attrs))
helm-source-buffers-list t) helm-source-buffers-list)
(helm-attrset 'filtered-candidate-transformer (helm-attrset 'filtered-candidate-transformer
(cons 'helm-shadow-boring-buffers (cons 'helm-shadow-boring-buffers
(remove 'helm-skip-boring-buffers (remove 'helm-skip-boring-buffers
filter-attrs)) filter-attrs))
helm-source-buffers-list t)) helm-source-buffers-list))
(helm-force-update)))) (helm-force-update))))
(put 'helm-buffers-toggle-show-hidden-buffers 'helm-only t) (put 'helm-buffers-toggle-show-hidden-buffers 'helm-only t)

0
elpa/helm-20160711.1143/helm-color.el → elpa/helm-20160818.623/helm-color.el
View File

1
elpa/helm-20160711.1143/helm-command.el → elpa/helm-20160818.623/helm-command.el
View File

@ -240,6 +240,7 @@ than the default which is OBARRAY."
:help-message 'helm-M-x-help-message :help-message 'helm-M-x-help-message
:keymap helm-M-x-map :keymap helm-M-x-map
:must-match t :must-match t
:match-part (lambda (c) (car (split-string c)))
:fuzzy helm-M-x-fuzzy-match :fuzzy helm-M-x-fuzzy-match
:nomark t :nomark t
:candidates-in-buffer t :candidates-in-buffer t

0
elpa/helm-20160711.1143/helm-config.el → elpa/helm-20160818.623/helm-config.el
View File

0
elpa/helm-20160711.1143/helm-dabbrev.el → elpa/helm-20160818.623/helm-dabbrev.el
View File

0
elpa/helm-20160711.1143/helm-easymenu.el → elpa/helm-20160818.623/helm-easymenu.el
View File

32
elpa/helm-20160711.1143/helm-elisp-package.el → elpa/helm-20160818.623/helm-elisp-package.el
View File

@ -59,6 +59,7 @@
;; properly (empty buffer) when called from lisp ;; properly (empty buffer) when called from lisp
;; with 'no-fetch (emacs-25 WA). ;; with 'no-fetch (emacs-25 WA).
(package-show-package-list) (package-show-package-list)
(when helm--force-updating-p (message "Refreshing packages list..."))
(list-packages helm-el-package--initialized-p)) (list-packages helm-el-package--initialized-p))
(setq helm-el-package--initialized-p t) (setq helm-el-package--initialized-p t)
(message nil)) (message nil))
@ -68,7 +69,7 @@
(setq helm-el-package--tabulated-list tabulated-list-entries) (setq helm-el-package--tabulated-list tabulated-list-entries)
(buffer-string))) (buffer-string)))
(setq helm-el-package--upgrades (helm-el-package-menu--find-upgrades)) (setq helm-el-package--upgrades (helm-el-package-menu--find-upgrades))
(if helm-force-updating-p (if helm--force-updating-p
(if helm-el-package--upgrades (if helm-el-package--upgrades
(message "%d package(s) can be upgraded, Refreshing packages list done" (message "%d package(s) can be upgraded, Refreshing packages list done"
(length helm-el-package--upgrades)) (length helm-el-package--upgrades))
@ -256,7 +257,11 @@
for name = (if (fboundp 'package-desc-name) for name = (if (fboundp 'package-desc-name)
(and id (package-desc-name id)) (and id (package-desc-name id))
(car id)) (car id))
for installed-p = (assq name package-alist) for desc = (package-desc-status id)
for built-in-p = (and (package-built-in-p name)
(not (member desc '("available" "new"
"installed" "dependency"))))
for installed-p = (member desc '("installed" "dependency"))
for upgrade-p = (assq name helm-el-package--upgrades) for upgrade-p = (assq name helm-el-package--upgrades)
for user-installed-p = (and (boundp 'package-selected-packages) for user-installed-p = (and (boundp 'package-selected-packages)
(memq name package-selected-packages)) (memq name package-selected-packages))
@ -267,15 +272,25 @@
2 (+ (length (symbol-name name)) 2) 2 (+ (length (symbol-name name)) 2)
'face 'font-lock-variable-name-face c)) 'face 'font-lock-variable-name-face c))
for cand = (cons c (car (split-string c))) for cand = (cons c (car (split-string c)))
when (or (and upgrade-p when (or (and built-in-p
(eq helm-el-package--show-only 'built-in))
(and upgrade-p
(eq helm-el-package--show-only 'upgrade)) (eq helm-el-package--show-only 'upgrade))
(and installed-p (and installed-p
(eq helm-el-package--show-only 'installed)) (eq helm-el-package--show-only 'installed))
(and (not installed-p) (and (not installed-p)
(not built-in-p)
(eq helm-el-package--show-only 'uninstalled)) (eq helm-el-package--show-only 'uninstalled))
(eq helm-el-package--show-only 'all)) (eq helm-el-package--show-only 'all))
collect cand)) collect cand))
(defun helm-el-package-show-built-in ()
(interactive)
(with-helm-alive-p
(setq helm-el-package--show-only 'built-in)
(helm-update)))
(put 'helm-el-package-show-built-in 'helm-only t)
(defun helm-el-package-show-upgrade () (defun helm-el-package-show-upgrade ()
(interactive) (interactive)
(with-helm-alive-p (with-helm-alive-p
@ -310,6 +325,7 @@
(define-key map (kbd "M-I") 'helm-el-package-show-installed) (define-key map (kbd "M-I") 'helm-el-package-show-installed)
(define-key map (kbd "M-O") 'helm-el-package-show-uninstalled) (define-key map (kbd "M-O") 'helm-el-package-show-uninstalled)
(define-key map (kbd "M-U") 'helm-el-package-show-upgrade) (define-key map (kbd "M-U") 'helm-el-package-show-upgrade)
(define-key map (kbd "M-B") 'helm-el-package-show-built-in)
(define-key map (kbd "M-A") 'helm-el-package-show-all) (define-key map (kbd "M-A") 'helm-el-package-show-all)
(define-key map (kbd "C-c i") 'helm-el-run-package-install) (define-key map (kbd "C-c i") 'helm-el-run-package-install)
(define-key map (kbd "C-c r") 'helm-el-run-package-reinstall) (define-key map (kbd "C-c r") 'helm-el-run-package-reinstall)
@ -333,14 +349,18 @@
("Visit homepage" . helm-el-package-visit-homepage))))) ("Visit homepage" . helm-el-package-visit-homepage)))))
(defun helm-el-package--action-transformer (actions candidate) (defun helm-el-package--action-transformer (actions candidate)
(let* ((pkg-desc (get-text-property (let* ((pkg-desc (get-text-property 0 'tabulated-list-id candidate))
0 'tabulated-list-id candidate)) (status (package-desc-status pkg-desc))
(pkg-name (package-desc-name pkg-desc)) (pkg-name (package-desc-name pkg-desc))
(built-in (and (package-built-in-p pkg-name)
(not (member status '("available" "new"
"installed" "dependency")))))
(acts (if helm-el-package--upgrades (acts (if helm-el-package--upgrades
(append actions '(("Upgrade all packages" (append actions '(("Upgrade all packages"
. helm-el-package-upgrade-all-action))) . helm-el-package-upgrade-all-action)))
actions))) actions)))
(cond ((and (package-installed-p pkg-name) (cond (built-in '(("Describe package" . helm-el-package-describe)))
((and (package-installed-p pkg-name)
(cdr (assq pkg-name helm-el-package--upgrades))) (cdr (assq pkg-name helm-el-package--upgrades)))
(append '(("Upgrade package(s)" . helm-el-package-upgrade) (append '(("Upgrade package(s)" . helm-el-package-upgrade)
("Uninstall package(s)" . helm-el-package-uninstall)) acts)) ("Uninstall package(s)" . helm-el-package-uninstall)) acts))

15
elpa/helm-20160711.1143/helm-elisp.el → elpa/helm-20160818.623/helm-elisp.el
View File

@ -304,6 +304,7 @@ Return a cons \(beg . end\)."
:data helm-lisp-completion--cache :data helm-lisp-completion--cache
:persistent-action 'helm-lisp-completion-persistent-action :persistent-action 'helm-lisp-completion-persistent-action
:nomark t :nomark t
:match-part (lambda (c) (car (split-string c)))
:fuzzy-match helm-lisp-fuzzy-completion :fuzzy-match helm-lisp-fuzzy-completion
:persistent-help (helm-lisp-completion-persistent-help) :persistent-help (helm-lisp-completion-persistent-help)
:filtered-candidate-transformer :filtered-candidate-transformer
@ -673,13 +674,13 @@ i.e the `symbol-name' of any existing symbol."
;; ;;
;; ;;
(defvar helm-source-advice (defvar helm-source-advice
'((name . "Function Advice") (helm-build-sync-source "Function Advice"
(candidates . helm-advice-candidates) :candidates 'helm-advice-candidates
(action ("Toggle Enable/Disable" . helm-advice-toggle)) :action (helm-make-actions "Toggle Enable/Disable" 'helm-advice-toggle)
(persistent-action . helm-advice-persistent-action) :persistent-action 'helm-advice-persistent-action
(nomark) :nomark t
(multiline) :multiline t
(persistent-help . "Describe function / C-u C-j: Toggle advice"))) :persistent-help "Describe function / C-u C-j: Toggle advice"))
(defun helm-advice-candidates () (defun helm-advice-candidates ()
(cl-loop for (fname) in ad-advised-functions (cl-loop for (fname) in ad-advised-functions

0
elpa/helm-20160711.1143/helm-elscreen.el → elpa/helm-20160818.623/helm-elscreen.el
View File

0
elpa/helm-20160711.1143/helm-eshell.el → elpa/helm-20160818.623/helm-eshell.el
View File

0
elpa/helm-20160711.1143/helm-eval.el → elpa/helm-20160818.623/helm-eval.el
View File

0
elpa/helm-20160711.1143/helm-external.el → elpa/helm-20160818.623/helm-external.el
View File

88
elpa/helm-20160711.1143/helm-files.el → elpa/helm-20160818.623/helm-files.el
View File

@ -260,6 +260,14 @@ see `helm-ff-guess-ffap-filenames' for this."
:group 'helm-files :group 'helm-files
:type 'boolean) :type 'boolean)
(defcustom helm-find-file-ignore-thing-at-point nil
"Use only `default-directory' as default input in `helm-find-files'.
I.e text under cursor in `current-buffer' is ignored.
Note that when non-nil you will be unable to complete filename at point
in `current-buffer'."
:group 'helm-files
:type 'boolean)
(defcustom helm-substitute-in-filename-stay-on-remote nil (defcustom helm-substitute-in-filename-stay-on-remote nil
"Don't switch back to local filesystem when expanding pattern with / or ~/." "Don't switch back to local filesystem when expanding pattern with / or ~/."
:group 'helm-files :group 'helm-files
@ -2061,7 +2069,8 @@ Note that only existing directories are saved here."
(helm-delete-file (helm-delete-file
c helm-ff-signal-error-on-dot-files 'synchro) c helm-ff-signal-error-on-dot-files 'synchro)
(helm-delete-current-selection) (helm-delete-current-selection)
(message nil))))) (message nil)
(helm--remove-marked-and-update-mode-line c)))))
(with-helm-buffer (with-helm-buffer
(setq helm-marked-candidates nil (setq helm-marked-candidates nil
helm-visible-mark-overlays nil)) helm-visible-mark-overlays nil))
@ -3216,6 +3225,19 @@ Set `recentf-max-saved-items' to a bigger value if default is too small.")
:ff-transformer-show-only-basename nil :ff-transformer-show-only-basename nil
:buffer "*helm browse project*")) :buffer "*helm browse project*"))
(defvar helm-browse-project-history nil)
;;;###autoload
(defun helm-projects-history ()
(interactive)
(helm :sources
(helm-build-sync-source "Project history"
:candidates helm-browse-project-history
:action (lambda (candidate)
(with-helm-default-directory candidate
(helm-browse-project nil))))
:buffer "*helm browse project history*"))
;;;###autoload ;;;###autoload
(defun helm-browse-project (arg) (defun helm-browse-project (arg)
"Preconfigured helm to browse projects. "Preconfigured helm to browse projects.
@ -3241,24 +3263,31 @@ and
helm-type-buffer-actions) helm-type-buffer-actions)
helm-type-buffer-actions)) helm-type-buffer-actions))
(helm-buffers-in-project-p t)) (helm-buffers-in-project-p t))
(cond ((and (require 'helm-ls-git nil t) (cl-flet ((push-to-hist (root)
(fboundp 'helm-ls-git-root-dir) (setq helm-browse-project-history
(helm-ls-git-root-dir)) (cons root (delete root helm-browse-project-history)))))
(helm-ls-git-ls)) (helm-acond ((and (require 'helm-ls-git nil t)
((and (require 'helm-ls-hg nil t) (fboundp 'helm-ls-git-root-dir)
(fboundp 'helm-hg-root) (helm-ls-git-root-dir))
(helm-hg-root)) (push-to-hist it)
(helm-hg-find-files-in-project)) (helm-ls-git-ls))
((and (require 'helm-ls-svn nil t) ((and (require 'helm-ls-hg nil t)
(fboundp 'helm-ls-svn-root-dir) (fboundp 'helm-hg-root)
(helm-ls-svn-root-dir)) (helm-hg-root))
(helm-ls-svn-ls)) (push-to-hist it)
(t (let ((cur-dir (helm-browse-project-get--root-dir (helm-hg-find-files-in-project))
(helm-current-directory)))) ((and (require 'helm-ls-svn nil t)
(if (or arg (gethash cur-dir helm--browse-project-cache)) (fboundp 'helm-ls-svn-root-dir)
(helm-browse-project-find-files cur-dir (equal arg '(16))) (helm-ls-svn-root-dir))
(helm :sources (helm-browse-project-build-buffers-source cur-dir) (push-to-hist it)
:buffer "*helm browse project*"))))))) (helm-ls-svn-ls))
((helm-browse-project-get--root-dir (helm-current-directory))
(if (or arg (gethash it helm--browse-project-cache))
(progn
(push-to-hist it)
(helm-browse-project-find-files it (equal arg '(16))))
(helm :sources (helm-browse-project-build-buffers-source it)
:buffer "*helm browse project*")))))))
(defun helm-browse-project-get--root-dir (directory) (defun helm-browse-project-get--root-dir (directory)
(cl-loop with dname = (file-name-as-directory directory) (cl-loop with dname = (file-name-as-directory directory)
@ -3576,22 +3605,25 @@ Don't call it from programs, use `helm-find-files-1' instead.
This is the starting point for nearly all actions you can do on files." This is the starting point for nearly all actions you can do on files."
(interactive "P") (interactive "P")
(let* ((hist (and arg helm-ff-history (helm-find-files-history))) (let* ((hist (and arg helm-ff-history (helm-find-files-history)))
(default-input (or hist (helm-find-files-initial-input))) (smart-input (or hist (helm-find-files-initial-input)))
(input (cond ((and (eq major-mode 'org-agenda-mode) (default-input (expand-file-name (helm-current-directory)))
(input (cond (helm-find-file-ignore-thing-at-point
default-input)
((and (eq major-mode 'org-agenda-mode)
org-directory org-directory
(not default-input)) (not smart-input))
(expand-file-name org-directory)) (expand-file-name org-directory))
((and (eq major-mode 'dired-mode) default-input) ((and (eq major-mode 'dired-mode) smart-input)
(file-name-directory default-input)) (file-name-directory smart-input))
((and (not (string= default-input "")) ((and (not (string= smart-input ""))
default-input)) smart-input))
(t (expand-file-name (helm-current-directory))))) (t default-input)))
(input-as-presel (null (nth 0 (file-attributes input)))) (input-as-presel (null (nth 0 (file-attributes input))))
(presel (helm-aif (or hist (presel (helm-aif (or hist
(and input-as-presel input) (and input-as-presel input)
(buffer-file-name (current-buffer)) (buffer-file-name (current-buffer))
(and (eq major-mode 'dired-mode) (and (eq major-mode 'dired-mode)
default-input)) smart-input))
(if helm-ff-transformer-show-only-basename (if helm-ff-transformer-show-only-basename
(helm-basename it) it)))) (helm-basename it) it))))
(set-text-properties 0 (length input) nil input) (set-text-properties 0 (length input) nil input)

0
elpa/helm-20160711.1143/helm-font.el → elpa/helm-20160818.623/helm-font.el
View File

0
elpa/helm-20160711.1143/helm-grep.el → elpa/helm-20160818.623/helm-grep.el
View File

Some files were not shown because too many files have changed in this diff Show More