Old News. Just as troubling as ever.
I have yet to find a GNU/Linux distro on which Emacs is natively available, out of the box.
Wednesday, August 12, 2015
Sunday, August 9, 2015
Emacs tool for browsing audio files
In this post on another blog of mine I posted emacs lisp code for a tool, which I boldly stole from dired-mplayer: dired-vlc. Vlc is an excellent video player. The code I posted allows one to rapidly and immediately play a video file/clip in Emacs dired, the directory browsing tool that I like the best.
I have some video files, wav and mp3, and I wish to sort them. So I edited the above mentioned code, and saved it to the file dired-audacious.el. It was unbelievably easy and speedy to browse through the dozens of files, and delete the unwanted ones.
In the above linked post, I mentioned another tool I cobbled together from other people's code, an improvement to org-mode's time marking code, to enable me to save a time mark within the video I am watching and type notes. From these I have been able to easily compile indexes to videos and clips, for teaching purposes. Dired-vlc was crucial.
Here is the code for dired-audacious. It works only if one runs linux and has audacious installed as a sound player.
;==== %<===== Begin dired-audacious.el =========
(require 'org)
(defvar dired-audacious-program "/usr/bin/audacious")
(defun dired-audacious (&optional timer)
"Asynchronously start vlc on file through dired. If an optional
argument is given (C-u), the org relative timer is started. This
function purports to start vlc in rc mode, to leave open the
possibility of remote control."
(interactive "P")
(let ((file (expand-file-name (dired-get-filename)))
ext files basename dir curr-file ;idx-file sub-file srt-file
command options)
(setq basename (file-name-nondirectory
(file-name-sans-extension file)))
(setq dir (file-name-directory file))
(setq files (directory-files dir t basename))
(delete file files)
(setq command (format "\"%s\" \"%s" dired-audacious-program "--intf rc"))
(if (y-or-n-p (format "Run command %s?" command))
(start-process "junk" nil dired-audacious-program file)))
(if (equal timer '(4)) (org-timer-start))
)
;; end dired-audacious.el
For explanation, please contact me
I have some video files, wav and mp3, and I wish to sort them. So I edited the above mentioned code, and saved it to the file dired-audacious.el. It was unbelievably easy and speedy to browse through the dozens of files, and delete the unwanted ones.
In the above linked post, I mentioned another tool I cobbled together from other people's code, an improvement to org-mode's time marking code, to enable me to save a time mark within the video I am watching and type notes. From these I have been able to easily compile indexes to videos and clips, for teaching purposes. Dired-vlc was crucial.
Here is the code for dired-audacious. It works only if one runs linux and has audacious installed as a sound player.
;==== %<===== Begin dired-audacious.el =========
(require 'org)
(defvar dired-audacious-program "/usr/bin/audacious")
(defun dired-audacious (&optional timer)
"Asynchronously start vlc on file through dired. If an optional
argument is given (C-u), the org relative timer is started. This
function purports to start vlc in rc mode, to leave open the
possibility of remote control."
(interactive "P")
(let ((file (expand-file-name (dired-get-filename)))
ext files basename dir curr-file ;idx-file sub-file srt-file
command options)
(setq basename (file-name-nondirectory
(file-name-sans-extension file)))
(setq dir (file-name-directory file))
(setq files (directory-files dir t basename))
(delete file files)
(setq command (format "\"%s\" \"%s" dired-audacious-program "--intf rc"))
(if (y-or-n-p (format "Run command %s?" command))
(start-process "junk" nil dired-audacious-program file)))
(if (equal timer '(4)) (org-timer-start))
)
;; end dired-audacious.el
For explanation, please contact me
Search: Pencil Point Protectors
In days of yore, metal pencil caps were found at an art supply store. I want some. Amazingly, like most truly useful things, they are not easy to find. Today is not the first day I have enlisted Google to search for some, or some way to make them. Here's a little of what I found. Dick Blick's art supply has some, at least online.
- Plastic Save-A-Point pencil caps. These are all I found at Aaron Brothers. They are crap. Do not buy them unless you only sharpen pencils with a cheap plastic hand held sharpener. The well sharpened point will protrude through the small hole at the point of the cap, and be easily broken off, or poke you.
- DIY Paper point protectors
- Jetpen has three or four varieties of point protectors
- Maybe Dick Blicks would have metal ones
- Plastic models (General Pencil?) at Aaron Brothers
- I think there may be a design on thingaverse for 3D printers.
Subscribe to:
Posts (Atom)