From 7d1f7ed2b5655a876870081df74dbc708a1c69f8 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Tue, 28 Jun 2016 20:42:27 -0700 Subject: [PATCH] Remove contextual-value-manager --- .../load.d/contextual-value-manager.el | 35 ------------------- 1 file changed, 35 deletions(-) delete mode 100644 dotfiles/emacs.d/load.d/contextual-value-manager.el diff --git a/dotfiles/emacs.d/load.d/contextual-value-manager.el b/dotfiles/emacs.d/load.d/contextual-value-manager.el deleted file mode 100644 index 25a32a10..00000000 --- a/dotfiles/emacs.d/load.d/contextual-value-manager.el +++ /dev/null @@ -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)