Update elfeed-update.el
This commit is contained in:
parent
81fb787be4
commit
00f639319c
|
@ -76,7 +76,7 @@ See `no-littering' for examples.")
|
|||
|
||||
;;; Fonts
|
||||
(+with-ensure-after-init
|
||||
;; Set default faces
|
||||
(unless noninteractive ;; Set default faces
|
||||
(+with-message "Setting default faces"
|
||||
(let ((font-name machine-default-font)
|
||||
(font-size machine-default-height)
|
||||
|
@ -87,7 +87,7 @@ See `no-littering' for examples.")
|
|||
(set-face-attribute 'italic nil :family font-name
|
||||
:height font-size :slant 'italic)
|
||||
(set-face-attribute 'variable-pitch nil :family variable-font-name
|
||||
:height variable-font-size)))
|
||||
:height variable-font-size))))
|
||||
|
||||
;; Emoji fonts
|
||||
(+with-message "Adding emoji fonts"
|
||||
|
|
|
@ -40,9 +40,9 @@
|
|||
|
||||
(defun +elfeed-update-command ()
|
||||
(interactive)
|
||||
(let ((script (expand-file-name "~/.local/bin/elfeed"))
|
||||
(update-message-format "[Elfeed] Updating in the background...%s"))
|
||||
(message update-message-format "")
|
||||
(let ((script (expand-file-name "~/.local/bin/elfeed-update.el"))
|
||||
(update-message-format "[Elfeed] Updating in the background..."))
|
||||
(with-temp-message update-message-format
|
||||
(setq +elfeed--update-running t)
|
||||
(elfeed-db-save)
|
||||
(advice-add 'elfeed :override #'+elfeed--update-message)
|
||||
|
@ -55,6 +55,7 @@
|
|||
(insert
|
||||
(nconcat nil
|
||||
"#!/usr/bin/env -S emacs --script"
|
||||
"(setq lexical-binding t)"
|
||||
;; I have to load the necessary files
|
||||
"(load (locate-user-emacs-file \"early-init\"))"
|
||||
"(straight-use-package 'elfeed)"
|
||||
|
@ -96,7 +97,7 @@
|
|||
(advice-remove 'elfeed #'+elfeed--update-message)
|
||||
(setq +elfeed--update-running nil)
|
||||
(message update-message-format
|
||||
(string-trim b))))))
|
||||
(string-trim b)))))))
|
||||
|
||||
(defvar +elfeed--update-timer nil "Timer for `elfeed-update-command'.")
|
||||
(defvar +elfeed--update-first-time 6 "How long to wait for the first time.")
|
||||
|
|
Loading…
Reference in New Issue