楽しい勤怠管理のための設定です。

kintai.org

注意書き(この部分は必要ないのでコピーする場合は消しましょう)

• コピペ時はRawからもっていってください。
• #+BEGIN〜 の部分で kintai-matome というブックマークを設定しておかないとうまく動きません。
  • 登録方法: C-x r m kintai-matome
• 同様に、適当な場所で C-x r m kintai をしておきましょう。

DAY	YOKU KITA	YOKU HATARITA	CLOCK
* TOTAL TIME

TOTAL TIME

org.el

;; 勤怠登録関係のキーバインド。ブックマーク名はお好みで。
(global-set-key "\C-cc" 'org-capture)
(global-set-key "\C-xxt" '(lambda() (interactive) (bookmark-jump "kintai")))
(global-set-key "\C-xxo" '(lambda() (interactive) (bookmark-jump "kintai-matome")))

;; 出社用org-captureテンプレート
(setq org-capture-templates
      '(
        ;; お好みのorgファイルの場所を設定してください
        ("s" "シュッシャ！" entry (file "~/org/kintai.org")
         "* %u\n CLOCK: %U--"
         :immediate-finish t
         )))

;; 勤怠系のアレコレをする
(defun kintai-hook ()
  (when (string= "~/org/kintai.org" (bookmark-get-filename "org-capture-last-stored"))
    (bookmark-set-position "kintai" (+ 51 (bookmark-get-position "org-capture-last-stored")))
    (bookmark-set-filename "kintai" (bookmark-get-filename "org-capture-last-stored"))
    (show-cat)))

;; 🐱
(defun show-cat ()
  (switch-to-buffer "*Cat*")
  ;; いいかんじの画像に置き換えてください
  (insert-image-file "~/images/cat.jpg")
  ;; いいかんじの音に置き換えてください
  (run-with-timer 0.1 nil '(lambda()
                             (call-process-shell-command "afplay ~/sounds/cat.mp3")))
  (run-with-timer 1.5 nil '(lambda()
                           (kill-buffer "*Cat*"))))

;; キャプチャが実行されるタイミングで呼ばれるフック
(add-hook 'org-capture-after-finalize-hook 'kintai-hook)