Browse code
feat: add append-feed utility
fiddlerwoaroof authored on 05/05/2023 06:22:16Showing 1 changed files
| ... | ... |
@@ -30,6 +30,12 @@ |
| 30 | 30 |
(pushnew feed |
| 31 | 31 |
(ubiquitous:value :feeds) |
| 32 | 32 |
:test #'equalp)) |
| 33 |
+(defun append-feed (feed) |
|
| 34 |
+ (init-feeds) |
|
| 35 |
+ (setf (ubiquitous:value :feeds) |
|
| 36 |
+ (append (remove feed (ubiquitous:value :feeds) |
|
| 37 |
+ :test 'equalp) |
|
| 38 |
+ (list feed)))) |
|
| 33 | 39 |
|
| 34 | 40 |
(defun archive-feeds-nondeterm () |
| 35 | 41 |
(let* ((pull-time (local-time:now)) |