diff --git a/elpa/helm-systemd-20160517.2333/helm-systemd-autoloads.el b/elpa/helm-systemd-20160517.2333/helm-systemd-autoloads.el deleted file mode 100644 index 2418857..0000000 --- a/elpa/helm-systemd-20160517.2333/helm-systemd-autoloads.el +++ /dev/null @@ -1,22 +0,0 @@ -;;; helm-systemd-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (or (file-name-directory #$) (car load-path))) - -;;;### (autoloads nil "helm-systemd" "helm-systemd.el" (22490 28013 -;;;;;; 828726 423000)) -;;; Generated autoloads from helm-systemd.el - -(autoload 'helm-systemd "helm-systemd" "\ - - -\(fn)" t nil) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; helm-systemd-autoloads.el ends here diff --git a/elpa/helm-systemd-20160517.2333/helm-systemd-pkg.el b/elpa/helm-systemd-20160517.2333/helm-systemd-pkg.el deleted file mode 100644 index dcabf2b..0000000 --- a/elpa/helm-systemd-20160517.2333/helm-systemd-pkg.el +++ /dev/null @@ -1 +0,0 @@ -(define-package "helm-systemd" "20160517.2333" "helm's systemd interface" '((emacs "24.4") (helm "1.9.2") (with-editor "2.5.0")) :keywords '("convenience")) diff --git a/elpa/helm-systemd-20160517.2333/helm-systemd.el b/elpa/helm-systemd-20160517.2333/helm-systemd.el deleted file mode 100644 index c68600c..0000000 --- a/elpa/helm-systemd-20160517.2333/helm-systemd.el +++ /dev/null @@ -1,298 +0,0 @@ -;;; helm-systemd.el --- helm's systemd interface -*- lexical-binding: t; -*- - -;; Copyright (C) 2016 - -;; Author: -;; Package-Version: 20160517.2333 -;; Package-X-Original-Version: 0.0.1 -;; Package-Requires: ((emacs "24.4") (helm "1.9.2") (with-editor "2.5.0")) -;; Keywords: convenience - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see . - -;;; Commentary: - -;; - -;;; Code: - -(require 'cl-lib) -(require 'helm) -(require 'with-editor) -(require 'subr-x) - -(defvar helm-systemd-command-types '("service" "timer" "mount" "target" "socket" "scope" "device")) -(defvar helm-systemd-list-all nil) -(defvar helm-systemd-list-not-loaded nil) -(defvar helm-systemd-buffer-name "*Helm systemd log*") -(defvar helm-systemd-status-mode-hook nil ) - -(defconst helm-systemd-actions-list - '(("print". "Printed") - ("restart". "Restarted") - ("stop" ."Stopped") - ("start". "Started"))) - -(defvar helm-systemd-status-font-lock-keywords - `(("\\(Loaded\\|Active\\|Status\\|Docs\\|Process\\|Main PID\\|Tasks\\|CGroup\\):" (1 'helm-bookmark-gnus) ) - ("active (running)" 0 'hi-green) - ("inactive (dead)" 0 'helm-bookmark-info) - ("active (exited)" 0 'helm-bookmark-info) - - ("[fF]ailed" 0 'diredp-executable-tag) - - ("ā”€\\([0-9]+\\)" (1 'helm-bookmark-info)) ; PIDs - ("[ā—šŸ”œ] .*" 0 'helm-buffer-file) ; command lines ā—šŸ”œ - "Default expressions to highlight in `helm systemd log'.")) - -(define-derived-mode helm-systemd-status-mode fundamental-mode "Systemd-log" - "Major mode for viewing systemd status logs. -\\{helm-systemd-status-mode-map}" - (setq-local font-lock-defaults '(helm-systemd-status-font-lock-keywords)) - (font-lock-mode t)) - -(add-to-list 'auto-mode-alist `(, (concat (regexp-quote helm-systemd-buffer-name) "\\'") . helm-systemd-status-mode)) - -(defun helm-systemd-command-line-option () - (concat "--no-pager --no-legend -t " (car helm-systemd-command-types) (if helm-systemd-list-all " --all"))) - -(defvar helm-systemd-map - (let ((map (make-sparse-keymap))) - (set-keymap-parent map helm-map) - (define-key map (kbd "") 'helm-cr-empty-string) - (define-key map (kbd "") 'helm-cr-empty-string) - (define-key map (kbd "C-]") 'helm-systemd-next-type) - (define-key map (kbd "C-[") 'helm-systemd-prev-type) - - (delq nil map)) - "Keymap for `helm-systemd'.") - -(defun helm-systemd-concatspace (word-list) - "Concatenate list of string with spaces as separator" - (mapconcat 'identity - (delq nil word-list) - " ")) - -(defun helm-systemd-systemctl-command (&rest args) - "Construct string with: 'systemctl default-args' ARGS" - (helm-systemd-concatspace (push (concat "systemctl " (helm-systemd-command-line-option)) - args) )) - -(defun helm-systemd-get-canditates (sysd-options) - "Return a list of systemd service unit" - (let* ((result ()) - (leftcolumnwidth - (number-to-string 25)) - (hash (make-hash-table - :test 'equal)) - (sysd-lu (shell-command-to-string - (helm-systemd-systemctl-command " list-units " sysd-options))) - (sysd-lu (delete "" - (split-string sysd-lu - "\n")))) - (mapc (lambda (line) - (puthash (car (split-string line)) line hash)) - sysd-lu) - (if helm-systemd-list-not-loaded - (let* ((sysd-luf (shell-command-to-string - (helm-systemd-systemctl-command " list-unit-files " sysd-options))) - (sysd-luf (delete "" - (split-string sysd-luf "\n")))) - (mapc (lambda (line-luf) - (let ((unit (car - (split-string line-luf)))) - (unless (gethash unit hash nil) - (puthash unit line-luf hash)))) sysd-luf))) - - (let ((maxunitlength - (string-to-number leftcolumnwidth))) - (maphash (lambda (unit descr) - (setq maxunitlength - (max maxunitlength (length unit)))) hash) - (setq leftcolumnwidth - (number-to-string maxunitlength))) - (maphash (lambda (unit descr) - (let* ((unit_misc - (string-trim-left - (substring descr (length unit) (length descr)))) - (formatted_output - (format - (concat "%-" leftcolumnwidth "s %s") - unit unit_misc))) - (push formatted_output result)) ) hash) - - result )) - -(defun helm-systemd-display (unit-command unit &optional isuser nodisplay) - (with-current-buffer (get-buffer-create helm-systemd-buffer-name) - (helm-systemd-status-mode) - (let ((command - (helm-systemd-systemctl-command (if isuser "--user") unit-command unit))) - (insert "\nšŸ”œ " command "\n") - (if (or isuser (string= unit-command "status")) - (insert (shell-command-to-string command)) - (with-temp-buffer - (cd "/sudo::/") - (setq command (shell-command-to-string (concat "sudo " command)))) - (insert command) - ) - (insert "\n")) - ;; (propertise-sysd-buffer ) - (unless nodisplay - (display-buffer (current-buffer))))) - -(defun helm-systemd-next-type () - (interactive) - (setq helm-systemd-command-types - (append (cdr helm-systemd-command-types) - (list (car helm-systemd-command-types)))) - (with-helm-alive-p - (helm-force-update ))) - -(defun helm-systemd-prev-type () - (interactive) - (setq helm-systemd-command-types - (append (last helm-systemd-command-types) - (remove (car (last helm-systemd-command-types)) - helm-systemd-command-types))) - (with-helm-alive-p - (helm-force-update ))) - -(defun helm-system-persis-action (_line &optional isuser) - "Show unit status" - (let ((units (helm-marked-candidates))) - (mapc (lambda (line) - (let ((unit (car (split-string line)))) - (helm-systemd-display "status" unit isuser ))) - units))) - -(defun helm-systemd-transformer (candidates source) - (let ((res candidates)) - (unless (string= (car helm-systemd-command-types) "device") - - (setq res (cl-loop for i in candidates - for split = (split-string i) - for unit = (car split) - for loaded = (nth 1 split) - for active = (nth 2 split) - for running = (nth 3 split) - for description = (if running (helm-systemd-concatspace (cl-subseq split 4))) - collect (let ((line i)) - (unless (and unit loaded active running description) - line) - (if (and loaded (not (string= (car helm-systemd-command-types) "mount"))) - (let* ((isenabled - (car - (split-string - (shell-command-to-string - (helm-systemd-concatspace `("systemctl" "is-enabled " - ,(if (string-match "User" - (cdr (assoc 'name source))) - "--user") - ,unit)))))) - (propena (cond ((string= isenabled "enabled") 'helm-bookmark-info) - ((string= isenabled "static") 'helm-bookmark-gnus) - (t 'helm-bookmark-gnus))) - (isenabled (format "%8s" isenabled) )) - (setq line (if active - (replace-regexp-in-string loaded (concat (propertize isenabled 'face propena) " " loaded " ") line ) - (replace-regexp-in-string loaded (concat (propertize isenabled 'face propena) " ") line ))))) ;; list-units case - (if (string= running "running") - (setq line - (replace-regexp-in-string running - (propertize - running - 'face - 'helm-ff-directory) line ))) - (if (string= running "exited") - (setq line - (replace-regexp-in-string running - (propertize - running - 'face - 'helm-bookmark-info) line ))) - (if (string= running "failed") - (setq line - (replace-regexp-in-string running - (propertize - running - 'face - 'diredp-executable-tag) line ))) - (if description - (setq line - (replace-regexp-in-string - (regexp-quote description) (propertize - description - 'face - 'helm-buffer-process) line t))) - line )))) - res)) - -(defmacro helm-systemd-make-actions (sysd-verb isuser) - `(lambda (_ignore) - (mapc (lambda (candidate) - (helm-systemd-display ,sysd-verb (car (split-string candidate)) ,isuser t) - (message (concat - (cdr (assoc ,sysd-verb helm-systemd-actions-list)) - " " - (car (split-string candidate))))) - (helm-marked-candidates)))) - - - -(defun helm-systemd-build-source () - (helm-build-sync-source "systemd" - :candidates (lambda () - (reverse (helm-systemd-get-canditates "") )) - :action (helm-make-actions - "Print" (helm-systemd-make-actions "status" nil) - "Restart" (helm-systemd-make-actions "restart" nil) - "Stop" (helm-systemd-make-actions "stop" nil) - "Start" (helm-systemd-make-actions "start" nil)) - :persistent-action #'helm-system-persis-action - :persistent-help "Show unit status" - :keymap helm-systemd-map - :filtered-candidate-transformer #'helm-systemd-transformer)) - -(defun helm-systemd-build-source-user () - (helm-build-sync-source "Systemd User" - :candidates (lambda () - (reverse (helm-systemd-get-canditates "--user"))) - :action (helm-make-actions - "Print" (helm-systemd-make-actions "status" t) - "Restart" (helm-systemd-make-actions "restart" t) - "Stop" (helm-systemd-make-actions "stop" t) - "Start" (helm-systemd-make-actions "start" nil) - "Edit with Emacs" (lambda (candidate) - (add-to-list 'with-editor-envvars "SYSTEMD_EDITOR" t) - (with-editor-async-shell-command (concat "systemctl --user --full edit " (car (split-string candidate))) ))) - :persistent-action (lambda (line) (funcall #'helm-system-persis-action line t)) - :persistent-help "Show unit status" - :keymap helm-systemd-map - - :filtered-candidate-transformer #'helm-systemd-transformer)) - -;;;###autoload -(defun helm-systemd () - (interactive) - (helm - :sources (mapcar (lambda (func) - (funcall func)) - '(helm-systemd-build-source helm-systemd-build-source-user)) - :truncate-lines t - :buffer - (concat "*helm systemd*")) ) - -(provide 'helm-systemd) -;;; helm-systemd.el ends here diff --git a/elpa/helm-themes-20160917.2245/helm-themes-autoloads.el b/elpa/helm-themes-20160917.2245/helm-themes-autoloads.el deleted file mode 100644 index 66b273d..0000000 --- a/elpa/helm-themes-20160917.2245/helm-themes-autoloads.el +++ /dev/null @@ -1,22 +0,0 @@ -;;; helm-themes-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (or (file-name-directory #$) (car load-path))) - -;;;### (autoloads nil "helm-themes" "helm-themes.el" (22499 37037 -;;;;;; 933000 0)) -;;; Generated autoloads from helm-themes.el - -(autoload 'helm-themes "helm-themes" "\ -Theme selection with helm interface - -\(fn)" t nil) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; helm-themes-autoloads.el ends here diff --git a/elpa/helm-themes-20160917.2245/helm-themes-pkg.el b/elpa/helm-themes-20160917.2245/helm-themes-pkg.el deleted file mode 100644 index 7ce4ca0..0000000 --- a/elpa/helm-themes-20160917.2245/helm-themes-pkg.el +++ /dev/null @@ -1 +0,0 @@ -(define-package "helm-themes" "20160917.2245" "Color theme selection with helm interface" '((helm-core "2.0") (emacs "24.4")) :url "https://github.com/syohex/emacs-helm-themes") diff --git a/elpa/helm-themes-20160917.2245/helm-themes.el b/elpa/helm-themes-20160917.2245/helm-themes.el deleted file mode 100644 index 0f8ff89..0000000 --- a/elpa/helm-themes-20160917.2245/helm-themes.el +++ /dev/null @@ -1,71 +0,0 @@ -;;; helm-themes.el --- Color theme selection with helm interface -*- lexical-binding: t; -*- - -;; Copyright (C) 2016 by Syohei YOSHIDA - -;; Author: Syohei YOSHIDA -;; URL: https://github.com/syohex/emacs-helm-themes -;; Package-Version: 20160917.2245 -;; Version: 0.05 -;; Package-Requires: ((helm-core "2.0") (emacs "24.4")) - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see . - -;;; Commentary: - -;; helm-themes.el provide theme selection with helm interface. -;; Its persistent action can set theme temporary. -;; - -;;; Code: - -(require 'helm) - -;; Loading mutiple themes makes Emacs too slow -(defsubst helm-themes--delete-theme () - (mapc 'disable-theme custom-enabled-themes)) - -(defun helm-themes--load-theme (theme-str) - (helm-themes--delete-theme) - (if (string= theme-str "default") - t - (load-theme (intern theme-str) t))) - -(defun helm-themes--candidates () - (cons 'default (custom-available-themes))) - -(defvar helm-themes-source - (helm-build-sync-source "Selection Theme" - :candidates 'helm-themes--candidates - :action 'helm-themes--load-theme - :persistent-action 'helm-themes--load-theme)) - -;;;###autoload -(defun helm-themes () - "Theme selection with helm interface" - (interactive) - (let ((changed nil) - (orig-theme (when custom-enabled-themes - (car custom-enabled-themes)))) - (unwind-protect - (progn - (when (helm :sources helm-themes-source :buffer "*helm-themes*") - (setq changed t))) - (when (not changed) - (helm-themes--delete-theme) - (when orig-theme - (load-theme orig-theme t)))))) - -(provide 'helm-themes) - -;;; helm-themes.el ends here diff --git a/elpa/helm-unicode-20160715.533/helm-unicode-autoloads.el b/elpa/helm-unicode-20160715.533/helm-unicode-autoloads.el deleted file mode 100644 index 62fdc53..0000000 --- a/elpa/helm-unicode-20160715.533/helm-unicode-autoloads.el +++ /dev/null @@ -1,24 +0,0 @@ -;;; helm-unicode-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (or (file-name-directory #$) (car load-path))) - -;;;### (autoloads nil "helm-unicode" "helm-unicode.el" (22490 28012 -;;;;;; 812731 643000)) -;;; Generated autoloads from helm-unicode.el - -(autoload 'helm-unicode "helm-unicode" "\ -Precofigured `helm' for looking up unicode characters by name. - -With prefix ARG, reinitialize the cache. - -\(fn ARG)" t nil) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; helm-unicode-autoloads.el ends here diff --git a/elpa/helm-unicode-20160715.533/helm-unicode-pkg.el b/elpa/helm-unicode-20160715.533/helm-unicode-pkg.el deleted file mode 100644 index fcd5695..0000000 --- a/elpa/helm-unicode-20160715.533/helm-unicode-pkg.el +++ /dev/null @@ -1 +0,0 @@ -(define-package "helm-unicode" "20160715.533" "Helm command for unicode characters." '((helm "1.9.8") (emacs "24.4"))) diff --git a/elpa/helm-unicode-20160715.533/helm-unicode.el b/elpa/helm-unicode-20160715.533/helm-unicode.el deleted file mode 100644 index 7238d80..0000000 --- a/elpa/helm-unicode-20160715.533/helm-unicode.el +++ /dev/null @@ -1,72 +0,0 @@ -;;; helm-unicode.el --- Helm command for unicode characters. -*- lexical-binding: t -*- - -;; Copyright Ā© 2015 Emanuel Evans - -;; Version: 0.0.4 -;; Package-Version: 20160715.533 -;; Package-Requires: ((helm "1.9.8") (emacs "24.4")) - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see . - -;;; Commentary: -;; A helm command for looking up unicode characters by name šŸ˜‰. - -;;; Code: - -(require 'helm) -(require 'helm-utils) - -(defvar helm-unicode-names nil - "Internal cache variable for unicode characters. Should not be changed by the user.") - -(defun helm-unicode-format-char-pair (char-pair) - "Formats a char pair for helm unicode search." - (let ((name (car char-pair)) - (symbol (cdr char-pair))) - (format "%s %c" name symbol))) - -(defun helm-unicode-build-candidates () - "Builds the candidate list." - (sort - (mapcar 'helm-unicode-format-char-pair (ucs-names)) - #'string-lessp)) - -(defun helm-unicode-source () - "Builds the helm Unicode source. Initialize the lookup cache if necessary." - - (unless helm-unicode-names - (setq helm-unicode-names (helm-unicode-build-candidates))) - - (helm-build-sync-source "unicode-characters" - :candidates helm-unicode-names - :filtered-candidate-transformer (lambda (candidates _source) (sort candidates #'helm-generic-sort-fn)) - :action '(("Insert Character" . helm-unicode-insert-char)))) - -(defun helm-unicode-insert-char (candidate) - "Insert CANDIDATE into the main buffer." - (insert (substring candidate -1))) - -;;;###autoload -(defun helm-unicode (arg) - "Precofigured `helm' for looking up unicode characters by name. - -With prefix ARG, reinitialize the cache." - (interactive "P") - (when arg (setq helm-unicode-names nil)) - (helm :sources (helm-unicode-source) - :buffer "*helm-unicode-search*")) - -(provide 'helm-unicode) - -;;; helm-unicode.el ends here