From 83ab0080d71665f1c5ba22c8f756d0a8c868547e Mon Sep 17 00:00:00 2001 From: josiah Date: Sat, 21 Mar 2020 22:44:17 +0000 Subject: [PATCH] Update social;upadate package installs; configure pinboard. --- .emacs.d/init.el | 2 +- .emacs.d/jlj-secrets.gpg | Bin 440 -> 479 bytes .emacs.d/jlj-social.el | 79 ++++++++++++++++++++++++++------------- 3 files changed, 53 insertions(+), 28 deletions(-) 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 9deeeeee5bfbc9e4ab538a3635009beef433222d..bb58e2d8388a65460021c97bd574edc5d2ff17e3 100644 GIT binary patch literal 479 zcmV<50U-W`0Sp8A2s!1FcUZLn2mru+wGwuETA@|9%5zbL^e$=9e+oKxQ3!Vu4p<_u zM;(C`?K;FJfPr@CC+Vl=fJHBF!6zqgpXQk&u{154uW0wNp}vY_vaVZfO!^z4q2BYY zzlLX?qKa07esj(m?mh3-{BCBVNDrUG+LoaFU72BJdm>UG`ARu0E+(Y3KeCcgdG5^W zlaX)3Tu5jgjq4FtuZN0M1HQi5!kz z+x7)GC6f0CEdbh20_50x*$0p@=bQ*wDjz^h@X$M3N-TD-!S+iS=ptC2{EMC=YO=1A z^EyhPsCR)A>D#-az->0}WJA)x4FUS@(3+l}D3cIT-cIrH!m|&V=j!3y^*=RUvtu^@01qqM zvd5MsonQ-3O|?0piC`&caQlnzd3J+A%!HaLJe$rLgFo;PDV-=uP!+F;@zg~C!t7fz zvYQ^a_s0^tZB;WSs&Fv!b5_6lVysA*sA4_d4aAWt5`9ETEM@gT1=$i|z14O`=Yd0u V#sO5TOYF!SLTh)GwSkbXfVdfS>X`rl literal 440 zcmV;p0Z0CY0Sp8A2s!1FcUZLn2mUjd3_YU(`djbN*5p5pXVfDJUL)7}H+v^IHhGB3 zCFv8*CsY7|i=;qTd9Z3dg|zAe-3E75VbL7B%e9Jc>{_}x5E4sw3*?IJ>eO;O@+`M0 zzv({q*dTY6;{U2xUTr~e0s{26VB00A9LE7+9B!b@W&_3Y{(Y|TM(Q|;8%kun{z2+^ zYvNgxJ*1S@I-zybzJi&ym`flmqv19%K_gez`HQondn-ja6aFnW!*lqwo*Rp5Zh ziN^~z1pEz${{&1AZ6>x_tJA$HU`tZyiDbJ=RW!eGaDy_hCU=WZ>c3XGffLU7+ zH(+?nZ)wIJ2Y!BGl}rVPEaK9q0nLi$XiBN|G<9g-NRit-m;c6u57W;Gcj63uoHMjs zmBzoVoH7-3xoFs>%J8YLdxk1?{uPdLCaay;nY5X9bKk_ueGfI!@@+wR{^##>P7)Kz z7P`!g8l0k_N^X1{Ng4k&Q`wg5iL#tksA($OMAkg{qEHhSF%cXE7~jo 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))))