artagnon/ublog.el

crash on init

Opened this issue · 0 comments

following the readme, I cloned the repo, Put the ublog.el directory in your Emacs loadpath and required ublog.el

(add-to-list 'load-path "/home/james/repos/ublog.el")
(require 'ublog)

then, after start up,

M-x twitter-init

and I have a crash dump as follows:

Debugger entered--Lisp error: (search-failed "

")
  search-forward("\n\n")
  (delete-region (point-min) (search-forward "\n\n"))
  (let ((token ...)) (set-buffer (oauth-do-request req)) (goto-char (point-min)) (delete-region (point-min) (search-forward "\n\n")) (loop for pair in (mapcar ... ...) do (cond ... ...)) token)
  oauth-fetch-token([cl-struct-oauth-request (("oauth_signature" . "PPeHgTGf4qiZOQipW6MzL1isQK0=") ("oauth_signature_method" . "HMAC-SHA1") ("oauth_consumer_key" . "K9vrCLHpp5vuln72ROufzQ") ("oauth_timestamp" . "1274902624") ("oauth_nonce" . "bpc2pi8vaarmpi8v") ("oauth_version" . "1.0")) nil "http://twitter.com/oauth/request_token" "GET"])
  (setq unauth-t (oauth-fetch-token unauth-req))
  (let ((auth-t) (auth-req) (unauth-t) (auth-url) (unauth-req ...)) (setq unauth-t (oauth-fetch-token unauth-req)) (setq auth-url (format "%s?oauth_token=%s" authorize-url ...)) (if oauth-enable-browse-url (browse-url auth-url)) (if access-callback (funcall access-callback) (read-string "Please authorize Twitel; Press enter once you have done so")) (setq auth-req (oauth-sign-request-hmac-sha1 ... consumer-secret)) (setq auth-t (oauth-fetch-token auth-req)) (make-oauth-access-token :consumer-key consumer-key :consumer-secret consumer-secret :auth-t auth-t))
  oauth-authorize-app("K9vrCLHpp5vuln72ROufzQ" "sUTgzZRgm0GCHQNYixFx3TS2D94TwaQv90gIXhTQNcE" "http://twitter.com/oauth/request_token" "http://twitter.com/oauth/access_token" "http://twitter.com/oauth/authorize" (lambda nil (let (...) (setq access-url ...))))
  (setq *ublog-access-token* (oauth-authorize-app *ublog-consumer-key* *ublog-consumer-secret* *ublog-request-url* *ublog-access-url* *ublog-user-authorize* callback))
  (let ((callback ...)) (setq *ublog-access-token* (oauth-authorize-app *ublog-consumer-key* *ublog-consumer-secret* *ublog-request-url* *ublog-access-url* *ublog-user-authorize* callback)))
  (if *ublog-access-token* nil (let (...) (setq *ublog-access-token* ...)) (save-excursion (find-file *ublog-token-file*) (end-of-buffer) (let ... ...) (save-buffer) (kill-this-buffer)))
  (unless *ublog-access-token* (let (...) (setq *ublog-access-token* ...)) (save-excursion (find-file *ublog-token-file*) (end-of-buffer) (let ... ...) (save-buffer) (kill-this-buffer)))
  (if (file-exists-p *ublog-token-file*) (save-excursion (find-file *ublog-token-file*) (let ... ...) (save-buffer) (kill-this-buffer)) (unless *ublog-access-token* (let ... ...) (save-excursion ... ... ... ... ...)) *ublog-access-token*)
  twitter-authenticate()
  twitter-init()
  call-interactively(twitter-init t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)