diff options
| author | Sean Allred <code@seanallred.com> | 2015-02-14 18:31:38 -0600 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2015-02-14 18:31:38 -0600 |
| commit | ca121c0c65e0e689af2ee859fdd8ebea8bc44bc5 (patch) | |
| tree | 426f0ce4865a23853a51b285d26c67d1474d1f3a /sx-search.el | |
| parent | 2e9fb5633907afdd6218e36a6be5412e87dcee2c (diff) | |
| parent | 3b0008b6fc32548905510cf86ab5651e529b84ee (diff) | |
Merge pull request #261 from vermiculus/meta-tags
Meta tags
Diffstat (limited to 'sx-search.el')
| -rw-r--r-- | sx-search.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/sx-search.el b/sx-search.el index b33efff..b245cbe 100644 --- a/sx-search.el +++ b/sx-search.el @@ -126,9 +126,15 @@ prefix argument, the user is asked for everything." (let ((tag (save-excursion (when pos (goto-char pos)) (or (get-text-property (point) 'sx-tag) - (thing-at-point 'symbol))))) - (sx-search (or sx-question-list--site - (sx-assoc-let sx-question-mode--data .site_par)) + (thing-at-point 'symbol)))) + (meta (save-excursion + (when pos (goto-char pos)) + (get-text-property (point) 'sx-tag-meta))) + (site (replace-regexp-in-string + (rx string-start "meta.") "" + (or sx-question-list--site + (sx-assoc-let sx-question-mode--data .site_par))))) + (sx-search (concat (when meta "meta.") site) nil tag))) (provide 'sx-search) |