switch-project.el

.gitignore

*.elc

README.org

kpt.el

https://gist.github.com/TakesxiSximada/d451221dc2a280b7e35

フェーズ	時間(分)	開始	終了	備考
Remember	2	0	2
休憩	1	2	3
KEEP	5	3	8
休憩	1	8	9
PROBREM	5	9	14
休憩	1	14	15
TRY	11	15	26	深堀りなどを含めると時間がかかる
休憩	1	26	27
CHOICE	3	27	30
合計	30		30

kpt.el

(defvar kpt-timers nil)

(defun kpt ()
  (interactive)

  (setq kpt-timers
	(list
	  (run-at-time (* 60  0) nil #'message "[KPT] Hi, Let's start KTP!! ")
	  (run-at-time (* 60  0) nil #'message "[KPT][Remember] sart        ")
	  (run-at-time (* 60  2) nil #'message "[KPT][Remember] done        ")
	  (run-at-time (* 60  3) nil #'message "[KPT][KEEP    ] start       ")
	  (run-at-time (* 60  8) nil #'message "[KPT][KEEP    ] done        ")
	  (run-at-time (* 60  9) nil #'message "[KPT][PROBREM ] start       ")
	  (run-at-time (* 60 14) nil #'message "[KPT][PROBREM ] done        ")
	  (run-at-time (* 60 15) nil #'message "[KPT][TRY     ] start       ")
	  (run-at-time (* 60 26) nil #'message "[KPT][TRY     ] done        ")
	  (run-at-time (* 60 27) nil #'message "[KPT][CHOICE  ] start       ")
	  (run-at-time (* 60 30) nil #'message "[KPT][CHOICE  ] done        ")
	  (run-at-time (* 60 30) nil #'message "[KPT] Awesome!! You got it!!")
	  )))

(provide 'kpt)