2024-10-01 (Tue)

2024-10-02 (Wed)

2024-10-03 (Thu)

2024-10-04 (Fri)

2024-10-05 (Sat)

2024-10-06 (Sun)

2024-10-07 (Mon)

2024-10-08 (Tue)

2024-10-09 (Wed)

2024-10-10 (Thu)

2024-10-11 (Fri)

2024-10-12 (Sat)

2024-10-13 (Sun)

2024-10-14 (Mon)

2024-10-15 (Tue)

2024-10-16 (Wed)

2024-10-17 (Thu)

2024-10-18 (Fri)

2024-10-19 (Sat)

2024-10-20 (Sun)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; my/mailcheck.el
;;
(defun my/mailcheck ()
  "show unread mails if any"
  (interactive)
  (shell-command-to-string "mbsync sakura")
  (shell-command-to-string "notmuch new")
  (setq mails (substring (shell-command-to-string "notmuch count tag:unread") 0 -1))
  (if (equal "0" mails)
      (message "No mail")
    (notmuch-search "tag:unread")
    (message "%s unread" mails)
    )
  )

2024-10-21 (Mon)

2024-10-22 (Tue)

2024-10-23 (Wed)

2024-10-24 (Thu)

2024-10-25 (Fri)

2024-10-26 (Sat)

2024-10-27 (Sun)

2024-10-28 (Mon)

2024-10-29 (Tue)

2024-10-30 (Wed)

2024-10-31 (Thu)