emacs: Add missing shell completions.
* emacs/guix-pcomplete.el (guix-pcomplete-complete-option-arg): Complete file name for '--install-from-file' option of 'guix package' command, and for '--file' and '--with-source' options of 'guix build' command.
This commit is contained in:
		
							parent
							
								
									75418ae0fd
								
							
						
					
					
						commit
						883fc5ed42
					
				
					 1 changed files with 5 additions and 2 deletions
				
			
		| 
						 | 
					@ -262,7 +262,8 @@ INPUT is the current partially completed string."
 | 
				
			||||||
        (complete (guix-pcomplete-all-packages)))
 | 
					        (complete (guix-pcomplete-all-packages)))
 | 
				
			||||||
       ((option? "-p" "--profile")
 | 
					       ((option? "-p" "--profile")
 | 
				
			||||||
        (complete* (pcomplete-dirs)))
 | 
					        (complete* (pcomplete-dirs)))
 | 
				
			||||||
       ((option? "-m" "--manifest")
 | 
					       ((or (option? "-f" "--install-from-file")
 | 
				
			||||||
 | 
					            (option? "-m" "--manifest"))
 | 
				
			||||||
        (complete* (pcomplete-entries)))))
 | 
					        (complete* (pcomplete-entries)))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
     ((and (command? "archive" "build" "size")
 | 
					     ((and (command? "archive" "build" "size")
 | 
				
			||||||
| 
						 | 
					@ -270,7 +271,9 @@ INPUT is the current partially completed string."
 | 
				
			||||||
      (complete* guix-help-system-types))
 | 
					      (complete* guix-help-system-types))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
     ((and (command? "build")
 | 
					     ((and (command? "build")
 | 
				
			||||||
           (option? "-r" "--root"))
 | 
					           (or (option? "-f" "--file")
 | 
				
			||||||
 | 
					               (option? "-r" "--root")
 | 
				
			||||||
 | 
					               (string= "--with-source" option)))
 | 
				
			||||||
      (complete* (pcomplete-entries)))
 | 
					      (complete* (pcomplete-entries)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
     ((and (command? "graph")
 | 
					     ((and (command? "graph")
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue