emacs: Added flx (glorious!), removed some unused settings and functions
This commit is contained in:
parent
580f642d40
commit
006043d82e
4 changed files with 6 additions and 20 deletions
|
@ -73,19 +73,6 @@
|
|||
(find-file (concat "/sudo:root@localhost:" (ido-read-file-name "File: ")))
|
||||
(find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name))))
|
||||
|
||||
(defun esk-suck-it (suckee)
|
||||
"Insert a comment of appropriate length about what can suck it."
|
||||
(interactive "MWhat can suck it? ")
|
||||
(let ((prefix (concat ";; " suckee " can s"))
|
||||
(postfix "ck it!")
|
||||
(col (current-column)))
|
||||
(insert prefix)
|
||||
(dotimes (_ (- 80 col (length prefix) (length postfix))) (insert "u"))
|
||||
(insert postfix)))
|
||||
|
||||
(defun esk-turn-off-tool-bar ()
|
||||
(if (functionp 'tool-bar-mode) (tool-bar-mode -1)))
|
||||
|
||||
(defun speak (m &optional voice)
|
||||
(shell-command (if 'voice (concat "say -v " voice " \"" m "\"")
|
||||
(concat "say " m))))
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
(mapc 'require '(projectile))
|
||||
(mapc 'require '(projectile hi2))
|
||||
;; Initializes modes I use.
|
||||
|
||||
(add-hook 'prog-mode-hook 'esk-pretty-lambdas)
|
||||
|
@ -12,12 +12,6 @@
|
|||
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
|
||||
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
|
||||
|
||||
;; Configure haskell-mode
|
||||
;; Enable semi-automatic indentation and font-locking
|
||||
(require 'hi2)
|
||||
;;(add-hook 'haskell-mode-hook 'turn-on-hi2)
|
||||
;;(add-hook 'haskell-mode-hook 'font-lock-mode)
|
||||
|
||||
;; Add keybindings to move nested blocks with C-, rsp. C-.
|
||||
(define-key haskell-mode-map (kbd "C-,") 'haskell-move-nested-left)
|
||||
(define-key haskell-mode-map (kbd "C-.") 'haskell-move-nested-right)
|
||||
|
|
|
@ -3,6 +3,10 @@
|
|||
(tool-bar-mode -1)
|
||||
(scroll-bar-mode -1)
|
||||
|
||||
(flx-ido-mode 1)
|
||||
(setq ido-use-faces nil)
|
||||
(setq gc-cons-threshold 20000000)
|
||||
|
||||
;;; Code:
|
||||
|
||||
(add-to-list 'exec-path "/usr/local/bin")
|
||||
|
|
|
@ -18,6 +18,7 @@
|
|||
browse-kill-ring
|
||||
clojure-mode
|
||||
flycheck
|
||||
flx-ido
|
||||
haskell-mode
|
||||
hi2
|
||||
idle-highlight-mode
|
||||
|
|
Loading…
Reference in a new issue