services: gnome: Register more polkit actions.
This should allow more operations such as changing the system date and time via the Control Center (reported at <https://lists.gnu.org/archive/html/help-guix/2016-09/msg00059.html>), performing "file operations" via gvfs, and interacting with processes using the System Monitor. * gnu/services/desktop.scm (gnome-polkit-settings): New procedure. (gnome-desktop-service-type): Use it in POLKIT-SERVICE-TYPE extension.
This commit is contained in:
		
							parent
							
								
									22345a8ed7
								
							
						
					
					
						commit
						b27ce4164a
					
				
					 1 changed files with 12 additions and 4 deletions
				
			
		|  | @ -780,15 +780,23 @@ accountsservice web site} for more information." | ||||||
|   gnome-desktop-configuration |   gnome-desktop-configuration | ||||||
|   (gnome-package gnome-package (default gnome))) |   (gnome-package gnome-package (default gnome))) | ||||||
| 
 | 
 | ||||||
|  | (define (gnome-polkit-settings config) | ||||||
|  |   "Return the list of GNOME dependencies that provide polkit actions and | ||||||
|  | rules." | ||||||
|  |   (let ((gnome (gnome-package config))) | ||||||
|  |     (map (lambda (name) | ||||||
|  |            ((package-direct-input-selector name) gnome)) | ||||||
|  |          '("gnome-settings-daemon" | ||||||
|  |            "gnome-control-center" | ||||||
|  |            "gnome-system-monitor" | ||||||
|  |            "gvfs")))) | ||||||
|  | 
 | ||||||
| (define gnome-desktop-service-type | (define gnome-desktop-service-type | ||||||
|   (service-type |   (service-type | ||||||
|    (name 'gnome-desktop) |    (name 'gnome-desktop) | ||||||
|    (extensions |    (extensions | ||||||
|     (list (service-extension polkit-service-type |     (list (service-extension polkit-service-type | ||||||
|                              (compose list |                              gnome-polkit-settings) | ||||||
|                                       (package-direct-input-selector |  | ||||||
|                                        "gnome-settings-daemon") |  | ||||||
|                                       gnome-package)) |  | ||||||
|           (service-extension profile-service-type |           (service-extension profile-service-type | ||||||
|                              (compose list |                              (compose list | ||||||
|                                       gnome-package)))))) |                                       gnome-package)))))) | ||||||
|  |  | ||||||
		Reference in a new issue