ClojureScript Notifications

notifications.cljs

;; this is very much a gist, and it can be tweaked

;; ;; NOTIFICATIONS ----------
;; if (typeof Notification !== 'undefined') {
;;   alert('Please us a modern version of Chrome, Firefox, Opera or Safari.');
;;   return;
;; }

;; Notification.requestPermission(function (permission) {
;;   if (permission !== 'granted') return;

;;   var notification = new Notification('Here is the title', {
;;     icon: 'http://path.to/my/icon.png',
;;     body: 'Some body text',
;;   });

;;   notification.onclick = function () {
;;     window.focus();
;;   };
;; });

(let [title "Here is the title"
        js-opts (js-obj "icon" "http://path.to/my/icon.png"
                        "body" "Some body text")
        js-notification (js/Notification. title js-opts)]
    (aset js-notification "onclick"
          (fn []
            (this-as js-this
              (.log js/console "hi there")
              #_(.close js-this)
              (js/alert "alerrrt")
              #_(.focus js/window)))))

(do (js* "

Notification.requestPermission(function (permission) {
  if (permission !== 'granted') return 'false';

  var notification = new Notification('Here is the title', {
    icon: 'http://path.to/my/icon.png',
    body: 'Some body text',
  });

  notification.onclick = function () {
    window.focus();
    return 'true';
  };
});"))