From 89a260220c60877c0766cbe79043ecb4dd1fa5f4 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Thu, 27 Nov 2014 12:11:30 -0500 Subject: Fix #110 --- sx.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'sx.el') diff --git a/sx.el b/sx.el index e47e6e3..18cf166 100644 --- a/sx.el +++ b/sx.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2014 Sean Allred ;; Author: Sean Allred -;; URL: https://github.com/vermiculus/stack-mode/ +;; URL: https://github.com/vermiculus/sx.el/ ;; Version: 0.1 ;; Keywords: help, hypermedia, tools ;; Package-Requires: ((emacs "24.1") (cl-lib "0.5") (json "1.3") (markdown-mode "2.0")) @@ -23,8 +23,7 @@ ;;; Commentary: -;; This file defines basic commands used by all other parts of -;; StackMode. +;; This file defines basic commands used by all other parts of SX. ;;; Code: (require 'tabulated-list) @@ -43,7 +42,7 @@ (defun sx-bug-report () "File a bug report about the `sx' package." (interactive) - (browse-url "https://github.com/vermiculus/stack-mode/issues/new")) + (browse-url "https://github.com/vermiculus/sx.el/issues/new")) ;;; Browsing filter @@ -100,7 +99,7 @@ is intentionally skipped." (defun sx-message (format-string &rest args) "Display FORMAT-STRING as a message with ARGS. See `format'." - (message "[stack] %s" (apply #'format format-string args))) + (message "[sx] %s" (apply #'format format-string args))) (defun sx-message-help-echo () "If there's a 'help-echo property under point, message it." @@ -265,13 +264,13 @@ is equivalent to ,@body))) (defcustom sx-init-hook nil - "Hook run when stack-mode initializes. + "Hook run when SX initializes. Run after `sx-init--internal-hook'." :group 'sx :type 'hook) (defvar sx-init--internal-hook nil - "Hook run when stack-mode initializes. + "Hook run when SX initializes. This is used internally to set initial values for variables such as filters.") -- cgit v1.2.3 From 37682ac58c419014db7782ba11bf898a90d09da9 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Thu, 27 Nov 2014 12:33:28 -0500 Subject: Fix #111 --- sx-cache.el | 2 +- sx-question-list.el | 12 ++++++++++++ sx-question-mode.el | 8 +++++++- sx-request.el | 4 ++-- sx-site.el | 2 +- sx-tab.el | 2 +- sx-time.el | 4 ++-- sx.el | 10 +++++++++- 8 files changed, 35 insertions(+), 9 deletions(-) (limited to 'sx.el') diff --git a/sx-cache.el b/sx-cache.el index b9f65ba..51c2267 100644 --- a/sx-cache.el +++ b/sx-cache.el @@ -32,7 +32,7 @@ (expand-file-name ".sx" user-emacs-directory) "Directory containing cached data." :type 'directory - :group 'sx-cache) + :group 'sx) (defun sx-cache--ensure-sx-cache-directory-exists () "Ensure `sx-cache-directory' exists." diff --git a/sx-question-list.el b/sx-question-list.el index ae2177a..9709b99 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -30,6 +30,18 @@ (require 'sx-question-mode) (require 'sx-favorites) +(defgroup sx-question-list nil + "Customization group for sx-question-list." + :prefix "sx-question-list-" + :tag "SX Question List" + :group 'sx) + +(defgroup sx-question-list-faces nil + "Customization group for the faces of `sx-question-list'." + :prefix "sx-question-list-" + :tag "SX Question List Faces" + :group 'sx-question-list) + ;;; Customization (defcustom sx-question-list-height 12 diff --git a/sx-question-mode.el b/sx-question-mode.el index 8d806d0..3cc06b5 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -1,4 +1,4 @@ -;;; sx-question-mode.el --- Creating the buffer that displays questions -*- lexical-binding: t; -*- +;;; sx-question-mode.el --- Creating the buffer that displays questions ;; Copyright (C) 2014 Artur Malabarba @@ -31,11 +31,13 @@ (defgroup sx-question-mode nil "Customization group for sx-question-mode." :prefix "sx-question-mode-" + :tag "SX Question Mode" :group 'sx) (defgroup sx-question-mode-faces nil "Customization group for the faces of `sx-question-mode'." :prefix "sx-question-mode-" + :tag "SX Question Mode Faces" :group 'sx-question-mode) @@ -616,3 +618,7 @@ query the api." (provide 'sx-question-mode) ;;; sx-question-mode.el ends here + +;; Local Variables: +;; lexical-binding: t +;; End: diff --git a/sx-request.el b/sx-request.el index 6b09988..a98af5a 100644 --- a/sx-request.el +++ b/sx-request.el @@ -71,7 +71,7 @@ "gunzip" "Program used to unzip the response if it is compressed. This program must accept compressed data on standard input." - :group 'sx-request + :group 'sx :type 'string) (defvar sx-request-remaining-api-requests @@ -85,7 +85,7 @@ Set by `sx-request-make'.") After `sx-request-remaining-api-requests' drops below this number, `sx-request-make' will begin printing out the number of requests left every time it finishes a call." - :group 'sx-request + :group 'sx :type 'integer) diff --git a/sx-site.el b/sx-site.el index 04b5240..8bd4fc0 100644 --- a/sx-site.el +++ b/sx-site.el @@ -57,7 +57,7 @@ "List of favorite sites. Each entry is a string corresponding to a single site's api_site_parameter." - :group 'sx-site) + :group 'sx) (defun sx-site-get-api-tokens () "Return a list of all known site tokens." diff --git a/sx-tab.el b/sx-tab.el index bcf3849..154a90f 100644 --- a/sx-tab.el +++ b/sx-tab.el @@ -30,7 +30,7 @@ (defcustom sx-tab-default-site "emacs" "Name of the site to use by default when listing questions." :type 'string - :group 'sx-tab) + :group 'sx) (defmacro sx-tab--define (tab pager &optional printer refresher &rest body) diff --git a/sx-time.el b/sx-time.el index 8ee214e..e65bb50 100644 --- a/sx-time.el +++ b/sx-time.el @@ -57,13 +57,13 @@ "Format used for dates on a past year. See also `sx-time-date-format'." :type 'string - :group 'sx-time) + :group 'sx) (defcustom sx-time-date-format "%H:%M - %d %b" "Format used for dates on this year. See also `sx-time-date-format-year'." :type 'string - :group 'sx-time) + :group 'sx) (defun sx-time-seconds-to-date (seconds) "Return the integer SECONDS as a date string." diff --git a/sx.el b/sx.el index 18cf166..0fe98c7 100644 --- a/sx.el +++ b/sx.el @@ -1,4 +1,4 @@ -;;; sx.el --- Core functions of the sx package. -*- lexical-binding: t; -*- +;;; sx.el --- core functions of the sx package. ;; Copyright (C) 2014 Sean Allred @@ -30,6 +30,13 @@ (defconst sx-version "0.1" "Version of the `sx' package.") +(defgroup sx nil + "Customization group for sx-question-mode." + :prefix "sx-" + :tag "SX" + :group 'applications) + + ;;; User commands (defun sx-version () @@ -312,4 +319,5 @@ If FORCE is non-nil, run them even if they've already been run." ;; Local Variables: ;; indent-tabs-mode: nil +;; lexical-binding: t ;; End: -- cgit v1.2.3