Dev #19
|
@ -1150,10 +1150,14 @@ Optionally provide STATIC-MAX-ITEM and STATIC-NEWSTORIES to prevent querying out
|
||||||
"Date: " (mail-header-date mail-header) "\n"
|
"Date: " (mail-header-date mail-header) "\n"
|
||||||
"Message-ID: " (mail-header-id mail-header) "\n"
|
"Message-ID: " (mail-header-id mail-header) "\n"
|
||||||
"References: " (mail-header-references mail-header) "\n"
|
"References: " (mail-header-references mail-header) "\n"
|
||||||
"Content-Type: text/html; charset=utf-8" "\n"
|
|
||||||
"Archived-at: " permalink "\n"
|
"Archived-at: " permalink "\n"
|
||||||
"Score: " score "\n"
|
"Score: " score "\n"
|
||||||
"\n")
|
"\n")
|
||||||
|
(mml-insert-multipart "alternative")
|
||||||
|
(mml-insert-tag 'part 'type "text/html"
|
||||||
|
'disposition "inline"
|
||||||
|
'charset "utf-8")
|
||||||
|
(save-excursion (mml-insert-tag '/part))
|
||||||
(-when-let*
|
(-when-let*
|
||||||
((parent (plist-get header :parent))
|
((parent (plist-get header :parent))
|
||||||
(parent-author
|
(parent-author
|
||||||
|
@ -1164,7 +1168,8 @@ Optionally provide STATIC-MAX-ITEM and STATIC-NEWSTORIES to prevent querying out
|
||||||
(insert (nnhackernews--citation-wrap parent-author parent-body)))
|
(insert (nnhackernews--citation-wrap parent-author parent-body)))
|
||||||
(aif (and nnhackernews-render-story (plist-get header :url))
|
(aif (and nnhackernews-render-story (plist-get header :url))
|
||||||
(condition-case err
|
(condition-case err
|
||||||
(nnhackernews--request "nnhackernews-request-article" it
|
(nnhackernews--request
|
||||||
|
"nnhackernews-request-article" it
|
||||||
:success (cl-function
|
:success (cl-function
|
||||||
(lambda (&key data &allow-other-keys)
|
(lambda (&key data &allow-other-keys)
|
||||||
(insert data))))
|
(insert data))))
|
||||||
|
@ -1172,6 +1177,11 @@ Optionally provide STATIC-MAX-ITEM and STATIC-NEWSTORIES to prevent querying out
|
||||||
(error-message-string err))
|
(error-message-string err))
|
||||||
(insert body)))
|
(insert body)))
|
||||||
(insert body))
|
(insert body))
|
||||||
|
(insert "\n")
|
||||||
|
(if (mml-validate)
|
||||||
|
(message-encode-message-body)
|
||||||
|
(gnus-message 2 "nnhackernews-request-article: Invalid mml:\n%s"
|
||||||
|
(buffer-string)))
|
||||||
(cons group article-number))))))
|
(cons group article-number))))))
|
||||||
|
|
||||||
(deffoo nnhackernews-retrieve-headers (article-numbers &optional group server _fetch-old)
|
(deffoo nnhackernews-retrieve-headers (article-numbers &optional group server _fetch-old)
|
||||||
|
|
|
@ -11,15 +11,29 @@ CASKDIR=$WORKDIR/cask
|
||||||
|
|
||||||
. tools/retry.sh
|
. tools/retry.sh
|
||||||
|
|
||||||
|
update_elpa_keys() {
|
||||||
|
mkdir -p $HOME/.emacs.d/elpa/gnupg || true
|
||||||
|
chmod 700 $HOME/.emacs.d/elpa/gnupg
|
||||||
|
GPG=gpg
|
||||||
|
if which gpg2 ; then GPG=gpg2 ; fi
|
||||||
|
travis_retry ${GPG} --keyserver hkp://pool.sks-keyservers.net:80 --homedir $HOME/.emacs.d/elpa/gnupg --recv-keys 066DAFCB81E42C40
|
||||||
|
mkdir -p $(cask package-directory) || true
|
||||||
|
mkdir -p $HOME/.cask || true
|
||||||
|
rsync -azSHe ssh $HOME/.cask $(dirname $(dirname $(dirname $(cask package-directory))))
|
||||||
|
rsync -azSHe ssh $HOME/.emacs.d/elpa/gnupg $(cask package-directory)
|
||||||
|
}
|
||||||
|
|
||||||
cask_upgrade_cask_or_reset() {
|
cask_upgrade_cask_or_reset() {
|
||||||
cask upgrade-cask || { rm -rf $HOME/.emacs.d/.cask && false; }
|
cask upgrade-cask || { rm -rf $HOME/.emacs.d/.cask && false; }
|
||||||
}
|
}
|
||||||
|
|
||||||
cask_install_or_reset() {
|
cask_install_or_reset() {
|
||||||
cask install </dev/null
|
cask install </dev/null
|
||||||
cask update </dev/null
|
find $(cask package-directory)/archives -print | xargs ls -l
|
||||||
|
find $(cask package-directory)/gnupg -print | xargs ls -l
|
||||||
|
|
||||||
# travis cache
|
# travis cache
|
||||||
rsync -vazSHe ssh .cask $HOME/
|
rsync -azSHe ssh $(dirname $(dirname $(cask package-directory))) $HOME/
|
||||||
}
|
}
|
||||||
|
|
||||||
# Bootstrap the cask tool and its dependencies
|
# Bootstrap the cask tool and its dependencies
|
||||||
|
@ -30,5 +44,6 @@ fi
|
||||||
# Install dependencies for cider as descriped in ./Cask
|
# Install dependencies for cider as descriped in ./Cask
|
||||||
# Effect is identical to "make elpa", but here we can retry
|
# Effect is identical to "make elpa", but here we can retry
|
||||||
# in the event of network failures.
|
# in the event of network failures.
|
||||||
|
update_elpa_keys
|
||||||
travis_retry cask_upgrade_cask_or_reset
|
travis_retry cask_upgrade_cask_or_reset
|
||||||
travis_retry cask_install_or_reset && touch elpa-emacs
|
travis_retry cask_install_or_reset && touch elpa-emacs
|
||||||
|
|
Loading…
Reference in New Issue