;;; GitHub Notifications (Participating)
(use-package ghub+
  :ensure t
  :config
  (defvar github-notifications-number nil)
  (defun github-notifications ()
    (setq github-notifications-number
          (length
           ;; check out documentation of `ghubp-get-notifications'.
           (ghubp-get-notifications :participating "true") ; from package `ghub+'.
           ;; (ghub-get "/notifications" '((:participating . "true")))
           ;; (ghub-get "/notifications")
           )))
  (run-with-timer 10 600 'github-notifications)
  (defun *github-notifications ()
    (if (and (active) (> github-notifications-number 0))
        (propertize
         (concat
          (all-the-icons-faicon "github" :v-adjust 0.05)
          (format " %s " github-notifications-number))
         'face 'mode-line-data-face)))
  (defun github-open-notifications-participating ()
    "Open GitHub Notifications/Participating page."
    (interactive)
    (browse-url "https://github.com/notifications/participating"))
  (unless (boundp 'prog-vcs-prefix)
    (define-prefix-command 'prog-vcs-prefix))
  (define-key prog-vcs-prefix (kbd "N") 'github-open-notifications-participating)
  )