Commits

Anonymous committed f20921d

Remove unused functions

Comments (0)

Files changed (2)

 (bind-key "C-c c f" 'customize-face)
 (bind-key "C-c c g" 'customize-group)
 
-(bind-key "C-c c c" 'my-mini-calc)
 ;; calc settings
 (bind-key "<pause>" 'calc-dispatch)
 (bind-key "<home>" 'calc-same-interface)

site-lisp/defuns.el

 ;;; Personal functions
 
-;; For loading libraries from the vendor directory
-;; Modified from defunkt's original version to support autoloading.
-;; http://github.com/defunkt/emacs/blob/master/defunkt/defuns.el
-(defun vendor (library &rest autoload-functions)
-  (let* ((file (symbol-name library))
-         (normal (concat "~/.emacs.d/vendor/" file))
-         (suffix (concat normal ".el"))
-         (personal (concat "~/.emacs.d/files/" file))
-         (found nil))
-    (cond
-     ((file-directory-p normal) (add-to-list 'load-path normal) (set 'found t))
-     ((file-directory-p suffix) (add-to-list 'load-path suffix) (set 'found t))
-     ((file-exists-p suffix)  (set 'found t)))
-    (when found
-      (if autoload-functions
-          (progn
-            (dolist (autoload-function autoload-functions)
-              (autoload autoload-function (symbol-name library) nil t))
-            (eval-after-load library
-              `(when (file-exists-p (concat ,personal ".el"))
-                 (load ,personal))))
-        (require library)
-        (when (file-exists-p (concat personal ".el"))
-          (load personal))))))
-
 (defun lorem ()
   (interactive)
   (insert "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Praesent libero orci, auctor sed, faucibus vestibulum, gravida vitae, arcu. Nunc posuere. Suspendisse potenti. Praesent in arcu ac nisl ultricies ultricies. Fusce eros. Sed pulvinar vehicula ante. Maecenas urna dolor, egestas vel, tristique et, porta eu, leo. Curabitur vitae sem eget arcu laoreet vulputate. Cras orci neque, faucibus et, rhoncus ac, venenatis ac, magna. Aenean eu lacus. Aliquam luctus facilisis augue. Nullam fringilla consectetuer sapien. Aenean neque augue, bibendum a, feugiat id, lobortis vel, nunc. Suspendisse in nibh quis erat condimentum pretium. Vestibulum tempor odio et leo. Sed sodales vestibulum justo. Cras convallis pellentesque augue. In eu magna. In pede turpis, feugiat pulvinar, sodales eget, bibendum consectetuer, magna. Pellentesque vitae augue."))
   (exchange-point-and-mark)
   (deactivate-mark nil))
 
-(defun my-mini-calc (expr &optional arg)
-  "Calculate expression.
-
-If ARG is given, then insert the result to current-buffer"
-  (interactive
-   (list (read-from-minibuffer "Enter expression: ")
-         current-prefix-arg))
-  (let ((result (calc-eval expr)))
-    (if arg
-        (insert result)
-      (message (format "Result: [%s] = %s" expr result)))))
-
 (defun view-clipboard ()
   (interactive)
   (switch-to-buffer "*Clipboard*")
   (setq buffer-display-table (make-display-table))
   (aset buffer-display-table ?\^M []))
 
-(defun my-gather-hippie ()
-  (let (re)
-    (flet ((he-substitute-string
-            (str &optional trans-case)
-            (when (not (member str re)) (!cons str re)))
-           (message (&rest args) t))
-      (setq he-num -1)
-      (hippie-expand nil)
-      (let ((this-command 'a)
-            (last-command 'a))
-        (while (hippie-expand nil))))
-    re))
-
-(defun my-possible-expand ()
-  (let* ((p (point))
-         (sap (bounds-of-thing-at-point 'sexp))
-         (start (car sap))
-         (end (cdr sap))
-         (orig (buffer-substring-no-properties start end)))
-    (save-excursion (insert " "))
-    (let ((expands (my-gather-hippie))
-          (suffix (buffer-substring-no-properties (1+ p) (1+ end))))
-      (delete-char 1)
-      (delete-region start end)
-      (let ((kill-ring (append (list orig) (--filter (s-ends-with? suffix it) expands))))
-        (browse-kill-ring)))))
-
 (defun my-assimil--format-line (fill)
   (let ((fill-column 38)
         (fill-prefix fill))