Emacs

From Traxel Wiki
Jump to navigation Jump to search

Yank from Primary Selection

In Linux, the "highlight" buffer is called the Primary Selection.

(defun yank-primary-selection ()
  (interactive)
  (insert (x-get-selection 'PRIMARY)))

(global-set-key (kbd "M-y") 'yank-primary-selection)

Whole Dot Emacs

;; iso-latin-1
;;(defun recenter-10 ()
;;  (recenter "10"))

;; not necessary - use xmodmap -e "keysym Alt_L = Meta_L Alt_L"
;; (set-keyboard-coding-system 'iso-latin-1)

;; (require 'vc-svn)
;; (require 'psvn)

;disable backup
(setq backup-inhibited t)
;disable auto save
(setq auto-save-default nil)

(setq js-indent-level 2)
; (setq tab-width 2)
; (setq web-mode-code-indent-offset 4)

(setq visible-bell 1)

(global-set-key "\M-\C-f" 'font-lock-mode)
(global-set-key "\C-t" 'not-defined)
(global-set-key "\C-x\C-x" 'not-defined)
(global-set-key "\C-hn" 'not-defined)
(global-set-key "\C-h\C-n" 'not-defined)
(global-set-key "\C-x\C-?" 'not-defined)
(global-set-key "\M-\C-v" 'revert-buffer)
(global-set-key "\C-z" 'not-defined)
(global-set-key "\C-o" 'undefined)
(global-set-key "\M-g" 'goto-line)
(global-set-key "\C-x\C-u" 'uncomment-region)
(global-set-key "\C-x\C-c" 'comment-region)
(global-set-key "\C-x\C-z" 'not-defined)
;; (global-set-key "\C-l" 'recenter-10)
(defun debug ())
(defun overwrite-mode ())
(set-background-color "gray5")
(set-foreground-color "wheat")
;; (set-default-font "-misc-fixed-medium-r-semicondensed--13-*-*-*-c-60-iso8859-1")
;; (set-default-font "-misc-fixed-medium-r-normal--13-*-*-*-c-70-iso8859-1")
;; (set-default-font "-misc-fixed-medium-r-normal--15-*-*-*-c-90-iso8859-1")
;; (set-default-font "-1ASC-Liberation Mono-normal-normal-normal-*-19-*-*-*-m-0-fontset-auto2")
;; (set-default-font "-PfEd-DejaVu Sans Mono-normal-normal-normal-*-19-*-*-*-m-0-iso10646-1")
;; (set-frame-font "-DAMA-Ubuntu Mono-bold-normal-normal-*-19-*-*-*-m-0-fontset-auto9" nil t)
;; (set-default-font
;;"-Misc-Fixed-Medium-O-SemiCondensed--13-120-75-75-C-60-ISO8859-1")
;;"-Misc-Fixed-Medium-R-Normal--15-140-75-75-C-90-ISO8859-1")
;; "-misc-fixed-medium-r-normal--20-*-*-*-c-100-iso8859-1")
;; ("11x18" "-misc-fixed-medium-r-normal--18-*-*-*-c-110-iso8859-1" "11x18") ("12x24" "-misc-fixed-medium-r-normal--24-*-*-*-c-120-iso8859-1" "12x24") ("") ("clean 5x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-50-iso8859-1") ("clean 6x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-60-iso8859-1") ("clean 8x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-80-iso8859-1") ("clean 8x10" "-schumacher-clean-medium-r-normal--10-*-*-*-c-80-iso8859-1") ("clean 8x14" "-schumacher-clean-medium-r-normal--14-*-*-*-c-80-iso8859-1") ("clean 8x16" "-schumacher-clean-medium-r-normal--16-*-*-*-c-80-iso8859-1") ("") ("sony 8x16" "-sony-fixed-medium-r-normal--16-*-*-*-c-80-iso8859-1")) ("Courier" ("8" "-adobe-courier-medium-r-normal--*-80-*-*-m-*-iso8859-1") ("10" "-adobe-courier-medium-r-normal--*-100-*-*-m-*-iso8859-1") ("12" "-adobe-courier-medium-r-normal--*-120-*-*-m-*-iso8859-1") ("14" "-adobe-courier-medium-r-normal--*-140-*-*-m-*-iso8859-1") ("18" "-adobe-courier-medium-r-normal--*-180-*-*-m-*-iso8859-1") ("24" "-adobe-courier-medium-r-normal--*-240-*-*-m-*-iso8859-1") ("8 bold" "-adobe-courier-bold-r-normal--*-80-*-*-m-*-iso8859-1") ("10 bold" "-adobe-courier-bold-r-normal--*-100-*-*-m-*-iso8859-1") ("12 bold" "-adobe-courier-bold-r-normal--*-120-*-*-m-*-iso8859-1") ("14 bold" "-adobe-courier-bold-r-normal--*-140-*-*-m-*-iso8859-1") ("18 bold" "-adobe-courier-bold-r-normal--*-180-*-*-m-*-iso8859-1") ("24 bold" "-adobe-courier-bold-r-normal--*-240-*-*-m-*-iso8859-1") ("8 slant" "-adobe-courier-medium-o-normal--*-80-*-*-m-*-iso8859-1") ("10 slant" "-adobe-courier-medium-o-normal--*-100-*-*-m-*-iso8859-1") ("12 slant" "-adobe-courier-medium-o-normal--*-120-*-*-m-*-iso8859-1") ("14 slant" "-adobe-courier-medium-o-normal--*-140-*-*-m-*-iso8859-1") ("18 slant" "-adobe-courier-medium-o-normal--*-180-*-*-m-*-iso8859-1") ("24 slant" "-adobe-courier-medium-o-normal--*-240-*-*-m-*-iso8859-1") ("8 bold slant" "-adobe-courier-bold-o-normal--*-80-*-*-m-*-iso8859-1") ("10 bold slant" "-adobe-courier-bold-o-normal--*-100-*-*-m-*-iso8859-1") ("12 bold slant" "-adobe-courier-bold-o-normal--*-120-*-*-m-*-iso8859-1") ("14 bold slant" "-adobe-courier-bold-o-normal--*-140-*-*-m-*-iso8859-1") ("18 bold slant" "-adobe-courier-bold-o-normal--*-180-*-*-m-*-iso8859-1") ("24 bold slant" "-adobe-courier-bold-o-normal--*-240-*-*-m-*-iso8859-1")) ("Fontset" ("standard: 16-dot medium" "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard") ("startup: 13-dot bold" "-*-*-bold-R-SemiCondensed-*-13-120-75-75-C-60-fontset-startup") ("startup: 13-dot medium" "-*-*-Medium-R-SemiCondensed--13-120-75-75-C-60-fontset-startup") ("startup: 13-dot medium slant" "-*-*-Medium-o-SemiCondensed-*-13-120-75-75-C-60-fontset-startup
;;"-Misc-Fixed-Medium-R-Normal--15-140-75-75-C-90-ISO8859-1")
;; (hscroll-global-mode)

(set-default 'truncate-lines nil)
(setq truncate-lines nil)
(set-default 'truncate-partial-width-windows nil)
(setq truncate-partial-width-windows nil)
(setq never-dont-truncate-any-windows-you-stupid-pussbag t)
(setq transient-mark-mode t)
(global-font-lock-mode)
(setq show-paren-mode t)


;; (add-to-list 'load-path (expand-file-name "/usr/share/emacs/site-lisp/tdtd"))
;; (load-file "/usr/share/emacs/site-lisp/tdtd/tdtd.el")

;; ---------------------------------------------------------
;; PSGML - XXML Mode

;; (autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
;; (autoload 'html-mode "xxml" "Major mode to edit HTML files." t)
;; (autoload 'xxml-mode-routine "xxml")
;; (add-hook 'sgml-mode-hook 'xxml-mode-routine)

;; ------------------------------------------------------------
(autoload 'web-mode "js" "Major mode to edit web files." t)
(autoload 'web-mode "css" "Major mode to edit web files." t)

;; ----------------------------------------------------------
;; ANT MODE STUFF

;; (load-file "/usr/local/share/emacs/site-lisp/ant.elc")

;; -----------------------------------------------------------
;; JDE STUFF

;; Set the debug option to enable a backtrace when a
;; problem occurs.
(setq debug-on-error t)

(add-to-list 'load-path (expand-file-name "/usr/local/share/emacs/site-lisp/jde/lisp"))
(add-to-list 'load-path (expand-file-name "/usr/local/share/emacs/site-lisp/semantic"))
(add-to-list 'load-path (expand-file-name "/usr/local/share/emacs/site-lisp/speedbar"))
(add-to-list 'load-path (expand-file-name "/usr/local/share/emacs/site-lisp/elib"))
(add-to-list 'load-path (expand-file-name "/usr/local/share/emacs/site-lisp/eieio"))

;; -------------------------------------------------------------------
;; POV STUFF
; (add-to-list 'load-path (expand-file-name "/usr/share/emacs/site-lisp/pov-mode"))
; (require 'pov-mode)
; (setq auto-mode-alist
;       (cons '("\\.pov$" . pov-mode) auto-mode-alist))

;; (require 'jde)
;; (load-file "/usr/local/share/emacs/site-lisp/my-jde-templates.elc")

; ;; Sets the basic indentation for Java source files
; ;; to two spaces.
;; (defun my-jde-mode-hook ()
;;   (setq c-basic-offset 4))

;; (add-hook 'jde-mode-hook 'my-jde-mode-hook)

; ;; Include the following only if you want to run
; ;; bash as your shell.

; ;; Setup Emacs to run bash as its primary shell.
;; (setq shell-file-name "bash")
;; (setq shell-command-switch "-c")
;; (setq explicit-shell-file-name shell-file-name)
;; (setenv "SHELL" shell-file-name)
;; (setq explicit-sh-args '("-login" "-i"))

;; END JDE STUFF
;; ------------------------------------------------------------

;; ;; PYTHON MODE
;; (require 'python-mode)
;; (load-file "/usr/local/share/emacs/site-lisp/python-mode.el")
;; (setq auto-mode-alist
;;       (cons '("\\.py$" . python-mode) auto-mode-alist))
;; (setq interpreter-mode-alist
;;       (cons '("python" . python-mode)
;;            interpreter-mode-alist))


;; (load-file "/usr/local/share/emacs/site-lisp/starteam.elc")
;; (setq starteam-host "172.29.65.27"   ; or "myMachine.myCompany.com"
;;       starteam-port 49203
;;       starteam-user "rbbushma"
;;       starteam-password "een91ax"
;;       starteam-executable "stcmd"
;;       starteam-debug t
;;       starteam-to-directory-alist
;;       (list
;;        (cons  "^/home/bob/projects/galaxy"
;;               "^/home/bob/projects/rpt" )))
;; (starteam-menubar-setup)


(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(debug-on-error nil)
 '(indent-tabs-mode nil)
 '(jde-compiler (quote ("javac" "")))
 '(jde-db-source-directories
   (quote
    ("/home/bob/projects/galaxy/test" "/home/bob/projects/galaxy/src")))
 '(jde-gen-code-templates
   (quote
    (("Get Set Pair" . jde-gen-get-set)
     ("toString method" . jde-gen-to-string-method)
     ("Action Listener" . jde-gen-action-listener)
     ("Window Listener" . jde-gen-window-listener)
     ("Mouse Listener" . jde-gen-mouse-listener)
     ("Mouse Motion Listener" . jde-gen-mouse-motion-listener)
     ("Inner Class" . jde-gen-inner-class)
     ("println" . jde-gen-println)
     ("beep" . jde-gen-beep)
     ("property change support" . jde-gen-property-change-support)
     ("EJB Entity Bean" . jde-gen-entity-bean)
     ("EJB Session Bean" . jde-gen-session-bean)
     ("Hello World" . tempo-template-hello))))
 '(jde-run-application-class "")
 '(jde-run-working-directory "")
 '(next-line-add-newlines nil)
 '(pc-select-meta-moves-sexps t)
 '(pc-select-selection-keys-only t)
 '(pc-selection-mode t t)
 '(show-paren-mode t)
 '(tab-width 4)
 '(tool-bar-mode nil nil (tool-bar)))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:family "Ubuntu Mono" :foundry "DAMA" :slant normal :weight bold :height 151 :width normal)))))

(put 'upcase-region 'disabled nil)


; these functions convert the file to DOS/UNIX/Mac format

  (defun dos-line-endings () 
    "sets the buffer-file-coding-system to undecided-dos; changes the buffer
    by invisibly adding carriage returns"
    (interactive)
    (set-buffer-file-coding-system 'undecided-dos nil))
  (defun unix-line-endings () 
    "sets the buffer-file-coding-system to undecided-unix; changes the buffer
    by invisibly removing carriage returns"
    (interactive)
    (set-buffer-file-coding-system 'undecided-unix nil))
  (defun mac-line-endings () 
    "sets the buffer-file-coding-system to undecided-mac; may change the buffer
    by invisibly removing carriage returns"
    (interactive)
    (set-buffer-file-coding-system 'undecided-mac nil))




;======================================================================
; chmod a+w / chmod a-w
; Coded on 1996/06/11 02:22:30 by Gaku UEDA
; gaku@ueda.info.waseda.ac.jp
; Absolutely no warranty.

(defun gaku-toggle-executable-bits-of-current-buffer ()
  (interactive)
					; toggle exec bit.
  (let* (strset 
	 (bfname (buffer-file-name))
	 (fmode (file-modes bfname))
	 new-fmode
	 )
	  
    (cond ((gaku-executable-bits-p fmode)
	   (setq new-fmode (gaku-unset-executable-bits fmode)) ; unset
	   (setq strset "Unset"))
	  (t (setq new-fmode (gaku-set-executable-bits fmode)) ; set
	     (setq strset "Set")))

    (set-file-modes bfname new-fmode) ; exact operation
    (message (format "%s executable bit of %s and become '%s'" strset bfname (gaku-enstr-permission new-fmode))))) ; inform through mini-buffer

(defun toggle-write-bits-of-current-buffer ()
  (interactive)
					; toggle write bit.
  (let* (strset 
	 (bfname (buffer-file-name))
	 (fmode (file-modes bfname))
	 new-fmode
	 )
	  
    (cond ((gaku-write-bits-p fmode)
	   (setq new-fmode (gaku-unset-write-bits fmode)) ; unset
	   (setq strset "Unset"))
	  (t (setq new-fmode (gaku-set-write-bits fmode)) ; set
	     (setq strset "Set")))

    (set-file-modes bfname new-fmode) ; exact operation
    (message (format "%s write bit of %s and become '%s'" strset bfname (gaku-enstr-permission new-fmode))))) ; inform through mini-buffer

; ex) 123 => "--xrwx-wx"
(defun gaku-enstr-permission (pattern)
  (let (u g o)
    (setq o (gaku-enstr-permission-3 (mod pattern 8)))
    (setq pattern (/ pattern 8))
    (setq g (gaku-enstr-permission-3 (mod pattern 8)))
    (setq pattern (/ pattern 8))
    (setq u (gaku-enstr-permission-3 pattern))
    (format "%s%s%s" u g o)))

; 7 => 'rwx'  5 => 'r-x'
; gaku-enstr-permission
(defun gaku-enstr-permission-3 (pattern)
  (let (r w x) 
    (cond ((gaku-test pattern 4) (setq r "r"))
	  (t (setq r "-")))
    (cond ((gaku-test pattern 2) (setq w "w"))
	  (t (setq w "-")))
    (cond ((gaku-test pattern 1) (setq x "x"))
	  (t (setq x "-")))
    (format "%s%s%s" r w x)))

(defun gaku-test (n m)
  (= (logand n m) m))

; chmod a+x
(defun gaku-set-executable-bits (pattern)
	(logior pattern 73))

; chmod a-x
(defun gaku-unset-executable-bits (pattern)
	(logand pattern 438))

(defun gaku-executable-bits-p (pattern)
	(> (logand pattern 73) 0))


; chmod a+w
(defun gaku-set-write-bits (pattern)
	(logior pattern 146))

; chmod a-w
(defun gaku-unset-write-bits (pattern)
	(logand pattern 365))

(defun gaku-write-bits-p (pattern)
	(> (logand pattern 2) 0))


;; (global-set-key "\C-cx" 'gaku-toggle-executable-bits-of-current-buffer)
(global-set-key "\C-\M-w" 'toggle-write-bits-of-current-buffer)

(defun yank-primary-selection ()
  (interactive)
  (insert (x-get-selection 'PRIMARY)))

(global-set-key (kbd "M-y") 'yank-primary-selection)

(global-set-key (kbd "M-r") 'rectangle-mark-mode)

;; sudo apt install fonts-noto-color-emoji
(when (member "Noto Color Emoji" (font-family-list))
  (set-fontset-font
    t 'symbol (font-spec :family "Noto Color Emoji") nil 'prepend))