Update social;upadate package installs; configure pinboard.

This commit is contained in:
josiah 2020-03-21 22:44:17 +00:00
parent cb680e1555
commit 83ab0080d7
3 changed files with 53 additions and 28 deletions

View File

@ -41,7 +41,7 @@
'(epg-gpg-program "/usr/local/bin/gpg") '(epg-gpg-program "/usr/local/bin/gpg")
'(global-hl-line-mode t) '(global-hl-line-mode t)
'(package-selected-packages '(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 '(znc-servers
`(("bouncer.awful.club" 5000 t `(("bouncer.awful.club" 5000 t
((freenode "blindidiotgod/freenode" ,znc-password) ((freenode "blindidiotgod/freenode" ,znc-password)

Binary file not shown.

View File

@ -5,8 +5,46 @@
;; - uncomment if you want to only use emacs to input/manage the gpg key ;; - 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. ;; - comment out if you want gpg to be handled through seahorse/gnome keyring.
;; (when (eq system-type 'darwin) ;; configure global auth constants
;; (setf epa-pinentry-mode 'loopback)) (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 ;; (use-package znc
;; :ensure t ;; :ensure t
;; :config ;; :config
@ -14,21 +52,20 @@
;; (custom-set-variables '(epg-gpg-program "/usr/local/bin/gpg")) ;; (custom-set-variables '(epg-gpg-program "/usr/local/bin/gpg"))
;; (setq auth-sources `("~/Documents/projects/agares/applicationConfiguration/.emacs/jlj-secrets.gpg")) ;; (setq auth-sources `("~/Documents/projects/agares/applicationConfiguration/.emacs/jlj-secrets.gpg"))
;; (require 'epa)
;; ;; handle annoying gpg shit. ;; handle annoying gpg shit.
;; (defun lookup-password (host user port) (defun lookup-password (host user port)
;; "Lookup encrypted password given HOST, USER and PORT for service." "Lookup encrypted password given HOST, USER and PORT for service."
;; (require 'auth-source) (require 'auth-source)
;; (funcall (plist-get (funcall (plist-get
;; (car (auth-source-search (car (auth-source-search
;; :host host :host host
;; :user user :user user
;; :type 'netrc :type 'netrc
;; :port port)) :port port))
;; :secret))) :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 ;; ;; by default, erc alerts you on any activity. I only want to hear
;; ;; about mentions of nick or keyword ;; ;; about mentions of nick or keyword
@ -47,15 +84,3 @@
;; (setq erc-hide-list '("PART" "QUIT" "JOIN")) ;; (setq erc-hide-list '("PART" "QUIT" "JOIN"))
;; (setq erc-join-buffer 'bury))) ;; (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))))