diff options
| -rw-r--r-- | bot/sx-bot.el | 2 | ||||
| -rw-r--r-- | sx-auth.el | 2 | ||||
| -rw-r--r-- | sx-babel.el | 2 | ||||
| -rw-r--r-- | sx-button.el | 8 | ||||
| -rw-r--r-- | sx-cache.el | 2 | ||||
| -rw-r--r-- | sx-compose.el | 2 | ||||
| -rw-r--r-- | sx-encoding.el | 8 | ||||
| -rw-r--r-- | sx-favorites.el | 2 | ||||
| -rw-r--r-- | sx-filter.el | 2 | ||||
| -rw-r--r-- | sx-inbox.el | 10 | ||||
| -rw-r--r-- | sx-interaction.el | 2 | ||||
| -rw-r--r-- | sx-load.el | 2 | ||||
| -rw-r--r-- | sx-method.el | 2 | ||||
| -rw-r--r-- | sx-networks.el | 4 | ||||
| -rw-r--r-- | sx-notify.el | 2 | ||||
| -rw-r--r-- | sx-question-list.el | 4 | ||||
| -rw-r--r-- | sx-question-mode.el | 2 | ||||
| -rw-r--r-- | sx-question-print.el | 4 | ||||
| -rw-r--r-- | sx-question.el | 2 | ||||
| -rw-r--r-- | sx-request.el | 2 | ||||
| -rw-r--r-- | sx-search.el | 4 | ||||
| -rw-r--r-- | sx-site.el | 2 | ||||
| -rw-r--r-- | sx-switchto.el | 2 | ||||
| -rw-r--r-- | sx-tab.el | 2 | ||||
| -rw-r--r-- | sx-time.el | 2 | ||||
| -rw-r--r-- | sx-user.el | 2 | ||||
| -rw-r--r-- | sx.el | 4 | ||||
| -rw-r--r-- | sx.org | 2 |
28 files changed, 45 insertions, 41 deletions
diff --git a/bot/sx-bot.el b/bot/sx-bot.el index 1a8bceb..9bda61a 100644 --- a/bot/sx-bot.el +++ b/bot/sx-bot.el @@ -1,6 +1,6 @@ ;;; sx-bot.el --- Functions for automated maintanence -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -1,6 +1,6 @@ ;;; sx-auth.el --- user authentication -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> diff --git a/sx-babel.el b/sx-babel.el index 7f84fe0..7ed4e4c 100644 --- a/sx-babel.el +++ b/sx-babel.el @@ -1,6 +1,6 @@ ;;; sx-babel.el --- font-locking pre blocks according to language -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> diff --git a/sx-button.el b/sx-button.el index a4fcb76..a208633 100644 --- a/sx-button.el +++ b/sx-button.el @@ -1,6 +1,6 @@ ;;; sx-button.el --- defining buttons -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -93,7 +93,7 @@ usually part of a code-block." ;; Buttons receive markers. (when (markerp text-or-marker) (setq majormode (get-text-property text-or-marker 'sx-mode)) - (unless (setq text-or-marker + (unless (setq text-or-marker (get-text-property text-or-marker 'sx-button-copy)) (sx-message "Nothing of interest here."))) (with-current-buffer (pop-to-buffer (generate-new-buffer @@ -117,9 +117,9 @@ usually part of a code-block." ;;; Help-echo definitions (defconst sx-button--help-echo - (concat "mouse-1, RET" + (concat "mouse-1, RET" (propertize ": %s -- " 'face 'minibuffer-prompt) - "w" + "w" (propertize ": copy %s" 'face 'minibuffer-prompt)) "Base help-echo on which others can be written.") diff --git a/sx-cache.el b/sx-cache.el index 4770fc2..30d9d5a 100644 --- a/sx-cache.el +++ b/sx-cache.el @@ -1,6 +1,6 @@ ;;; sx-cache.el --- caching -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> diff --git a/sx-compose.el b/sx-compose.el index e3f9c00..28f5693 100644 --- a/sx-compose.el +++ b/sx-compose.el @@ -1,6 +1,6 @@ ;;; sx-compose.el --- major-mode for composing questions and answers -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> diff --git a/sx-encoding.el b/sx-encoding.el index 3ce1d6b..a7ec78c 100644 --- a/sx-encoding.el +++ b/sx-encoding.el @@ -1,6 +1,6 @@ ;;; sx-encoding.el --- encoding -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> @@ -152,8 +152,10 @@ numbers identifying the gzip file format. See URL `http://www.gzip.org/zlib/rfc-gzip.html'." ;; Credit: http://emacs.stackexchange.com/a/2978 - (equal (substring (string-as-unibyte data) 0 2) - (unibyte-string 31 139))) + (let ((unidata (string-as-unibyte data))) + (when (<= 2 (length unidata)) + (equal (substring unidata 0 2) + (unibyte-string 31 139))))) (defun sx-encoding-gzipped-buffer-p (buffer) "Check if BUFFER is gzip-compressed. diff --git a/sx-favorites.el b/sx-favorites.el index 444df29..925e182 100644 --- a/sx-favorites.el +++ b/sx-favorites.el @@ -1,6 +1,6 @@ ;;; sx-favorites.el --- starred questions -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> diff --git a/sx-filter.el b/sx-filter.el index 31e0470..e21959b 100644 --- a/sx-filter.el +++ b/sx-filter.el @@ -1,6 +1,6 @@ ;;; sx-filter.el --- handles retrieval of filters -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> diff --git a/sx-inbox.el b/sx-inbox.el index 6114516..1f0f227 100644 --- a/sx-inbox.el +++ b/sx-inbox.el @@ -1,6 +1,6 @@ ;;; sx-inbox.el --- base inbox logic -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -159,7 +159,8 @@ is an alist containing the elements: (replace-regexp-in-string "_" " " (or .item_type .notification_type))) (cond (.answer_id " on Answer at:") - (.question_id " on:"))) + (.question_id " on:") + (t ":"))) 'face 'font-lock-keyword-face) (list (concat (sx-time-since .creation_date) @@ -168,14 +169,15 @@ is an alist containing the elements: (list (propertize " " 'display - (concat "\n " (propertize .title 'face 'sx-question-list-date) "\n" + (concat "\n " (propertize (or .title "") 'face 'sx-question-list-date) "\n" + (when .body (let ((col fill-column)) (with-temp-buffer (setq fill-column col) (insert " " .body) (fill-region (point-min) (point-max)) (buffer-string)))) - 'face 'default)))))) + 'face 'default))))))) ;;; Entry commands diff --git a/sx-interaction.el b/sx-interaction.el index c43dd20..2e2ef57 100644 --- a/sx-interaction.el +++ b/sx-interaction.el @@ -1,6 +1,6 @@ ;;; sx-interaction.el --- voting, commenting, and other interaction -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -1,6 +1,6 @@ ;;; sx-load.el --- load all files of the SX package -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> diff --git a/sx-method.el b/sx-method.el index 98d510b..7823f5e 100644 --- a/sx-method.el +++ b/sx-method.el @@ -1,6 +1,6 @@ ;;; sx-method.el --- method calls -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> diff --git a/sx-networks.el b/sx-networks.el index 8bd9d34..1f07aba 100644 --- a/sx-networks.el +++ b/sx-networks.el @@ -1,6 +1,6 @@ ;;; sx-networks.el --- user network information -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> @@ -78,7 +78,7 @@ If cache is not available, retrieve current data." "Update user information. Sets cache and then uses `sx-network--get-associated' to update the variables." - (setq sx-network--user-information + (setq sx-network--user-information (sx-method-call 'me :submethod 'associated :keywords '((types . (main_site meta_site))) diff --git a/sx-notify.el b/sx-notify.el index 24aa9b7..50daf81 100644 --- a/sx-notify.el +++ b/sx-notify.el @@ -1,6 +1,6 @@ ;;; sx-notify.el --- mode-line notifications -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> diff --git a/sx-question-list.el b/sx-question-list.el index 32451ed..4028303 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -1,6 +1,6 @@ ;;; sx-question-list.el --- major-mode for navigating questions list -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -206,7 +206,7 @@ This variable gets reset to 0 before every refresh. It should be used by `sx-question-list--next-page-function'.") (make-variable-buffer-local 'sx-question-list--pages-so-far) -(defvar sx-question-list--refresh-function nil +(defvar sx-question-list--refresh-function nil "Function used to refresh the list of questions to be displayed. Used by `sx-question-list-mode', this is a function, called with no arguments, which returns a list questions to be displayed, diff --git a/sx-question-mode.el b/sx-question-mode.el index b73afef..0b4d9ee 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -1,6 +1,6 @@ ;;; sx-question-mode.el --- major-mode for displaying questions -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> diff --git a/sx-question-print.el b/sx-question-print.el index 0d694c6..22226b3 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -1,6 +1,6 @@ ;;; sx-question-print.el --- populating the question-mode buffer with content -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -484,7 +484,7 @@ font-locks code-blocks according to mode." "\f\\|[ \t]*$\\|[ \t]*[*+-] \\|[ \t]*[0-9]+\\.[ \t]\\|[ \t]*: ") (paragraph-separate "\\(?:[ \t\f]*\\|.* \\)$") (adaptive-fill-first-line-regexp "\\`[ \t]*>[ \t]*?\\'") - (adaptive-fill-function #'markdown-adaptive-fill-function)) + (adaptive-fill-function #'markdown-adaptive-fill-function)) (save-restriction (narrow-to-region beg end) ;; html tags can span many paragraphs, so we handle them diff --git a/sx-question.el b/sx-question.el index 7c2b1e9..57dd7dd 100644 --- a/sx-question.el +++ b/sx-question.el @@ -1,6 +1,6 @@ ;;; sx-question.el --- question logic -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> diff --git a/sx-request.el b/sx-request.el index 10bec4a..9376c1d 100644 --- a/sx-request.el +++ b/sx-request.el @@ -1,6 +1,6 @@ ;;; sx-request.el --- requests and url manipulation -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> diff --git a/sx-search.el b/sx-search.el index 885cb53..8ab9923 100644 --- a/sx-search.el +++ b/sx-search.el @@ -1,6 +1,6 @@ ;;; sx-search.el --- searching for questions -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -107,7 +107,7 @@ prefix argument, the user is asked for everything." (setq excluded-tags (sx-tag-multiple-read site "Excluded tags (optional)"))) (list site query tags excluded-tags))) - + ;; Here starts the actual function (sx-initialize) (with-current-buffer (get-buffer-create "*sx-search-result*") @@ -1,6 +1,6 @@ ;;; sx-site.el --- browsing sites -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> diff --git a/sx-switchto.el b/sx-switchto.el index 718a941..504c12b 100644 --- a/sx-switchto.el +++ b/sx-switchto.el @@ -1,6 +1,6 @@ ;;; sx-switchto.el --- keymap for navigating between pages -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -1,6 +1,6 @@ ;;; sx-tab.el --- functions for viewing different tabs -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -1,6 +1,6 @@ ;;; sx-time.el --- time -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> @@ -1,6 +1,6 @@ ;;; sx-user.el --- handling and printing user information -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Artur Malabarba +;; Copyright (C) 2014-2018 Artur Malabarba ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> @@ -1,6 +1,6 @@ ;;; sx.el --- StackExchange client. Ask and answer questions on Stack Overflow, Super User, and the likes -*- lexical-binding: t; -*- -;; Copyright (C) 2014 Sean Allred +;; Copyright (C) 2014-2018 Sean Allred ;; Author: Sean Allred <code@seanallred.com> ;; URL: https://github.com/vermiculus/sx.el/ @@ -392,7 +392,7 @@ Return the result of BODY." "Use FORMAT-STRING to format the values in ALIST. ALIST is a list with elements of the form (CHAR . STRING). The value is a copy of FORMAT-STRING, but with certain constructs -replaced by text as given by ALIST. +replaced by text as given by ALIST. The construct is a `%' character followed by any other character. The replacement is the STRING corresponding to CHAR in ALIST. In @@ -27,7 +27,7 @@ This manual is for SX (version {{{version}}}, {{{updated}}}), a StackExchange client for Emacs. -Copyright © 2014 Free Software Foundation, Inc. +Copyright © 2014-2018 Free Software Foundation, Inc. #+BEGIN_QUOTE Permission is granted to copy, distribute and/or modify this |