chd/.emacs.d/jlj-social.el

;; This is such a pain in the dick. Its really nice to be able to chat within emacs
;; - but i think i regret not using weechat 

;; The bit about ~;(setf epa-pinentry-mode 'loopback)~ is important:
;; - 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.

;; 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)))

(require 'org)

(defun org-pinboard-store-link ()
  "Store a link taken from a pinboard buffer."
  (when (eq major-mode 'pinboard-mode)
    (pinboard-with-current-pin pin
      (org-store-link-props
       :type "pinboard"
       :link (alist-get 'href pin)
       :description (alist-get 'description pin)))))

(org-link-set-parameters "pinboard"
                         :follow #'browse-url
                         :store #'org-pinboard-store-link)

;;;; 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
  (progn
    (custom-set-variables '(epg-gpg-program  "/usr/local/bin/gpg"))


    ;; 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))

    ;; by default, erc alerts you on any activity. I only want to hear
    ;; about mentions of nick or keyword
    (custom-set-variables
     '(znc-servers
       `(("bouncer.awful.club" 5000 t
	  ((freenode "blindidiotgod/freenode" ,znc-password)
	   (comintern "blindidiotgod/comintern" ,znc-password))))))
     (setq erc-current-nick-highlight-type 'all)
     (setq erc-keywords '("security"))
     (setq erc-track-exclude-types '("JOIN" "PART" "NICK" "MODE" "QUIT"))
     (setq erc-track-use-faces t)
     (setq erc-track-faces-priority-list
	   '(erc-current-nick-face erc-keyword-face))
     (setq erc-track-priority-faces-only 'all)
     (setq erc-hide-list '("PART" "QUIT" "JOIN"))
     (setq erc-join-buffer 'bury)))