;;;;;;;;;;;;;;
;; Org-mode ;;
;;;;;;;;;;;;;;

(defun get-user-or-password-from-node (type)
  "Extract username or password from the current"
  (assert (member type '(user pass USER PASS)))
  ;; Probably superfluous, given the mode-specific bindings below
  (assert (eq (with-current-buffer (current-buffer) major-mode) 'org-mode))
  (let ((item (org-entry-get nil "ITEM")))
    (if item
	(let* ((name (mapconcat #'downcase (list item (symbol-name type)) "-"))
	       (content (cdr (org-babel-ref-parse (format "_=%s" name)))))
	  (if content
	      (string-trim content)
	    (message "No item of type %s in current node." type)))
      (message "Cursor not inside an Org mode node."))))

(defun get-user-from-node ()
  (interactive)
  (let ((item (get-user-or-password-from-node 'user)))
    (when item
      (kill-new item)
      (message "User name copied to kill ring."))))

(defun get-password-from-node ()
  (interactive)
  (let ((item (get-user-or-password-from-node 'pass)))
    (when item
      (kill-new item)
      (message "Password copied to kill ring."))))

(define-key org-mode-map (kbd "M-g M-u") 'get-user-from-node)
(define-key org-mode-map (kbd "M-g M-p") 'get-password-from-node)