See my issue #26, these are my fixes from my v1.1 at https://codeberg.org/gargle/tumblesocks.

README.md

@@ -1,7 +1,29 @@
+
+tumblesocks - un-break it fork
+==============================
+
+`tumblesocks.el` old, crazy, messy, awesome, abandoned, and broken, and it depends on `emacs-oauth`,
+which is much the same. each file has about 70 `flycheck` errors in it.  But it also fucking rocks.
+
+So this repo adds patches that people have shared online for un-breaking `tumblesocks.el`.
+
+A patched version of ye olde `emacs-oauth` is also needed.  It's here: https://codeberg.org/martianh/emacs-oauth.
+
+If you try these out, I'd recommend you remove all trace of any other versions.
+
+Further patches are most welcome.
+
+
+
+Modified README
+===============
+
 `tumblesocks-mode` - Tumblr Support for Emacs
 =============================================
 <!-- ![http://i.imgur.com/WW6Qo.png](http://i.imgur.com/WW6Qo.png) -->
-![http://i.imgur.com/9wroS.png](http://i.imgur.com/9wroS.png)
+This is how tumblesocks looks now:
+
+![https://i.ibb.co/9WYG2mB/xwd.jpg](https://i.ibb.co/9WYG2mB/xwd.jpg)
 
 Tumblesocks is an Emacs tumblr client. With it, you can write posts,
 check your dashboard, and view blogs and notes.
@@ -34,6 +56,9 @@ Managing your posts:
 * **d: Delete** the post under the cursor. (This only works if you made that post.)
 * **e: Edit** the post under the cursor. (This only works if you made that post.)
 
+View activity
+* **a: Notifications** shows you your Notifications (likes, reblogs, milestones, replies.)  `tumblesocks-view-notifications` works as well.
+
 Installing
 ----------
 

tumblesocks-api.el

@@ -1,5 +1,6 @@
 ;; tumblesocks-api.el -- functions for talking with tumblr
 ;; Copyright (C) 2012 gcr
+;; Copyright (C) 2023 gargle
 
 (require 'oauth)
 (require 'json)
@@ -65,10 +66,10 @@ call `tumblesocks-api-reauthenticate' after this."
           (if (string-match "\\([^:]*\\):\\(.*\\)"
                             (buffer-substring (point-min) (point-max)))
               (setq tumblesocks-token
-                    (make-oauth-access-token
+                    (oauth-access-token--create
                      :consumer-key tumblesocks-consumer-key
                      :consumer-secret tumblesocks-secret-key
-                     :auth-t (make-oauth-t
+                     :auth-t (oauth-t--create
                               :token (match-string 1 str)
                               :token-secret (match-string 2 str))))))
         (kill-this-buffer)))
@@ -136,7 +137,7 @@ error if the error code is not in the 200 category."
                           tumblesocks-token
                           (concat url "?api_key=" tumblesocks-consumer-key
                                   (mapconcat
-                                   '(lambda (x)
+                                   #'(lambda (x)
                                       (concat "&" (url-hexify-string (format "%s" (car x)))
                                               "=" (url-hexify-string (format "%s" (cdr x)))))
                                    (tumblesocks-plist-to-alist params) "")))
@@ -151,7 +152,7 @@ error if the error code is not in the 200 category."
   (with-current-buffer (url-retrieve-synchronously
                         (concat url "?api_key=" tumblesocks-consumer-key
                                 (mapconcat
-                                 '(lambda (x)
+                                 #'(lambda (x)
                                     (concat "&" (url-hexify-string (format "%s" (car x)))
                                             "=" (url-hexify-string (format "%s" (cdr x)))))
                                  (tumblesocks-plist-to-alist params) "")))
@@ -168,7 +169,7 @@ error if the error code is not in the 200 category."
     (with-current-buffer
         (oauth-post-url
          tumblesocks-token url
-         (mapcar '(lambda (x)
+         (mapcar #'(lambda (x)
                     (cons (format "%s" (car x))
                           (format "%s" (cdr x))))
                  (tumblesocks-plist-to-alist params)))
@@ -180,8 +181,8 @@ returning JSON or signaling an error for other requests."
   (decode-coding-region (point-min) (point-max) 'utf-8-dos)
   ;; the following copied from url.el
   (goto-char (point-min))
-  (skip-chars-forward " \t\n")		; Skip any blank crap
-  (skip-chars-forward "HTTP/")		; Skip HTTP Version
+  (skip-chars-forward " \t\n")         ; Skip any blank crap
+  (skip-chars-forward "HTTP/")         ; Skip HTTP Version
   (skip-chars-forward "[0-9].")
   (let ((pointpos (point))
         (code (read (current-buffer))))
@@ -194,7 +195,9 @@ returning JSON or signaling an error for other requests."
       (error (buffer-substring pointpos
                                (line-end-position))))
      (t
-      (search-forward-regexp "^$" nil t)
+      ;; brute force and ignorance
+      (search-forward-regexp "^{" nil t)
+      (previous-line)
       ;; body
       (let* ((json-response (buffer-substring (1+ (point)) (point-max)))
              (json-object-type 'plist)
@@ -258,6 +261,17 @@ returning JSON or signaling an error for other requests."
   (tumblesocks-api-http-oauth-post (tumblesocks-api-url "/user/unlike")
                                    `(:id ,id :reblog_key ,reblog_key)))
 
+(defun tumblesocks-api-blog-notifications (&optional limit offset)
+  "Retrieve the activity items for a specific blog, in reverse chronological order, newest first"
+  (unless tumblesocks-blog (error "Which blog? Please set `tumblesocks-blog'"))
+  (let ((args (append
+               (and limit `(:limit ,limit))
+               (and offset `(:offset ,offset)))))
+    (tumblesocks-api-http-oauth-get
+     (tumblesocks-api-url "/blog/"
+                          tumblesocks-blog
+                          "/notifications") args)))
+
 (defun tumblesocks-api-blog-info ()
   "Gather information about the blog listed in
 `tumblesocks-blog'."

tumblesocks-compose.el

@@ -8,7 +8,7 @@
 ;; Tumblr compose mode ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defvar tumblesocks-compose-finish-action
-  '(lambda () (call-interactively 'tumblesocks-text-post-from-buffer))
+  #'(lambda () (call-interactively 'tumblesocks-text-post-from-buffer))
   "The action to run when finishing posting")
 (defvar tumblesocks-compose-continuation nil
   "Optional action to run when finishing editing or posting.
@@ -38,7 +38,7 @@ tumblesocks-view uses this to refresh buffers, for example.")
   "Major mode for composing a new Tumblr post."
   (make-local-variable 'tumblesocks-compose-finish-action)
   (setq tumblesocks-compose-finish-action
-          '(lambda () (call-interactively 'tumblesocks-text-post-from-buffer)))
+          #'(lambda () (call-interactively 'tumblesocks-text-post-from-buffer)))
   (make-local-variable 'tumblesocks-compose-editing-args)
   (make-local-variable 'tumblesocks-compose-editing-id)
   (make-local-variable 'tumblesocks-compose-continuation))

tumblesocks-pkg.el

@@ -1,5 +1,5 @@
-(define-package "tumblesocks" "0.0.6"
+(define-package "tumblesocks" "1.1.8"
   "An Emacs tumblr client."
-  '((htmlize "1.39")
-    (oauth "1.0.3")
-    (markdown-mode "1.8.1")))
+  '((htmlize "20210825.2150")
+    (oauth "20230706.2026")
+    (markdown-mode "20230830.1338")))

tumblesocks-user.el

@@ -42,7 +42,7 @@ the user what to do for each post."
                       "Blog URL to unfollow (TAB to complete): "
                       (let ((bloglist (plist-get (tumblesocks-api-user-following)
                                                  :blogs)))
-                        (mapcar '(lambda (blog)
+                        (mapcar #'(lambdao (blog)
                                    (plist-get blog :url))
                                 bloglist))
                       nil t)))
@@ -85,3 +85,6 @@ the user what to do for each post."
   "Create a new Tumblr markdown text post from the current buffer, returning the ID and copying the URL to the clipboard."
   (interactive "sTitle: \nsTags (optional, comma separated): ")
   (tumblesocks-text-post-from-region (point-min) (point-max) title tags))
+
+(provide 'tumblesocks-user)
+;;; tumblesocks-user.el ends here