![robby@planetargon.com](/assets/img/avatar_default.png)
6 changed files with 232 additions and 0 deletions
@ -0,0 +1,60 @@ |
|||||||
|
# https://github.com/dbbolton/ |
||||||
|
# |
||||||
|
# Debian-related zsh aliases and functions for zsh |
||||||
|
|
||||||
|
|
||||||
|
# Aliases ################################################################### |
||||||
|
|
||||||
|
# Some self-explanatory aliases |
||||||
|
alias afs='apt-file search --regexp' |
||||||
|
alias aps='aptitude search' |
||||||
|
alias apsrc='apt-get source' |
||||||
|
alias apv='apt-cache policy' |
||||||
|
|
||||||
|
alias apdg='su -c "aptitude update && aptitude safe-upgrade"' |
||||||
|
alias apud='su -c "aptitude update"' |
||||||
|
alias apug='su -c "aptitude safe-upgrade"' |
||||||
|
|
||||||
|
# print all installed packages |
||||||
|
alias allpkgs='aptitude search -F "%p" --disable-columns ~i' |
||||||
|
|
||||||
|
# Install all .deb files in the current directory. |
||||||
|
# Warning: you will need to put the glob in single quotes if you use: |
||||||
|
# glob_subst |
||||||
|
alias di='su -c "dpkg -i ./*.deb"' |
||||||
|
|
||||||
|
# Create a basic .deb package |
||||||
|
alias mydeb='time dpkg-buildpackage -rfakeroot -us -uc' |
||||||
|
|
||||||
|
# Remove ALL kernel images and headers EXCEPT the one in use |
||||||
|
alias kclean='su -c '\''aptitude remove -P ?and(~i~nlinux-(ima|hea) ?not(~n`uname -r`))'\'' root' |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Functions ################################################################# |
||||||
|
|
||||||
|
# create a simple script that can be used to 'duplicate' a system |
||||||
|
apt-copy() { |
||||||
|
print '#!/bin/sh'"\n" > apt-copy.sh |
||||||
|
|
||||||
|
list=$(perl -m'AptPkg::Cache' -e '$c=AptPkg::Cache->new; for (keys %$c){ push @a, $_ if $c->{$_}->{'CurrentState'} eq 'Installed';} print "$_ " for sort @a;') |
||||||
|
|
||||||
|
print 'aptitude install '"$list\n" >> apt-copy.sh |
||||||
|
|
||||||
|
chmod +x apt-copy.sh |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# Kernel-package building shortcut |
||||||
|
dbb-build () { |
||||||
|
MAKEFLAGS='' # temporarily unset MAKEFLAGS ( '-j3' will fail ) |
||||||
|
appendage='-custom' # this shows up in $ (uname -r ) |
||||||
|
revision=$(date +"%Y%m%d") # this shows up in the .deb file name |
||||||
|
|
||||||
|
make-kpkg clean |
||||||
|
|
||||||
|
time fakeroot make-kpkg --append-to-version "$appendage" --revision \ |
||||||
|
"$revision" kernel_image kernel_headers |
||||||
|
} |
||||||
|
|
||||||
|
|
@ -0,0 +1,89 @@ |
|||||||
|
#compdef port |
||||||
|
|
||||||
|
local subcmds |
||||||
|
|
||||||
|
# we cache the list of ports |
||||||
|
# we shall use some cache policy to avoid problems with new ports |
||||||
|
if (( ! $+portlist )); then |
||||||
|
portlist=($(port echo all; echo "all current active inactive installed uninstalled outdated")) |
||||||
|
fi |
||||||
|
|
||||||
|
subcmds=( |
||||||
|
'activate' |
||||||
|
'archive' |
||||||
|
'build' |
||||||
|
'cat' |
||||||
|
'clean' |
||||||
|
'configure' |
||||||
|
'contents' |
||||||
|
'deactivate' |
||||||
|
'dependents' |
||||||
|
'deps' |
||||||
|
'destroot' |
||||||
|
'dir' |
||||||
|
'distcheck' |
||||||
|
'distclean' |
||||||
|
'dmg' |
||||||
|
'echo' |
||||||
|
'edit' |
||||||
|
'extract' |
||||||
|
'fetch' |
||||||
|
'file' |
||||||
|
'help' |
||||||
|
'info' |
||||||
|
'install' |
||||||
|
'installed' |
||||||
|
'list' |
||||||
|
'livecheck' |
||||||
|
'location' |
||||||
|
'mpkg' |
||||||
|
'outdated' |
||||||
|
'patch' |
||||||
|
'pkg' |
||||||
|
'provides' |
||||||
|
'rpmpackage' |
||||||
|
'search' |
||||||
|
'selfupdate' |
||||||
|
'sync' |
||||||
|
'test' |
||||||
|
'unarchive' |
||||||
|
'uninstall' |
||||||
|
'upgrade' |
||||||
|
'variants' |
||||||
|
'version' |
||||||
|
) |
||||||
|
|
||||||
|
_arguments -C \ |
||||||
|
'-v[verbose mode (generate verbose messages)]' \ |
||||||
|
'-d[debug mode (generate debugging messages)]' \ |
||||||
|
'-q[quiet mode (suppress messages)]' \ |
||||||
|
'-D[specify portdir]' \ |
||||||
|
'-k[keep mode (do not autoclean after install)]' \ |
||||||
|
'-n[dont follow dependencies in upgrade (only for upgrading)]' \ |
||||||
|
'-a[upgrade all installed ports (only for upgrading)]' \ |
||||||
|
'-u[uninstall non-active ports when upgrading and uninstalling]' \ |
||||||
|
'-f[force mode (ignore state file)]' \ |
||||||
|
'-s[source-only mode]' \ |
||||||
|
'-b[binary-only mode]' \ |
||||||
|
'-o[honor state files older than Portfile]' \ |
||||||
|
'*::command:->command' \ |
||||||
|
&& return 0 |
||||||
|
|
||||||
|
case $state in |
||||||
|
command) |
||||||
|
if ((CURRENT == 1)); then |
||||||
|
state=subcommands |
||||||
|
else |
||||||
|
state=portname |
||||||
|
fi |
||||||
|
;; |
||||||
|
esac |
||||||
|
|
||||||
|
case $state in |
||||||
|
subcommands) |
||||||
|
_describe -t commands 'port commands' subcmds |
||||||
|
;; |
||||||
|
portname) |
||||||
|
_describe -t commands 'available ports' portlist |
||||||
|
;; |
||||||
|
esac |
@ -0,0 +1,62 @@ |
|||||||
|
# https://github.com/dbbolton |
||||||
|
# |
||||||
|
# Below are some useful Perl-related aliases/functions that I use with zsh. |
||||||
|
|
||||||
|
|
||||||
|
# Aliases ################################################################### |
||||||
|
|
||||||
|
# perlbrew ######## |
||||||
|
alias pbi='perlbrew install' |
||||||
|
alias pbl='perlbrew list' |
||||||
|
alias pbo='perlbrew off' |
||||||
|
alias pbs='perlbrew switch' |
||||||
|
alias pbu='perlbrew use' |
||||||
|
|
||||||
|
# Perl ############ |
||||||
|
|
||||||
|
# perldoc` |
||||||
|
alias pd='perldoc' |
||||||
|
|
||||||
|
# use perl like awk/sed |
||||||
|
alias ple='perl -wlne' |
||||||
|
|
||||||
|
# show the latest stable release of Perl |
||||||
|
alias latest-perl='curl -s http://www.perl.org/get.html | perl -wlne '\''if (/perl\-([\d\.]+)\.tar\.gz/) { print $1; exit;}'\' |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Functions ################################################################# |
||||||
|
|
||||||
|
# newpl - creates a basic Perl script file and opens it with $EDITOR |
||||||
|
newpl () { |
||||||
|
# set $EDITOR to 'vim' if it is undefined |
||||||
|
[[ -z $EDITOR ]] && EDITOR=vim |
||||||
|
|
||||||
|
# if the file exists, just open it |
||||||
|
[[ -e $1 ]] && print "$1 exists; not modifying.\n" && $EDITOR $1 |
||||||
|
|
||||||
|
# if it doesn't, make it, and open it |
||||||
|
[[ ! -e $1 ]] && print '#!/usr/bin/perl'"\n"'use strict;'"\n"'use warnings;'\ |
||||||
|
"\n\n" > $1 && $EDITOR $1 |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# pgs - Perl Global Substitution |
||||||
|
# find pattern = 1st arg |
||||||
|
# replace pattern = 2nd arg |
||||||
|
# filename = 3rd arg |
||||||
|
pgs() { # [find] [replace] [filename] |
||||||
|
perl -i.orig -pe 's/'"$1"'/'"$2"'/g' "$3" |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# Perl grep, because 'grep -P' is terrible. Lets you work with pipes or files. |
||||||
|
prep() { # [pattern] [filename unless STDOUT] |
||||||
|
perl -nle 'print if /'"$1"'/;' $2 |
||||||
|
} |
||||||
|
|
||||||
|
# say - append a newline to 'print' |
||||||
|
say() { |
||||||
|
print "$1\n" |
||||||
|
} |
||||||
|
|
@ -0,0 +1,15 @@ |
|||||||
|
ZSH_THEME_GIT_PROMPT_PREFIX=" %{$fg[green]%}" |
||||||
|
ZSH_THEME_GIT_PROMPT_SUFFIX="%{$reset_color%}" |
||||||
|
ZSH_THEME_GIT_PROMPT_DIRTY=" %{$fg[red]%}⚡" |
||||||
|
ZSH_THEME_GIT_PROMPT_CLEAN="" |
||||||
|
|
||||||
|
function prompt_char { |
||||||
|
if [ $UID -eq 0 ]; then echo "%{$fg[red]%}#%{$reset_color%}"; else echo $; fi |
||||||
|
} |
||||||
|
|
||||||
|
PROMPT='%(?, ,%{$fg[red]%}FAIL: $?%{$reset_color%} |
||||||
|
) |
||||||
|
%{$fg[magenta]%}%n%{$reset_color%}@%{$fg[yellow]%}%m%{$reset_color%}: %{$fg_bold[blue]%}%~%{$reset_color%}$(git_prompt_info) |
||||||
|
%_$(prompt_char) ' |
||||||
|
|
||||||
|
RPROMPT='%{$fg[green]%}[%*]%{$reset_color%}' |
Loading…
Reference in new issue