Emacs 番茄鍾 pomidor

Windows 10

pomidor：https://github.com/TatriX/pomidor

alert ：https://github.com/jwiegley/alert

toaster：https://github.com/nels-o/toaster

在Emacs裏能夠使用番茄工做法，這裏用的是pomidor，由於這個能夠記錄一共用了多少個番茄鍾。

當25分鐘到了以後能夠用聲音和彈出框進行提示，聲音文件能夠自定義，彈出框默認是在minibuffer裏顯示，固然也是能夠用其餘更醒目的方式的，例如toaster。

toaster下載後須要添加到操做系統的環境變量PATH裏，在Path後面加上：

F:\home\toaster\toast\bin\Release

根據實際狀況更改位置。

 

如下是配置：

;;; init-pomidor.el --- pomidor
;;; https://github.com/TatriX/pomidor
;;; Commentary:
;;; Code:

(use-package pomidor
  :ensure t
  :defer t
  :init
  (global-set-key "\M-p" #'pomidor)
  :config
  (setq
   ;;pomidor-sound-tick nil ;; nil取消聲音
   ;;pomidor-sound-tack nil ;; nil取消聲音
   pomidor-sound-tick (expand-file-name (concat (getenv "HOME") "/myemacs/resource/tick.wav"))
   pomidor-sound-tack (expand-file-name (concat (getenv "HOME") "/myemacs/resource/tack.wav"))
   pomidor-sound-overwork (expand-file-name (concat (getenv "HOME") "/myemacs/resource/ring.wav"))
   pomidor-sound-break-over (expand-file-name (concat (getenv "HOME") "/myemacs/resource/rest.wav"))
   )

  ;; log
  ;; https://github.com/TatriX/pomidor/issues/20
  (defadvice pomidor-stop (before pomidor-save-log activate)
    "Log pomidor data to the ~/pomidor-log.csv file.
     Columns: date,work,overwork,break"
    (write-region (format "%s,%d,%d,%d\n"
                          (format-time-string "%Y/%m/%d")
                          (/ (time-to-seconds (pomidor-work-duration)) 60)
                          (/ (time-to-seconds (or (pomidor-overwork-duration) 0)) 60)
                          (/ (time-to-seconds (or (pomidor-break-duration) 0)) 60))
                  nil
                  "~/pomidor-log.csv"
                  'append))

  (cond
   ((eq system-type 'windows-nt)
    (setq alert-default-style 'toaster)
    )
   ((eq system-type 'gnu/linux)
    (setq alert-default-style 'libnotify)
    ))
  )
(provide 'init-pomidor)
;;; init-pomidor.el ends here

 

toaster下載：https://files.cnblogs.com/files/ibgo/toaster-master.zip

-- END --