[nongnu] elpa/pacmacs 8eddfbd0df 005/472: Implement resource application layer. Close #3

[ELPA Syncer]

branch: elpa/pacmacs
commit 8eddfbd0dfed1e343627363fd172eda889ac0147
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Implement resource application layer. Close #3
---
 pacman-resources.el | 9 +++++++++
 pacman.el           | 6 +++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/pacman-resources.el b/pacman-resources.el
new file mode 100644
index 0000000000..fa8ab4e0f1
--- /dev/null
+++ b/pacman-resources.el
@@ -0,0 +1,9 @@
+
+(defun pacman-load-resource (filename)
+  (create-image (concat default-directory filename)
+                'png nil :heuristic-mask t))
+
+(defun pacman-insert-image (resource resource-vector)
+  (insert-image resource " " nil resource-vector))
+
+(provide 'pacman-resources)
diff --git a/pacman.el b/pacman.el
index e3ed9e9fd8..3e9d43bd68 100644
--- a/pacman.el
+++ b/pacman.el
@@ -1,3 +1,5 @@
+(require 'pacman-resources)
+
 (defconst pacman-buffer-name "*Pacman*")
 
 (defvar pacman-timer nil)
@@ -9,7 +11,7 @@
   (define-key pacman-mode-map (kbd "<left>") 'pacman-left)
   (define-key pacman-mode-map (kbd "<right>") 'pacman-right)
   (define-key pacman-mode-map (kbd "q") 'pacman-quit)
-  (add-hook 'kill-buffer-hook 'pacman-destroy :local t))
+  (add-hook 'kill-buffer-hook 'pacman-destroy nil t))
 
 (defun pacman-start ()
   (interactive)
@@ -51,3 +53,5 @@
 (defun pacman-right ()
   (interactive)
   )
+
+(provide 'pacman)