(defun elchemy/replace-in-buffer ()
  "Replace strings in buffer"
  (interactive)
  (save-excursion
    (if (equal mark-active nil) (mark-word))
    (setq elchemy/rib/current-word (buffer-substring-no-properties (mark) (point)))
    (setq elchemy/rib/old-string (read-string "OLD string: " elchemy/rib/current-word))
    (setq elchemy/rib/new-string (read-string "NEW string: " elchemy/rib/old-string))
    (query-replace elchemy/rib/old-string elchemy/rib/new-string nil (point-min) (point-max))))

(defun elchemy/add-to-pypath (&optional path)
  "* Add to python path"
  (interactive)
  (let* ((fullpath (if path
		       path
		     (ido-read-directory-name "Path: "))))
    (setenv "PYTHONPATH"
	    (let ((current (getenv "PYTHONPATH"))
		  (new fullpath))
	      (if current
		  (concat new ":" current)
		new)))))

(defun elchemy/personal/ignore-angle-brackets ()
  "Ignore angle brackets in org mode"
  (modify-syntax-entry ?< ".")
  (modify-syntax-entry ?> "."))

(defun elchemy/read-alist-file (file-path)
  "Read a file where each line is an alist of the form (name . location), returning a list of these pairs."
  (interactive "fEnter file path: ")
  (let (result)
    (with-temp-buffer
      (insert-file-contents file-path)
      (goto-char (point-min))
      (while (not (eobp))
        (let ((line (buffer-substring-no-properties (line-beginning-position) (line-end-position))))
          (when (not (string-blank-p line))
            (let ((pair (car (read-from-string line))))
              (push pair result))))
        (forward-line 1)))
    (reverse result)))

(defun elchemy/find-file (FILENAME)
  "Find File to new split"
  (let ((buffer (find-file-noselect FILENAME)))
    (when (one-window-p)
      (split-window-right))
    (other-window 1)
    (switch-to-buffer buffer)))

(defun elchemy/term (TERM)
  "Terminal to new split"
  (when (one-window-p)
    (split-window-right))
  (other-window 1)
  (term TERM))

(provide 'elchemy-functions)