From f85b40e2bbcee61067cf5d398e015be09c60e558 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 18 Nov 2017 11:11:37 +0100 Subject: [PATCH] [Utils] Minor cleanup --- site-lisp/db-utils.el | 24 +----------------------- 1 file changed, 1 insertion(+), 23 deletions(-) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 74df966..d67d8a5 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -83,7 +83,7 @@ If already in `*ansi-term*' buffer, bury it." (shell))) -;;; helpers +;;; general utilities (defun db/get-url-from-link () "Copy url of link under point into clipboard." @@ -164,28 +164,6 @@ major mode MODE." (eq major-mode mode))) (window-list-1))) -(defun db/ssh-keys () - "Return list of private ssh keys available on the system." - (cl-flet ((file-ssh-key-p (file) - (string-suffix-p ": PEM RSA private key\n" - (shell-command-to-string (format "file %s" file))))) - (cl-remove-if-not #'file-ssh-key-p (directory-files "~/.ssh/" t)))) - -(defun db/add-to-keyring (&optional file) - "Add FILE to local keyring. -If FILE is not given, prompt for one." - (interactive) - (if file - (let ((return-value (call-process "ssh-add" nil nil nil "-t" "86400" (expand-file-name file)))) - (unless (zerop return-value) - (error "Aborted: %s" return-value))) - (let ((ssh-keys `((name . "SSH Keys") - (candidates . ,(mapcar (lambda (file) - (cons (file-name-nondirectory file) file)) - (db/ssh-keys))) - (action . (("Add to keyring" . db/add-to-keyring)))))) - (helm :sources (list ssh-keys))))) - (defun db/show-current-org-task () "Show title of currently clock in task in modeline." (interactive)