Skip to content

Latest commit

 

History

History
55 lines (37 loc) · 1.43 KB

mw-attendor.org

File metadata and controls

55 lines (37 loc) · 1.43 KB

Attendor Hook

Changelog

v 0.1

Description

Example seven: attendor hook

;;; mindwave-attendor.el --- Hassle the user when the mindwave attention level reaches a lower threshold

;; Copyright (C) 2012 Jonathan Arkell

;; Author: Jonathan Arkell <[email protected]>
;; Created: 16 June 2012
;; Keywords: mindwave
;; Version 0.1 

;; This file is not part of GNU Emacs.
;; Released under the GPL     

;;; Commentary: 
;; Please see the org-file that this was generated from. 
<<ma-mw-hook>>
(provide 'mindwave-attendor)

Execute a set of hooks to run when the user crosses some lower attentive threshold.

Mindwave hook

(defgroup mw-attendor '()
  "Mindwave Attendor.")

(defcustom mw-attendor/alert-user-hooks '()
  "Hooks to run when the users attention level crosses a certain threshold."
  :type hook)

(defcustom mw-attendor/attention-threshold 40
  "Threshold value for attention.
When the users attention level falls below this level, run the hooks ")

(defun mw-attendor/brain-ring-full-hook (avg)
  "hook to run the attentive hooks when the threshold values are received."
  (when (< mw-attendor/attention-threshold
           (cdr (assoc 'attention (cdr (assoc 'eSense average)))))
    (run-hooks mw-attendor/wait-til-ready-hook)))