diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index eaa16874..a851cc4d 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -763,10 +763,9 @@ A macro for composing functions together to build an interactive command to copy (setq lexical-binding new-binding))) #+END_SRC ** Other +The stuff in this section is pretty crusty. I don't think its used anywhere, but +I keep it around just in case I need it. #+BEGIN_SRC emacs-lisp -(defun imalison:join-paths (&rest paths) - (substring (mapconcat 'file-name-as-directory paths nil) 0 -1)) - (defun random-choice (choices) (nth (random (length choices)) choices)) @@ -835,12 +834,6 @@ A macro for composing functions together to build an interactive command to copy (defun make-frame-if-none-exists-and-focus () (make-frame-visible (select-frame (make-frame-if-none-exists)))) -(defun open-pdf () - (interactive) - (let ( (pdf-file (replace-regexp-in-string - "\.tex$" ".pdf" buffer-file-name))) - (shell-command (concat "open " pdf-file)))) - (defun notification-center (title message) (cl-flet ((encfn (s) (encode-coding-string s (keyboard-coding-system)))) (shell-command