aboutsummaryrefslogtreecommitdiff
path: root/sx-cache.el
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2014-11-13 02:07:43 +0000
committerArtur Malabarba <bruce.connor.am@gmail.com>2014-11-13 02:07:43 +0000
commit6355c676f48506ecb730acb200085f7b211e08c4 (patch)
tree8173b74b21d1445997159adc9a5cca261d9c8892 /sx-cache.el
parent4cf7825918bfb60e2d1d1ce1dd342665f1161fa2 (diff)
parentcfd909e8524c37ac3bc94bec56c4e577b2c33d2d (diff)
Merge branch 'master' into sx-question-mode
Diffstat (limited to 'sx-cache.el')
-rw-r--r--sx-cache.el12
1 files changed, 9 insertions, 3 deletions
diff --git a/sx-cache.el b/sx-cache.el
index a090982..098c292 100644
--- a/sx-cache.el
+++ b/sx-cache.el
@@ -2,8 +2,7 @@
;; Copyright (C) 2014 Sean Allred
-;; Author: Sean Allred <sallred@calamity.tcs.com>
-;; Keywords: help
+;; Author: Sean Allred <code@seanallred.com>
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -20,7 +19,12 @@
;;; Commentary:
+;; All caches are retrieved and set using symbols. The symbol should
+;; be the sub-subpackage that is using the cache. For example,
+;; `sx-pkg' would use `(sx-cache-get 'pkg)'.
;;
+;; This symbol is then converted into a filename within
+;; `sx-cache-directory'.
;;; Code:
@@ -30,7 +34,9 @@
(defun sx-cache-get-file-name (filename)
"Expands FILENAME in the context of `sx-cache-directory'."
- (expand-file-name filename sx-cache-directory))
+ (expand-file-name
+ (concat (symbol-name filename) ".el")
+ sx-cache-directory))
(defun sx-cache-get (cache)
"Return the data within CACHE.