blob: 6b56001ef53e2dcd6b0b1eb659f754601538ef50 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
;;; stack-filter.el --- filters for stack-mode -*- lexical-binding: t; -*-
;; Copyright (C) 2014 Sean Allred
;; 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
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;;; Code:
;;; Dependencies
(require 'stack-core)
;;; Customizations
(defconst stack-filter-cache-file
"filters.el")
(defvar stack-filter
'default
"The current filter.
To customize the filter for the next call
to `stack-core-make-request', let-bind this variable to the
output of a call to `stack-core-compile-filter'. Be careful! If
you're going to be using this new filter a lot, create a variable
for it. Creation requests count against
`stack-core-remaining-api-requests'!")
;;; Compilation
;;; TODO allow BASE to be a precompiled filter name
(defun stack-filter-compile (&optional include exclude base)
"Compile INCLUDE and EXCLUDE into a filter derived from BASE.
INCLUDE and EXCLUDE must both be lists; BASE should be a symbol
or string."
(let ((keyword-arguments
`((include . ,(if include (mapconcat
#'stack-core-thing-as-string
include ";")))
(exclude . ,(if exclude (mapconcat
#'stack-core-thing-as-string
exclude ";")))
(base . ,(if base base)))))
(let ((response (stack-core-make-request
"filter/create"
keyword-arguments)))
(url-hexify-string
(cdr (assoc 'filter
(elt response 0)))))))
;;; Storage and Retrieval
(defun stack-filter-get (filter)
"Retrieve named FILTER from `stack-filter-cache-file'."
(cdr (assoc filter (stack-cache-get stack-filter-cache-file))))
(defun stack-filter-store (name &optional filter)
"Store NAME as FILTER in `stack-filter-cache-file'.
NAME should be a symbol and FILTER is a string as compiled by
`stack-filter-compile'.
If NAME is a cons cell, (car NAME) is taken to be the actual NAME
and (cdr NAME) is taken to be the actual FILTER. In this case,
the second argument is simply ignored."
(let ((name (if (consp name) (car name) name))
(filter (if (consp name) (cdr name) filter)))
(unless (symbolp name)
(error "Name must be a symbol: %S" name))
(let* ((dict (stack-cache-get stack-filter-cache-file))
(entry (assoc name dict)))
(if entry (setcdr entry filter)
(setq dict (cons (cons name filter) dict)))
(stack-cache-set stack-filter-cache-file dict))))
(defun stack-filter-store-all (name-filter-alist)
(mapc #'stack-filter-store name-filter-alist))
(provide 'stack-filter)
;;; stack-filter.el ends here
|
