Zsh: Make functions also usable as shell scripts
This commit is contained in:
parent
7cc2df5318
commit
c00f5dce6e
|
@ -1,25 +1,22 @@
|
|||
# -*- mode: shell-script; -*-
|
||||
|
||||
#!/usr/bin/env zsh
|
||||
# Highlight cat output with whatever less is using for highlighting. The command
|
||||
# in $LESSOPEN needs to be able to work with multiple files.
|
||||
function cat-highlight()
|
||||
{
|
||||
# Check if we are in a terminal and $LESSOPEN is not empty
|
||||
if [[ -t 1 && -n "${LESSOPEN}" ]]; then
|
||||
local -a args
|
||||
local -a files
|
||||
for arg in "${@}"; do
|
||||
# Filter out file names
|
||||
if [[ "${arg[1]}" != "-" ]]; then
|
||||
files+="${arg}"
|
||||
else
|
||||
args+="${arg}"
|
||||
fi
|
||||
done
|
||||
|
||||
local catopen="${LESSOPEN/|/}"
|
||||
eval "${catopen/\%s/${files}} | \cat ${args}"
|
||||
else
|
||||
\cat "${@}"
|
||||
fi
|
||||
}
|
||||
# Check if we are in a terminal and $LESSOPEN is not empty
|
||||
if [[ -t 1 && -n "${LESSOPEN}" ]]; then
|
||||
local -a args
|
||||
local -a files
|
||||
for arg in "${@}"; do
|
||||
# Filter out file names
|
||||
if [[ "${arg[1]}" != "-" ]]; then
|
||||
files+="${arg}"
|
||||
else
|
||||
args+="${arg}"
|
||||
fi
|
||||
done
|
||||
|
||||
local catopen="${LESSOPEN/|/}"
|
||||
eval "${catopen/\%s/${files}} | \cat ${args}"
|
||||
else
|
||||
\cat "${@}"
|
||||
fi
|
||||
|
|
|
@ -1,18 +1,15 @@
|
|||
# -*- mode: shell-script; -*-
|
||||
|
||||
#!/usr/bin/env zsh
|
||||
# Export variable to Emacs.
|
||||
function export-emacs
|
||||
{
|
||||
if [[ ARGC -eq 0 ]]; then
|
||||
print -u 2 "Usage: ${0} <variable> …"
|
||||
return 1
|
||||
fi
|
||||
|
||||
# Fail if we can't communicate with the daemon
|
||||
[[ "$(emacsclient -e t)" == 't' ]] || return 1
|
||||
if [[ ARGC -eq 0 ]]; then
|
||||
print -u 2 "Usage: ${0} <variable> …"
|
||||
return 1
|
||||
fi
|
||||
|
||||
for name in "${@}"; do
|
||||
value=$(eval print \"\$${name}\")
|
||||
emacsclient -e "(setenv \"${name}\" \"${value}\")" >/dev/null
|
||||
done
|
||||
}
|
||||
# Fail if we can't communicate with the daemon
|
||||
[[ "$(emacsclient -e t)" == 't' ]] || return 1
|
||||
|
||||
for name in "${@}"; do
|
||||
value=$(eval print \"\$${name}\")
|
||||
emacsclient -e "(setenv \"${name}\" \"${value}\")" >/dev/null
|
||||
done
|
||||
|
|
|
@ -1,19 +1,16 @@
|
|||
# -*- mode: shell-script; -*-
|
||||
|
||||
#!/usr/bin/env zsh
|
||||
# Get backtrace from gdb
|
||||
function gdb_get_backtrace()
|
||||
{
|
||||
if [[ ${ARGC} -ne 2 ]]; then
|
||||
print -u 2 "Usage: ${0} <executable> <core dump>"
|
||||
return 1
|
||||
fi
|
||||
local exe="${1}"
|
||||
local core="${2}"
|
||||
|
||||
gdb "${exe}" \
|
||||
--core "${core}" \
|
||||
--batch \
|
||||
--quiet \
|
||||
-ex "thread apply all bt full" \
|
||||
-ex "quit"
|
||||
}
|
||||
if [[ ${ARGC} -ne 2 ]]; then
|
||||
print -u 2 "Usage: ${0} <executable> <core dump>"
|
||||
return 1
|
||||
fi
|
||||
local exe="${1}"
|
||||
local core="${2}"
|
||||
|
||||
gdb "${exe}" \
|
||||
--core "${core}" \
|
||||
--batch \
|
||||
--quiet \
|
||||
-ex "thread apply all bt full" \
|
||||
-ex "quit"
|
||||
|
|
|
@ -1,18 +1,15 @@
|
|||
# -*- mode: shell-script; -*-
|
||||
|
||||
#!/usr/bin/env zsh
|
||||
# Makes all files in <directory> lower case. Works with Non-ASCII characters.
|
||||
# Equivalent to `zmv "${dir}/(*)" '${dir}/${1:l}'`
|
||||
function mksmol()
|
||||
{
|
||||
if [[ ${ARGC} -ne 1 ]]; then
|
||||
print -u 2 "Usage: ${0} <directory>" >&2
|
||||
return 1
|
||||
fi
|
||||
local dir="${1}"
|
||||
|
||||
for file in "${dir}"/*; do
|
||||
basename="${file##*/}"
|
||||
newfile="${dir}/${basename:l}"
|
||||
[[ "${file}" != "${newfile}" ]] && mv "${file}" "${newfile}" || :
|
||||
done
|
||||
}
|
||||
if [[ ${ARGC} -ne 1 ]]; then
|
||||
print -u 2 "Usage: ${0} <directory>" >&2
|
||||
return 1
|
||||
fi
|
||||
local dir="${1}"
|
||||
|
||||
for file in "${dir}"/*; do
|
||||
basename="${file##*/}"
|
||||
newfile="${dir}/${basename:l}"
|
||||
[[ "${file}" != "${newfile}" ]] && mv "${file}" "${newfile}" || :
|
||||
done
|
||||
|
|
Loading…
Reference in New Issue