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

Update zone-nyan package

This commit is contained in:
Gergely Polonkai 2016-10-14 19:01:08 +02:00
parent e2f9416bde
commit 3e2daeaea5
4 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
elpa/zone-nyan-20160928.2303/zone-nyan-pkg.el
View File

@ -1,2 +0,0 @@
;;; -*- no-byte-compile: t -*-
(define-package "zone-nyan" "20160928.2303" "Zone out with nyan cat" '((esxml "0.3.1")) :url "https://github.com/wasamasa/zone-nyan" :keywords '("zone"))

4
elpa/zone-nyan-20160928.2303/zone-nyan-autoloads.el → elpa/zone-nyan-20161014.154/zone-nyan-autoloads.el
View File

@ -3,8 +3,8 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "zone-nyan" "zone-nyan.el" (22514 17651 220674 ;;;### (autoloads nil "zone-nyan" "zone-nyan.el" (22529 3780 596675
;;;;;; 148000)) ;;;;;; 963000))
;;; Generated autoloads from zone-nyan.el ;;; Generated autoloads from zone-nyan.el
(autoload 'zone-nyan "zone-nyan" "\ (autoload 'zone-nyan "zone-nyan" "\

2
elpa/zone-nyan-20161014.154/zone-nyan-pkg.el Normal file
View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "zone-nyan" "20161014.154" "Zone out with nyan cat" '((esxml "0.3.1")) :url "https://github.com/wasamasa/zone-nyan" :keywords '("zone"))

14
elpa/zone-nyan-20160928.2303/zone-nyan.el → elpa/zone-nyan-20161014.154/zone-nyan.el
View File

@ -4,7 +4,7 @@
;; Author: Vasilij Schneidermann <v.schneidermann@gmail.com> ;; Author: Vasilij Schneidermann <v.schneidermann@gmail.com>
;; URL: https://github.com/wasamasa/zone-nyan ;; URL: https://github.com/wasamasa/zone-nyan
;; Package-Version: 20160928.2303 ;; Package-Version: 20161014.154
;; Version: 0.2.2 ;; Version: 0.2.2
;; Package-Requires: ((esxml "0.3.1")) ;; Package-Requires: ((esxml "0.3.1"))
;; Keywords: zone ;; Keywords: zone
@ -744,13 +744,17 @@ It fires every 100ms.")
(defvar zone-nyan-progress 0 (defvar zone-nyan-progress 0
"Holds the current progress of the timer.") "Holds the current progress of the timer.")
(defun zone-nyan-report-progress ()
"Report current nyan progress."
(message "You've nyaned for %.1f seconds"
(/ zone-nyan-progress 10.0)))
(defun zone-nyan-progress () (defun zone-nyan-progress ()
"Progress function. "Progress function.
It informs the user just how many seconds they've wasted on It informs the user just how many seconds they've wasted on
watching nyan cat run." watching nyan cat run."
(unless zone-nyan-hide-progress (unless zone-nyan-hide-progress
(message "You've nyaned for %.1f seconds" (zone-nyan-report-progress))
(/ zone-nyan-progress 10.0)))
(setq zone-nyan-progress (1+ zone-nyan-progress))) (setq zone-nyan-progress (1+ zone-nyan-progress)))
;;;###autoload ;;;###autoload
@ -785,7 +789,9 @@ watching nyan cat run."
(when zone-nyan-bg-music-process (when zone-nyan-bg-music-process
(delete-process zone-nyan-bg-music-process)) (delete-process zone-nyan-bg-music-process))
(when zone-nyan-progress-timer (when zone-nyan-progress-timer
(cancel-timer zone-nyan-progress-timer))))) (cancel-timer zone-nyan-progress-timer)
(when zone-nyan-hide-progress
(zone-nyan-report-progress))))))
;;;###autoload ;;;###autoload
(defun zone-nyan-preview () (defun zone-nyan-preview ()