Dev #18

Merged
dickmao merged 6 commits from dev into master 2020-02-17 12:06:54 +00:00
5 changed files with 59 additions and 48 deletions

View File

@ -1,5 +1,10 @@
EMACS ?= $(shell which emacs)
SRC=$(shell cask files)
export CASK := $(shell which cask)
ifeq ($(CASK),)
$(error Please install CASK at https://cask.readthedocs.io/en/latest/guide/installation.html)
endif
CASK_DIR := $(shell EMACS=$(EMACS) cask package-directory || exit 1)
SRC=$(shell $(CASK) files)
PKBUILD=2.3
ELCFILES = $(SRC:.el=.elc)
@ -31,18 +36,24 @@ README.rst: README.in.rst nnhackernews.el
test-clean:
rm -rf tests/.emacs* tests/.newsrc* tests/Mail tests/News tests/request tests/request-log
.PHONY: cask
cask: $(CASK_DIR)
$(CASK_DIR): Cask
$(CASK) install
touch $(CASK_DIR)
.PHONY: clean
clean: test-clean
cask clean-elc
$(CASK) clean-elc
rm -f tests/log/*
rm -rf tests/test-install
.PHONY: test-compile
test-compile:
cask install
test-compile: cask
sh -ex tools/package-lint.sh nnhackernews.el
! (cask eval "(let ((byte-compile-error-on-warn t)) (cask-cli/build))" 2>&1 | egrep -a "(Warning|Error):")
cask clean-elc
! ($(CASK) eval "(let ((byte-compile-error-on-warn t)) (cask-cli/build))" 2>&1 | egrep -a "(Warning|Error):")
$(CASK) clean-elc
.PHONY: test-install
test-install:
@ -74,14 +85,14 @@ test-install:
.PHONY: test-unit
test-unit:
cask exec ert-runner -L . -L tests tests/test*.el
$(CASK) exec ert-runner -L . -L tests tests/test*.el
.PHONY: test
test: test-compile test-unit test-int
.PHONY: test-int
test-int: test-clean
cask exec ecukes --reporter magnars --debug
$(CASK) exec ecukes --reporter magnars --debug
.PHONY: dist-clean
dist-clean:
@ -89,7 +100,7 @@ dist-clean:
.PHONY: dist
dist: dist-clean
cask package
$(CASK) package
.PHONY: install
install: test-compile dist

View File

@ -30,6 +30,7 @@ Then
::
M-x package-refresh-contents RET
M-x package-initialize RET
M-x package-install RET nnhackernews RET
Alternatively, copy ``nnhackernews.el`` to a directory among ``C-h v RET load-path`` and add ``(require 'nnhackernews)`` to ``.emacs``.

View File

@ -30,6 +30,7 @@ Then
::
M-x package-refresh-contents RET
M-x package-initialize RET
M-x package-install RET nnhackernews RET
Alternatively, copy ``nnhackernews.el`` to a directory among ``C-h v RET load-path`` and add ``(require 'nnhackernews)`` to ``.emacs``.

View File

@ -483,7 +483,7 @@ If GROUP classification omitted, figure it out."
(defmacro nnhackernews--with-group (group &rest body)
"Disambiguate GROUP if it's empty and execute BODY."
(declare (debug (form &rest form))
(indent 1))
(indent defun))
`(let* ((group (or ,group (gnus-group-real-name gnus-newsgroup-name)))
(gnus-newsgroup-name (gnus-group-full-name group "nnhackernews:")))
,@body))
@ -631,9 +631,11 @@ FORCE is generally t unless coming from `nnhackernews--score-pending'."
"Filter unread messages for GROUP now.
Otherwise *Group* buffer annoyingly overrepresents unread."
(when (or (gnus-native-method-p '(nnhackernews ""))
(gnus-secondary-method-p '(nnhackernews "")))
(nnhackernews--with-group group
(unless (nnhackernews-extant-summary-buffer gnus-newsgroup-name)
(nnhackernews--rescore gnus-newsgroup-name t))))
(nnhackernews--rescore gnus-newsgroup-name t)))))
(defun nnhackernews--mark-scored-as-read (group)
"If a root article (story) is scored in GROUP, that means we've already read it."
@ -1539,14 +1541,12 @@ Written by John Wiegley (https://github.com/jwiegley/dot-emacs).")
(when (nnhackernews--gate)
(nnhackernews-summary-mode)))
(when (or (gnus-native-method-p '(nnhackernews ""))
(gnus-secondary-method-p '(nnhackernews "")))
;; I believe I did try buffer-localizing hooks, and it wasn't sufficient
(add-hook 'gnus-article-mode-hook #'nnhackernews-article-mode-activate)
(add-hook 'gnus-summary-mode-hook #'nnhackernews-summary-mode-activate)
;; I believe I did try buffer-localizing hooks, and it wasn't sufficient
(add-hook 'gnus-article-mode-hook #'nnhackernews-article-mode-activate)
(add-hook 'gnus-summary-mode-hook #'nnhackernews-summary-mode-activate)
;; Avoid having to select the GROUP to make the unread number go down.
(mapc (lambda (hook)
;; Avoid having to select the GROUP to make the unread number go down.
(mapc (lambda (hook)
(add-hook hook
(lambda () (mapc (lambda (group)
(nnhackernews--score-unread group))
@ -1555,15 +1555,15 @@ Written by John Wiegley (https://github.com/jwiegley/dot-emacs).")
,nnhackernews--group-job
,nnhackernews--group-stories)))))
'(gnus-after-getting-new-news-hook))
;; (add-hook 'gnus-started-hook
;; (lambda () (mapc (lambda (group)
;; (nnhackernews--mark-scored-as-read group))
;; `(,nnhackernews--group-ask
;; ,nnhackernews--group-show
;; ,nnhackernews--group-job
;; ,nnhackernews--group-stories)))
;; t)
)
;; (add-hook 'gnus-started-hook
;; (lambda () (mapc (lambda (group)
;; (nnhackernews--mark-scored-as-read group))
;; `(,nnhackernews--group-ask
;; ,nnhackernews--group-show
;; ,nnhackernews--group-job
;; ,nnhackernews--group-stories)))
;; t)
;; "Can't figure out hook that can remove itself (quine conundrum)"
(add-function :around (symbol-function 'gnus-summary-exit)
@ -1669,11 +1669,9 @@ Written by John Wiegley (https://github.com/jwiegley/dot-emacs).")
(add-function :around
(symbol-function 'message-fetch-field)
concat-func))
(condition-case err
(prog1 (apply f args)
(remove-function (symbol-function 'message-fetch-field) concat-func))
(error (remove-function (symbol-function 'message-fetch-field) concat-func)
(error (error-message-string err)))))))
(unwind-protect
(apply f args)
(remove-function (symbol-function 'message-fetch-field) concat-func)))))
(let ((protect (lambda (caller)
(add-function

View File

@ -13,8 +13,8 @@ if [ "x$TRAVIS_OS_NAME" = "xosx" ]; then
case "${TOXENV}" in
py27)
pyenv install -s 2.7.12
pyenv virtualenv -f 2.7.12 py27
pyenv install -s 2.7.13
pyenv virtualenv -f 2.7.13 py27
;;
py35)
pyenv install -s 3.5.2