(let ((layouts  ;; Get list containing current layouts
                                                       (split-string (shell-command-to-string "setxkbmap -query | grep -P '(?<=layout:     ).*'") ","))
                                                      (variants ;; Get string containing current layout variants
                                                       (mapcar (lambda (element) (concat "-variant " element))
                                                                 (split-string (shell-command-to-string "setxkbmap -query | grep -P '(?<=variant:    ).*'") ",")))))
                                                  (cl-mapcar #'concat 'layouts 'variants)