git-hub-shorten-url: Slug support

modules/git/functions/_git-hub-shorten-url

@@ -5,8 +5,11 @@
 # Completes git-hub-shorten-url.
 #
 # Authors:
+#   Joel Kuzmarski <leoj3n@gmail.com>
 #   Sorin Ionescu <sorin.ionescu@gmail.com>
 #
 
-_arguments '1:url:' && return 0
+_arguments \
+  '1:url:' \
+  '2:slug:' && return 0
 

modules/git/functions/git-hub-shorten-url

@@ -2,21 +2,29 @@
 # Shortens GitHub URLs.
 #
 # Authors:
+#   Joel Kuzmarski <leoj3n@gmail.com>
 #   Sorin Ionescu <sorin.ionescu@gmail.com>
 #
 
 local url="$1"
 
-if [[ "$url" == '-' ]]; then
-  read url <&0
-fi
-
 if [[ -z "$url" ]]; then
-  print "usage: $0 [ url | - ]" >&2
+  print "usage: $0 [ url | - ] [slug]" >&2
+  return 1
+elif [[ "$url" == '-' ]]; then
+  read url <&0
+elif [[ "$url" != *github.com* ]]; then
+  url="https://github.com/$url"
 fi
 
 if (( $+commands[curl] )); then
-  curl -s -i 'http://git.io' -F "url=$url" | grep 'Location:' | sed 's/Location: //'
+  local result="$(curl -s -i 'http://git.io' -F "url=$url" -F "code=$2")"
+
+  if [[ $result == *Unprocessable* ]]; then
+    print "$0: the slug '$2' is already taken!" >&2
+  else
+    print $result | grep 'Location:' | sed 's/Location: //'
+  fi
 else
   print "$0: command not found: curl" >&2
 fi

modules/pacman/functions/pacman-list-explicit

@@ -9,13 +9,10 @@
 pacman --query --explicit --info \
   | awk '
       BEGIN {
-        FS=" : "
+        FS=":"
       }
       /^Name/ {
-        printf "\033[0;01m" $2 "\033[0m"
-      }
-      /^Version/ {
-        print " \033[1;32m" $2 "\033[0m"
+        print $2
       }
       /^Description/ {
         print $2

modules/pacman/init.zsh

@@ -64,7 +64,7 @@ alias pacs="${_pacman_frontend} --sync --search"
 alias pacS="${_pacman_frontend} --query --search"
 
 # Lists orphan packages.
-alias pacman-list-orphans="${_pacman_frontend} --query --deps --unrequired"
+alias pacman-list-orphans="${_pacman_sudo}${_pacman_frontend} --query --deps --unrequired"
 
 # Removes orphan packages.
 alias pacman-remove-orphans="${_pacman_sudo}${_pacman_frontend} --remove --recursive \$(${_pacman_frontend} --quiet --query --deps --unrequired)"