wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[Emacs] Some housekeeping in the "Other" heading

Browse Source
This commit is contained in:
Ivan Malison 2016-09-30 13:09:29 -07:00
parent 086e46c898
commit c0a993ddbb
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
dotfiles/emacs.d/README.org
View File

@ -763,10 +763,9 @@ A macro for composing functions together to build an interactive command to copy
(setq lexical-binding new-binding))) (setq lexical-binding new-binding)))
#+END_SRC #+END_SRC
** Other ** 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 #+BEGIN_SRC emacs-lisp
(defun imalison:join-paths (&rest paths)
(substring (mapconcat 'file-name-as-directory paths nil) 0 -1))
(defun random-choice (choices) (defun random-choice (choices)
(nth (random (length choices)) 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 () (defun make-frame-if-none-exists-and-focus ()
(make-frame-visible (select-frame (make-frame-if-none-exists)))) (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) (defun notification-center (title message)
(cl-flet ((encfn (s) (encode-coding-string s (keyboard-coding-system)))) (cl-flet ((encfn (s) (encode-coding-string s (keyboard-coding-system))))
(shell-command (shell-command