Add wakatime-mode

elpa/wakatime-mode-20160417.109/wakatime-mode-autoloads.el

@@ -0,0 +1,43 @@
+;;; wakatime-mode-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
+
+;;;### (autoloads nil "wakatime-mode" "wakatime-mode.el" (22297 21797
+;;;;;;  788718 327000))
+;;; Generated autoloads from wakatime-mode.el
+
+(autoload 'wakatime-mode "wakatime-mode" "\
+Toggle WakaTime (WakaTime mode).
+
+\(fn &optional ARG)" t nil)
+
+(defvar global-wakatime-mode nil "\
+Non-nil if Global-Wakatime mode is enabled.
+See the command `global-wakatime-mode' for a description of this minor mode.
+Setting this variable directly does not take effect;
+either customize it (see the info node `Easy Customization')
+or call the function `global-wakatime-mode'.")
+
+(custom-autoload 'global-wakatime-mode "wakatime-mode" nil)
+
+(autoload 'global-wakatime-mode "wakatime-mode" "\
+Toggle Wakatime mode in all buffers.
+With prefix ARG, enable Global-Wakatime mode if ARG is positive;
+otherwise, disable it.  If called from Lisp, enable the mode if
+ARG is omitted or nil.
+
+Wakatime mode is enabled in all buffers where
+`(lambda nil (wakatime-mode 1))' would do it.
+See `wakatime-mode' for more information on Wakatime mode.
+
+\(fn &optional ARG)" t nil)
+
+;;;***
+
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; End:
+;;; wakatime-mode-autoloads.el ends here

elpa/wakatime-mode-20160417.109/wakatime-mode-pkg.el

@@ -0,0 +1 @@
+(define-package "wakatime-mode" "20160417.109" "Automatic time tracking extension for WakaTime" 'nil :keywords '("calendar" "comm"))

elpa/wakatime-mode-20160417.109/wakatime-mode.el

@@ -0,0 +1,256 @@
+;;; wakatime-mode.el --- Automatic time tracking extension for WakaTime
+
+;; Copyright (C) 2013  Gabor Torok <gabor@20y.hu>
+
+;; Author: Gabor Torok <gabor@20y.hu>
+;; Maintainer: Alan Hamlett <alan@wakatime.com>
+;; Website: https://wakatime.com
+;; Keywords: calendar, comm
+;; Package-Version: 20160417.109
+;; Version: 1.0.2
+
+;; 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:
+
+;; Enable WakaTime for the current buffer by invoking
+;; `wakatime-mode'. If you wish to activate it globally, use
+;; `global-wakatime-mode'.
+
+;; Set variable `wakatime-api-key' to your API key. Point
+;; `wakatime-cli-path' to the absolute path of the CLI script
+;; (wakatime-cli.py).
+
+;;; Code:
+
+(defconst wakatime-version "1.0.2")
+(defconst wakatime-user-agent "emacs-wakatime")
+(defvar wakatime-noprompt nil)
+(defvar wakatime-init-started nil)
+(defvar wakatime-init-finished nil)
+(defvar wakatime-python-path nil)
+
+(defgroup wakatime nil
+  "Customizations for WakaTime"
+  :group 'convenience
+  :prefix "wakatime-"
+)
+
+(defcustom wakatime-api-key nil
+  "API key for WakaTime."
+  :type 'string
+  :group 'wakatime
+)
+
+(defcustom wakatime-cli-path nil
+  "Path of CLI client for WakaTime."
+  :type 'string
+  :group 'wakatime
+)
+
+(defcustom wakatime-python-bin "python"
+  "Path of Python binary."
+  :type 'string
+  :group 'wakatime
+)
+
+(defun wakatime-guess-actual-script-path (path)
+  (let ((true-path (file-truename path)))
+    (cond
+     ((string-match-p "\\.pyenv" true-path) ; pyenv
+      (with-temp-buffer
+        (call-process "pyenv" nil t nil "which" "wakatime")
+        (delete-char -1) ; delete newline at the end of output
+        (buffer-string)))
+     ((string-match-p "Cellar" true-path)  ; Homebrew
+      (let* ((libexec (format "%slibexec/" (file-name-directory (directory-file-name (file-name-directory true-path)))))
+             (python-path (format "%slib/python2.7/site-packages" libexec)))
+        (setq wakatime-python-path python-path)
+        (format "%sbin/wakatime" libexec)))
+     (t path))))
+
+(defun wakatime-init ()
+  (unless wakatime-init-started
+    (setq wakatime-init-started t)
+    (when (or (not wakatime-api-key) (string= "" wakatime-api-key))
+      (wakatime-prompt-api-key)
+    )
+    (when (null wakatime-cli-path)
+      (customize-set-variable 'wakatime-cli-path
+                              (wakatime-guess-actual-script-path (executable-find "wakatime")))
+    )
+    (when (or (not wakatime-cli-path) (not (file-exists-p wakatime-cli-path)))
+      (wakatime-prompt-cli-path)
+    )
+    (when (or (not wakatime-python-bin) (not (wakatime-python-exists wakatime-python-bin)))
+      (wakatime-prompt-python-bin)
+    )
+    (setq wakatime-init-finished t)
+  )
+)
+
+(defun wakatime-prompt-api-key ()
+  "Prompt user for api key."
+  (when (and (= (recursion-depth) 0) (not wakatime-noprompt))
+    (setq wakatime-noprompt t)
+    (let ((api-key (read-string "WakaTime API key: ")))
+      (customize-set-variable 'wakatime-api-key api-key)
+      (customize-save-customized)
+    )
+    (setq wakatime-noprompt nil)
+  )
+)
+
+(defun wakatime-prompt-cli-path ()
+  "Prompt user for cli path."
+  (when (and (= (recursion-depth) 0) (not wakatime-noprompt))
+    (setq wakatime-noprompt t)
+    (let ((cli-path (read-file-name "WakaTime CLI script path: ")))
+      (customize-set-variable 'wakatime-cli-path cli-path)
+      (customize-save-customized)
+    )
+    (setq wakatime-noprompt nil)
+  )
+)
+
+(defun wakatime-prompt-python-bin ()
+  "Prompt user for path to python binary."
+  (when (and (= (recursion-depth) 0) (not wakatime-noprompt))
+    (setq wakatime-noprompt t)
+    (let ((python-bin (read-string "Path to python binary: ")))
+      (customize-set-variable 'wakatime-python-bin python-bin)
+      (customize-save-customized)
+    )
+    (setq wakatime-noprompt nil)
+  )
+  nil
+)
+
+(defun wakatime-python-exists (location)
+  "Check if python exists in the specified path location."
+  (= (condition-case nil (call-process location nil nil nil "--version") (error 1)) 0)
+)
+
+(defun wakatime-client-command (savep)
+  "Return client command executable and arguments.
+   Set SAVEP to non-nil for write action."
+  (format "%s %s --file \"%s\" %s --plugin %s/%s --key %s --time %.2f"
+    wakatime-python-bin
+    wakatime-cli-path
+    (buffer-file-name (current-buffer))
+    (if savep "--write" "")
+    wakatime-user-agent
+    wakatime-version
+    wakatime-api-key
+    (float-time)
+  )
+)
+
+(defun wakatime-call (command)
+  "Call WakaTime COMMAND."
+  (let*
+    (
+      (process-environment (if wakatime-python-path
+                               (cons (format "PYTHONPATH=%s" wakatime-python-path) process-environment)
+                             process-environment))
+      (process
+        (start-process
+          "Shell"
+          (generate-new-buffer " *WakaTime messages*")
+          shell-file-name
+          shell-command-switch
+          command
+        )
+      )
+    )
+
+    (set-process-sentinel process
+      (lambda (process signal)
+        (when (memq (process-status process) '(exit signal))
+          (kill-buffer (process-buffer process))
+          (let ((exit-status (process-exit-status process)))
+            (when (and (not (= 0 exit-status)) (not (= 102 exit-status)))
+              (error "WakaTime Error (%s)" exit-status)
+            )
+          )
+        )
+      )
+    )
+
+    (set-process-query-on-exit-flag process nil)
+  )
+)
+
+(defun wakatime-ping ()
+  "Send ping notice to WakaTime."
+  (when (buffer-file-name (current-buffer))
+    (wakatime-call (wakatime-client-command nil))))
+
+(defun wakatime-save ()
+  "Send save notice to WakaTime."
+  (when (buffer-file-name (current-buffer))
+    (wakatime-call (wakatime-client-command t))))
+
+(defun wakatime-bind-hooks ()
+  "Watch for activity in buffers."
+  (add-hook 'after-save-hook 'wakatime-save nil t)
+  (add-hook 'auto-save-hook 'wakatime-save nil t)
+  (add-hook 'first-change-hook 'wakatime-ping nil t)
+)
+
+(defun wakatime-unbind-hooks ()
+  "Stop watching for activity in buffers."
+  (remove-hook 'after-save-hook 'wakatime-save t)
+  (remove-hook 'auto-save-hook 'wakatime-save t)
+  (remove-hook 'first-change-hook 'wakatime-ping t)
+)
+
+(defun wakatime-turn-on (defer)
+  "Turn on WakaTime."
+  (if defer
+    (run-at-time "1 sec" nil 'wakatime-turn-on nil)
+    (let ()
+      (wakatime-init)
+      (if wakatime-init-finished
+        (wakatime-bind-hooks)
+        (run-at-time "1 sec" nil 'wakatime-turn-on nil)
+      )
+    )
+  )
+)
+
+(defun wakatime-turn-off ()
+  "Turn off WakaTime."
+  (wakatime-unbind-hooks)
+)
+
+;;;###autoload
+(define-minor-mode wakatime-mode
+  "Toggle WakaTime (WakaTime mode)."
+  :lighter    " waka"
+  :init-value nil
+  :global     nil
+  :group      'wakatime
+  (cond
+    (noninteractive (setq wakatime-mode nil))
+    (wakatime-mode (wakatime-turn-on t))
+    (t (wakatime-turn-off))
+  )
+)
+
+;;;###autoload
+(define-globalized-minor-mode global-wakatime-mode wakatime-mode (lambda () (wakatime-mode 1)))
+
+(provide 'wakatime-mode)
+;;; wakatime-mode.el ends here

init.el

@@ -28,6 +28,7 @@
  '(helm-gtags-ignore-case t)
  '(helm-gtags-path-style (quote relative))
  '(inhibit-startup-screen t)
+ '(jekyll-directory "~/Projektek/jekyll/gergely.polonkai.eu")
  '(nxml-attribute-indent 4)
  '(nxml-child-indent 2)
  '(nxml-outline-child-indent 4)
@@ -46,7 +47,7 @@
  '(sgml-basic-offset 4)
  '(show-trailing-whitespace t)
  '(tab-width 4)
- '(jekyll-directory "~/Projektek/jekyll/gergely.polonkai.eu"))
+ '(wakatime-api-key "3f97611e-c959-4ce3-a526-bf0241307e17"))
 
 (setq magit-auto-revert-mode nil)
 (setq magit-last-seen-setup-instructions "1.4.0")
@@ -58,6 +59,7 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
+ '(default ((t (:family "Hack" :foundry "simp" :slant normal :weight normal :height 98 :width normal))))
  '(hl-line ((t (:inherit nil :background "gray25"))))
  '(trailing-whitespace ((t (:inherit nil :background "red1"))))
  '(whitespace-line ((t (:inherit nil :background "orange")))))
@@ -66,6 +68,7 @@
 
 ; Nyanyanyanyanya
 (add-hook 'after-init-hook 'nyan-mode)
+(add-hook 'after-init-hook 'global-wakatime-mode)
 (require 'move-line)
 (require 'whitespace)
 (require 'rcirc)