From 60063b90c05b782ec8c06b29c0ebd409e7ae17fe Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Tue, 3 Jan 2017 01:03:35 +0900 Subject: [PATCH] Remove some unused configurations --- emacs.el | 211 ------------------------------------------------------- 1 file changed, 211 deletions(-) diff --git a/emacs.el b/emacs.el index 7eaf18b..1ee4f09 100644 --- a/emacs.el +++ b/emacs.el @@ -1106,181 +1106,6 @@ found, otherwise returns nil." (add-to-list 'auto-mode-alist '("tox\\.ini\\'" . conf-unix-mode)) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; python - -(when (autoload-eval-lazily 'python '(python-mode) - (defvar python-mode-map (make-sparse-keymap)) - (define-key python-mode-map (kbd "C-c C-e") 'my-python-run-as-command) - (define-key python-mode-map (kbd "C-c C-b") 'my-python-display-python-buffer) - (define-key python-mode-map (kbd "C-m") 'newline-and-indent) - - (defvar inferior-python-mode-map (make-sparse-keymap)) - (define-key inferior-python-mode-map (kbd "") 'comint-previous-input) - (define-key inferior-python-mode-map (kbd "") 'comint-next-input) - ) - (set-variable 'python-python-command (or (executable-find "python3") - (executable-find "python"))) - ;; (defun my-python-run-as-command () - ;; "" - ;; (interactive) - ;; (shell-command (concat python-python-command " " buffer-file-name))) - (defun my-python-display-python-buffer () - "" - (interactive) - (defvar python-buffer nil) - (set-window-text-height (display-buffer python-buffer - t) - 7)) - (add-hook 'inferior-python-mode-hook - (lambda () - (my-python-display-python-buffer)))) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; gauche-mode -;; http://d.hatena.ne.jp/kobapan/20090305/1236261804 -;; http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el - -;; NOTE: This gauche-mode returns 404. -;; There is another gosh-mode, so for now I submitted a recipe for that into -;; github.com/10sr/emacs-lisp/p. I'll add setup for that later. - -(when nil (and '(fetch-library - "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el" - t) - (autoload-eval-lazily 'gauche-mode '(gauche-mode run-scheme) - (defvar gauche-mode-map (make-sparse-keymap)) - (defvar scheme-mode-map (make-sparse-keymap)) - (define-key gauche-mode-map - (kbd "C-c C-z") 'run-gauche-other-window) - (define-key scheme-mode-map - (kbd "C-c C-c") 'scheme-send-buffer) - (define-key scheme-mode-map - (kbd "C-c C-b") 'my-scheme-display-scheme-buffer))) - (let ((s (executable-find "gosh"))) - (set-variable 'scheme-program-name s) - (set-variable 'gauche-program-name s)) - - (defvar gauche-program-name nil) - (defvar scheme-buffer nil) - - (defun run-gauche-other-window () - "Run gauche on other window" - (interactive) - (switch-to-buffer-other-window - (get-buffer-create "*scheme*")) - (run-gauche)) - - (defun run-gauche () - "run gauche" - (interactive) - (run-scheme gauche-program-name) - ) - - (defun scheme-send-buffer () - "" - (interactive) - (scheme-send-region (point-min) (point-max)) - (my-scheme-display-scheme-buffer) - ) - - (defun my-scheme-display-scheme-buffer () - "" - (interactive) - (set-window-text-height (display-buffer scheme-buffer - t) - 7)) - - (add-hook 'scheme-mode-hook - (lambda () - nil)) - - (add-hook 'inferior-scheme-mode-hook - (lambda () - ;; (my-scheme-display-scheme-buffer) - )) - (setq auto-mode-alist - (cons '("\.gosh\\'" . gauche-mode) auto-mode-alist)) - (setq auto-mode-alist - (cons '("\.gaucherc\\'" . gauche-mode) auto-mode-alist)) - ) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; term mode - -;; (setq multi-term-program shell-file-name) -(when (autoload-eval-lazily 'multi-term) - (set-variable 'multi-term-switch-after-close nil) - (set-variable 'multi-term-dedicated-select-after-open-p t) - (set-variable 'multi-term-dedicated-window-height 20)) - -(when (autoload-eval-lazily 'term '(term ansi-term) - (defvar term-raw-map (make-sparse-keymap)) - ;; (define-key term-raw-map "\C-xl" 'term-line-mode) - ;; (define-key term-mode-map "\C-xc" 'term-char-mode) - (define-key term-raw-map (kbd "") 'scroll-down-line) - (define-key term-raw-map (kbd "") 'scroll-up-line) - (define-key term-raw-map (kbd "") 'scroll-up) - (define-key term-raw-map (kbd "") 'scroll-down) - (define-key term-raw-map (kbd "C-p") 'term-send-raw) - (define-key term-raw-map (kbd "C-n") 'term-send-raw) - (define-key term-raw-map "q" 'my-term-quit-or-send-raw) - ;; (define-key term-raw-map (kbd "ESC") 'term-send-raw) - (define-key term-raw-map [delete] 'term-send-raw) - (define-key term-raw-map (kbd "DEL") 'term-send-backspace) - (define-key term-raw-map "\C-y" 'term-paste) - (define-key term-raw-map - "\C-c" 'term-send-raw) ;; 'term-interrupt-subjob) - '(define-key term-mode-map (kbd "C-x C-q") 'term-pager-toggle) - ;; (dolist (key '("" "" "" "")) - ;; (define-key term-raw-map (read-kbd-macro key) 'term-send-raw)) - ;; (define-key term-raw-map "\C-d" 'delete-char) - ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line) - ;; (define-key term-raw-map "\C-r" 'term-send-raw) - ;; (define-key term-raw-map "\C-s" 'term-send-raw) - ;; (define-key term-raw-map "\C-f" 'forward-char) - ;; (define-key term-raw-map "\C-b" 'backward-char) - ;; (define-key term-raw-map "\C-t" 'set-mark-command) - ) - (defun my-term-quit-or-send-raw () - "" - (interactive) - (if (get-buffer-process (current-buffer)) - (call-interactively 'term-send-raw) - (kill-buffer))) - - ;; http://d.hatena.ne.jp/goinger/20100416/1271399150 - ;; (setq term-ansi-default-program shell-file-name) - (add-hook 'term-setup-hook - (lambda () - (set-variable 'term-display-table (make-display-table)))) - (add-hook 'term-mode-hook - (lambda () - (defvar term-raw-map (make-sparse-keymap)) - ;; (unless (memq (current-buffer) - ;; (and (featurep 'multi-term) - ;; (defvar multi-term-buffer-list) - ;; ;; current buffer is not multi-term buffer - ;; multi-term-buffer-list)) - ;; ) - (set (make-local-variable 'scroll-margin) 0) - ;; (set (make-local-variable 'cua-enable-cua-keys) nil) - ;; (cua-mode 0) - ;; (and cua-mode - ;; (local-unset-key (kbd "C-c"))) - ;; (define-key cua--prefix-override-keymap - ;;"\C-c" 'term-interrupt-subjob) - (set (make-local-variable (defvar hl-line-range-function)) - (lambda () - '(0 . 0))) - (define-key term-raw-map - "\C-x" (lookup-key (current-global-map) "\C-x")) - (define-key term-raw-map - "\C-z" (lookup-key (current-global-map) "\C-z")) - )) - ;; (add-hook 'term-exec-hook 'forward-char) - ) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; buffer switching @@ -1636,42 +1461,6 @@ the list." (with-eval-after-load 'dired (define-key dired-mode-map "a" 'dired-list-all-mode)))) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; my-term - -(defvar my-term nil - "My terminal buffer.") -(defvar my-term-function nil - "Function to create terminal buffer. -This function accept no argument and return newly created buffer of terminal.") - -(defun my-term (&optional arg) - "Open terminal buffer and return that buffer. - -If ARG is given or called with prefix argument, create new buffer." - (interactive "P") - (if (and (not arg) - my-term - (buffer-name my-term)) - (pop-to-buffer my-term) - (setq my-term - (save-window-excursion - (funcall my-term-function))) - (and my-term - (my-term)))) - - -;; (setq my-term-function -;; (lambda () -;; (if (eq system-type 'windows-nt) -;; (eshell) -;; (if (require 'multi-term nil t) -;; (multi-term) -;; (ansi-term shell-file-name))))) - -(setq my-term-function (lambda () (eshell t))) -;;(define-key my-prefix-map (kbd "C-s") 'my-term) -(define-key ctl-x-map "i" 'my-term) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; misc funcs