58 lines
1.3 KiB
EmacsLisp
58 lines
1.3 KiB
EmacsLisp
;;; reddit.el --- Description -*- lexical-binding: t; -*-
|
|
;;
|
|
;; Copyright (C) 2021 Niten
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; Code:
|
|
|
|
(when (require 'md4rd nil 'noerror)
|
|
|
|
(setq md4rd-subs-active
|
|
'(academicbiblical
|
|
askhistorian
|
|
askreddit
|
|
askscience
|
|
bitcoin
|
|
changemyview
|
|
clojure
|
|
common_lisp
|
|
compsci
|
|
cryptocurrency
|
|
emacs
|
|
fire
|
|
futurelings
|
|
guile
|
|
guix
|
|
ipfs
|
|
learnprogramming
|
|
linux
|
|
lisp
|
|
neutralpolitics
|
|
nixos
|
|
outoftheloop
|
|
personalfinance
|
|
politics
|
|
programming
|
|
racket
|
|
science
|
|
todayilearned
|
|
unpopularopinion
|
|
worldnews))
|
|
|
|
(defun consider-refresh-md4rd-login ()
|
|
(when (and (boundp 'md4rd--oauth-client-id)
|
|
(boundp 'md4rd--oauth-access-token)
|
|
(boundp 'md4rd--oauth-refresh-token)
|
|
(not (string= "" md4rd--oauth-client-id))
|
|
(not (string= "" md4rd--oauth-access-token))
|
|
(not (string= "" md4rd--oauth-refresh-token)))
|
|
(md4rd-refresh-login)))
|
|
|
|
(run-with-timer 0 3540 'consider-refresh-md4rd-login)
|
|
|
|
(add-hook 'md4rd-mode-hook 'md4rd-indent-all-the-lines))
|
|
|
|
(provide 'reddit)
|
|
;;; reddit.el ends here
|