# HG changeset patch
# User Davor Ocelic <docelic@crystallabs.io>
# Date 1557341104 -7200
# Node ID 6c14c49fe4297f48c2b4d08f6b787d14d9d11e5a
# Parent  7f804e1f903ca3aaccd782e180e90667fa14c05e
Improve defining aliases with = or ' '

diff -r 7f804e1f903c -r 6c14c49fe429 shelldap
--- a/shelldap	Tue May 07 19:34:40 2019 +0200
+++ b/shelldap	Wed May 08 20:45:04 2019 +0200
@@ -1596,18 +1596,19 @@
 		unless( $cmd_args) {
 			print "alias: $alias: not found\n";
 		} else {
-			print "alias $alias=${\( join ', ', map {\"'$_'\"} @{$cmd_args})}\n";
+			print "alias $alias=${\( join ' ', map { $_=~ /\s/ ? \"'$_'\" : $_} @{$cmd_args})}\n";
 		}
 		return
 
 	# There is argument with =, so the line is a new alias definition
 	} else {
-		my($alias, $command) = ($cmd_alias =~ m/^(\S+?)[=\s]?(.*)$/);
+		my($alias, $alias2, $command) = ($cmd_alias =~ m/^([a-zA-Z0-9_-]+)$|^(\S+?)[\=\s]+(.+)$/);
+		$alias = $alias2 if $alias2;
 		unless( $alias) {
 			print "Invalid syntax.\n";
 			return
 		}
-		$command = $cmd_map{$command}[0] if $cmd_map{$command} and $cmd_map{$command}[0];
+		$command = $cmd_map{$command}[0] if $command and $cmd_map{$command} and $cmd_map{$command}[0];
 		$conf->{alias}{$alias} = [ $command ? $command : (), @_ ];
 	}
 }