diff options
author | Tharre <tharre3@gmail.com> | 2015-09-14 20:19:14 +0200 |
---|---|---|
committer | Tharre <tharre3@gmail.com> | 2016-10-07 20:13:36 +0000 |
commit | 98ba0e744bdf99ce0a894451700f11c39dc2579b (patch) | |
tree | 0586076ab8c7f3acde1bfef4375e6d4bdcd76003 /shell/_emacs/site-lisp | |
parent | 71a55046a49ea4f340638fc989fbad1a6b001ca7 (diff) | |
download | dotfiles-98ba0e744bdf99ce0a894451700f11c39dc2579b.tar.gz dotfiles-98ba0e744bdf99ce0a894451700f11c39dc2579b.tar.xz dotfiles-98ba0e744bdf99ce0a894451700f11c39dc2579b.zip |
emacs: actually install .emacs.d
Diffstat (limited to 'shell/_emacs/site-lisp')
-rw-r--r-- | shell/_emacs/site-lisp/dconf-proxy.el | 14 | ||||
-rw-r--r-- | shell/_emacs/site-lisp/site-lisp-autoloads.el | 5 | ||||
-rw-r--r-- | shell/_emacs/site-lisp/util.el | 36 | ||||
-rw-r--r-- | shell/_emacs/site-lisp/with-package.el | 31 |
4 files changed, 0 insertions, 86 deletions
diff --git a/shell/_emacs/site-lisp/dconf-proxy.el b/shell/_emacs/site-lisp/dconf-proxy.el deleted file mode 100644 index 954852a..0000000 --- a/shell/_emacs/site-lisp/dconf-proxy.el +++ /dev/null @@ -1,14 +0,0 @@ -(defun refresh-proxy-settings () - (interactive) - (if (string= (shell-command-to-string "dconf read /system/proxy/http/enabled") "true\n") - (setq url-proxy-services - `(("http" . - ,(concat - (car (split-string-and-unquote ;; split string to remove single quotes and newline - (shell-command-to-string "dconf read /system/proxy/http/host") '"'")) - ":" - (car (split-string-and-unquote ;; split string to remove newline - (shell-command-to-string "dconf read /system/proxy/http/port") '"\n")))))) - (setq url-proxy-services nil))) - -(provide 'dconf-proxy) diff --git a/shell/_emacs/site-lisp/site-lisp-autoloads.el b/shell/_emacs/site-lisp/site-lisp-autoloads.el deleted file mode 100644 index 2b1e039..0000000 --- a/shell/_emacs/site-lisp/site-lisp-autoloads.el +++ /dev/null @@ -1,5 +0,0 @@ - -(autoload 'refresh-proxy-settings "dconf-proxy" "Refresh proxy settings" t) -(autoload 'eval-and-replace "util" "Eval and replace lisp expression" t) - -(provide 'site-lisp-autoloads) diff --git a/shell/_emacs/site-lisp/util.el b/shell/_emacs/site-lisp/util.el deleted file mode 100644 index b5bdc10..0000000 --- a/shell/_emacs/site-lisp/util.el +++ /dev/null @@ -1,36 +0,0 @@ -(defun eval-and-replace () - "Replace the preceding sexp with its value." - (interactive) - (forward-char) ;; for evil normal state - (backward-kill-sexp) - (condition-case nil - (prin1 (eval (read (current-kill 0))) - (current-buffer)) - (error (message "Invalid expression") - (insert (current-kill 0))))) - -(defun lorem () - "Insert a lorem ipsum." - (interactive) - (insert "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do " - "eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim" - "ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut " - "aliquip ex ea commodo consequat. Duis aute irure dolor in " - "reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla " - "pariatur. Excepteur sint occaecat cupidatat non proident, sunt in " - "culpa qui officia deserunt mollit anim id est laborum.")) - -(defun insert-date () - "Insert a time-stamp according to locale's date and time format." - (interactive) - (insert (format-time-string "%c" (current-time)))) - -(defun indent-buffer () - (interactive) - (indent-region (point-min) (point-max))) - -(defun untabify-buffer () - (interactive) - (untabify (point-min) (point-max))) - -(provide 'util) diff --git a/shell/_emacs/site-lisp/with-package.el b/shell/_emacs/site-lisp/with-package.el deleted file mode 100644 index 3dfc52d..0000000 --- a/shell/_emacs/site-lisp/with-package.el +++ /dev/null @@ -1,31 +0,0 @@ -(require 'cl) - -;; will be available at emacs 24.4 -(unless (fboundp 'with-eval-after-load) - "Do magic from the future" - (defmacro with-eval-after-load (file &rest body) - `(eval-after-load ,file - `(funcall (function ,(lambda () ,@body)))))) - -(defmacro with-package (packages &rest body) - "After pkg macro" - (declare (indent defun)) - (when (symbolp packages) ;; make a list if necessary - (setf packages (list packages))) - `(progn - (dolist (p ',packages) - (when (not (package-installed-p p)) - (package-install p)) - (with-eval-after-load p ,@body)))) - -(defmacro with-package* (packages &rest body) - "After pkg macro*" - (declare (indent defun)) - (when (symbolp packages) ;; make a list if necessary - (setf packages (list packages))) - `(prog1 - (with-package ,packages ,@body) - (dolist (p ',packages) - (require p)))) - -(provide 'with-package) |