Skip to content

Latest commit

 

History

History
58 lines (43 loc) · 1.35 KB

examples.md

File metadata and controls

58 lines (43 loc) · 1.35 KB
Raw

Single Shell Commands

Shutdown Raspberry Pi

Assuming the Raspberry Pi is equipped with a X735 Power Management Board.

(friendly-shell-command-async
 "x730shutdown.sh"
 :output-buffer "*shutdown - raspberry*"
 :path "/ssh:pi@raspberry|sudo::/")

Otherwise:

(friendly-shell-command-async
 "halt"
 :output-buffer "*shutdown - raspberry*"
 :path "/ssh:pi@raspberry|sudo::/")

youtube-dl on a NAS

Assuming we're login in as the same user on the NAS with hostname nas.

(defun shell-cmd/yt-dl-on-nas (&optional url)
  (interactive)
  (let ((url (or url (read-string "URL: "))))
    (friendly-shell-command-async
     (concat "youtube-dl " url)
     :output-buffer (concat "*yt-dl - " url "*")
     :path "/ssh:nas:/volume1/download/")))

Interactive Shell-Spawning Commands

Git bash (under Windows)

(defun shell/git-bash (&optional path)
  (interactive)
  (friendly-shell :path path
                  :interpreter "C:/Program Files/Git/bin/bash.exe"))

Cygwin bash (under Windows)

(defun prf/tramp/shell/cygwin-bash (&optional path)
  (interactive)
  (friendly-shell :path path
                  :interpreter "c:/cygwin64/bin/bash.exe"
                  :interpreter-args (list "--init-file" (concat "/home/" (getenv "USERNAME") "/.bashrc"))))