wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

Remove contextual-value-manager

Browse Source
This commit is contained in:
Ivan Malison 2016-06-28 20:42:27 -07:00
parent c244133073
commit 7d1f7ed2b5
1 changed files with 0 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
dotfiles/emacs.d/load.d/contextual-value-manager.el
View File

@ -1,35 +0,0 @@
(require 'eieio)
(defclass cvm-contextual-value-manager ()
((identifier-manager :initarg :identifier-manager)
(builder :initarg :builder)))
(defmethod cvm-contextual-value ((cvm cvm-contextual-value-manager))
(let ((identifier (cvm-get-identifier (oref cvm :identifier-manager))))
(or (cvm-get-value (oref cvm :identifier-manager) identifier)
(cvm-build-and-save cvm identifier))))
(defmethod cvm-build-and-save ((cvm cvm-contextual-value-manager) identifier)
(let ((value (cvm-build (oref cvm :builder) identifier)))
(cvm-set-value (oref cvm :identifier-manager) identifier value)
value))
(defclass cvm-identifier-manager () nil
:abstract t)
(defmethod cvm-get-identifier ((generator cvm-identifier-manager))
nil)
(defmethod cvm-get-value ((generator cvm-identifier-manager) identifier)
nil)
(defmethod cvm-set-value ((generator cvm-identifier-manager) identifier value)
nil)
(defclass cvm-builder () nil
:abstract t)
(defmethod cvm-build ((builder cvm-builder) identifier)
nil)
(provide 'contextual-value-manager)