diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 6c5ae74..3b67a1b 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -41,7 +41,7 @@ '(epg-gpg-program "/usr/local/bin/gpg") '(global-hl-line-mode t) '(package-selected-packages - (lsp poetry yasnippet company-lsp ob-restclient virtualenvwrapper flymake-python-pyflakes lsp-ui lsp-mode jedi znc yaml-mode which-key use-package twittering-mode try smex racer python-mode pylint py-autopep8 powershell pdf-tools outline-magic org2blog multiple-cursors magit helm flycheck-rust eyebrowse exec-path-from-shell emojify elpy ein doom-themes dockerfile-mode docker csharp-mode ansible anaconda-mode ace-window))) + '(pinboard yaml-mode which-key web-mode virtualenvwrapper use-package twittering-mode try smex racer powershell poetry pipenv ox-reveal outline-magic org-pdfview org-bullets ob-restclient multiple-cursors magit lua-mode lsp-ui iedit helm flycheck-rust exec-path-from-shell eglot edit-indirect company-lsp ansible ace-window))) '(znc-servers `(("bouncer.awful.club" 5000 t ((freenode "blindidiotgod/freenode" ,znc-password) diff --git a/.emacs.d/jlj-secrets.gpg b/.emacs.d/jlj-secrets.gpg index 9deeeee..bb58e2d 100644 Binary files a/.emacs.d/jlj-secrets.gpg and b/.emacs.d/jlj-secrets.gpg differ diff --git a/.emacs.d/jlj-social.el b/.emacs.d/jlj-social.el index e969323..0205b0f 100644 --- a/.emacs.d/jlj-social.el +++ b/.emacs.d/jlj-social.el @@ -5,8 +5,46 @@ ;; - uncomment if you want to only use emacs to input/manage the gpg key ;; - comment out if you want gpg to be handled through seahorse/gnome keyring. -;; (when (eq system-type 'darwin) -;; (setf epa-pinentry-mode 'loopback)) +;; configure global auth constants +(require 'epa) +(when (eq system-type 'darwin) + (setf epa-pinentry-mode 'loopback)) +(setq auth-sources '("~/.emacs.d/jlj-secrets.gpg")) +(setq auth-source-debug t) +(custom-set-variables '(epg-gpg-program "/usr/local/bin/gpg")) + +;; configure social functions +;;;; pinboard.el +(defun lookup-pinboard-password (host) + "Lookup encrypted password given HOST." + (require 'auth-source) + (funcall (plist-get + (car (auth-source-search + :host host + :type 'netrc)) + :secret))) + +(setq pinboard-password(lookup-pinboard-password "api.pinboard.in")) + +(use-package pinboard + :ensure t + :config + (progn + (setq pinboard-api-token pinboard-password))) + +;;;; twitter +;;;; the only thing that isn't pretty much stock is +;;;; - i rebound C-c C-o to open links, so it would mimic org-mode's layout. +(use-package twittering-mode + :ensure t + :config + (progn + (setq twittering-icon-mode t) + (setq twittering-reverse-mode t) + (setq twittering-enable-unread-status-notifier t) + (with-eval-after-load "twittering-mode" (define-key twittering-mode-map (kbd "C-c C-o") `twittering-view-user-page)))) + +;;;; irc ;; (use-package znc ;; :ensure t ;; :config @@ -14,21 +52,20 @@ ;; (custom-set-variables '(epg-gpg-program "/usr/local/bin/gpg")) ;; (setq auth-sources `("~/Documents/projects/agares/applicationConfiguration/.emacs/jlj-secrets.gpg")) -;; (require 'epa) -;; ;; handle annoying gpg shit. -;; (defun lookup-password (host user port) -;; "Lookup encrypted password given HOST, USER and PORT for service." -;; (require 'auth-source) -;; (funcall (plist-get -;; (car (auth-source-search -;; :host host -;; :user user -;; :type 'netrc -;; :port port)) -;; :secret))) + ;; handle annoying gpg shit. + (defun lookup-password (host user port) + "Lookup encrypted password given HOST, USER and PORT for service." + (require 'auth-source) + (funcall (plist-get + (car (auth-source-search + :host host + :user user + :type 'netrc + :port port)) + :secret))) -;; (setq znc-password(lookup-password "bouncer.awful.club" "blindidiotgod/OFTC" 5000)) + (setq znc-password(lookup-password "bouncer.awful.club" "blindidiotgod/OFTC" 5000)) ;; ;; by default, erc alerts you on any activity. I only want to hear ;; ;; about mentions of nick or keyword @@ -47,15 +84,3 @@ ;; (setq erc-hide-list '("PART" "QUIT" "JOIN")) ;; (setq erc-join-buffer 'bury))) - -;; the only thing that isn't pretty much stock is -;; - i rebound C-c C-o to open links, so it would mimic org-mode's layout. - -(use-package twittering-mode - :ensure t - :config - (progn - (setq twittering-icon-mode t) - (setq twittering-reverse-mode t) - (setq twittering-enable-unread-status-notifier t) - (with-eval-after-load "twittering-mode" (define-key twittering-mode-map (kbd "C-c C-o") `twittering-view-user-page))))