zoukankan      html  css  js  c++  java
  • 转投emacs

    (global-set-key [f9] 'compile-file)
    (global-set-key [f10] 'gud-gdb)
    (global-set-key (kbd "C-z") 'undo)
    (global-set-key (kbd "C-a") 'mark-whole-buffer)
    (global-set-key (kbd "C-x a") 'indent-region)
    (global-set-key (kbd "C-s") 'save-buffer)
    (global-set-key (kbd "RET") 'newline-and-indent)
    (global-set-key (kbd "C-q") 'kill-emacs)
    (global-set-key (kbd "C-h") 'kill-this-buffer)
    (global-set-key (kbd "M-z") 'loop-alpha)
    (setq alpha-list '((100 100) (85 65) (50 35)))
    (defun loop-alpha ()(interactive)(let ((h (car alpha-list)))
    ((lambda (a ab)(set-frame-parameter (selected-frame) 'alpha (list a ab))
    (add-to-list 'default-frame-alist (cons 'alpha (list a ab)))) (car h) (car (cdr h)))
    (setq alpha-list (cdr (append alpha-list (list h))))))
    (setq-default indent-tabs-mode t)
    (setq default-tab-width 4)
    (setq c-default-style "Linux")
    (setq c-basic-offset 4)
    (global-linum-mode t)
    (global-set-key (kbd "C-d") 'kill-whole-line)
    (show-paren-mode t)
    (setq default-frame-alist
    '((vertical-scroll-bars)
    (top . 0)
    (left . 0)
    (width . 80)
    (height . 40)
    (background-color . "white")
    (foreground-color . "black")
    (cursor-color . "gold1")
    (mouse-color . "gold1")
    (tool-bar-lines . 0)
    (menu-bar-lines . 1)
    (scroll-bar-lines . 0)
    (right-fringe)
    (left-fringe)))
    (global-hl-line-mode 1)
    (set-face-background 'highlight "skyblue")
    (set-face-foreground 'region "cyan")
    (set-face-background 'region "blue")
    (set-face-foreground 'secondary-selection "white")
    (set-face-background 'secondary-selection "darkblue")
    (column-number-mode t)
    (global-linum-mode t)
    (setq make-backup-files nil)
    (setq auto-save-mode nil)
    (show-paren-mode t)
    (setq show-paren-style 'parenthesis)
    (defun compile-file ()
    (interactive)
    (compile (format "g++ -o %s %s -g -lm -Wall" (file-name-sans-extension (buffer-name))(buffer-name))))
    (setq-default cursor-type 'bar)
    (custom-set-variables
    '(column-number-mode t)
    '(cua-mode t nil (cua-base))
    '(inhibit-startup-screen t)
    '(show-paren-mode t))
    (custom-set-faces
    '(default ((t (:family "Ubuntu Mono" :foundry "DAMA" :slant normal :weight normal :height 128 :width normal)))))
    (setq x-select-enable-clipboard t)
    (unless window-system
    (when (getenv "DISPLAY")
    (defun xsel-cut-function (text &optional push)
    (with-temp-buffer(insert text)
    (call-process-region (point-min) (point-max) "xsel" nil 0 nil "--clipboard" "--input")))
    (defun xsel-paste-function()
    (let ((xsel-output (shell-command-to-string "xsel --clipboard --output")))
    (unless (string= (car kill-ring) xsel-output)xsel-output )))
    (setq interprogram-cut-function 'xsel-cut-function)
    (setq interprogram-paste-function 'xsel-paste-function)))
    

    考试特供-10行配置

    我灰常的短!!

    (global-set-key [f9] 'foo)
    (global-set-key [f10] 'gud-gdb)
    (global-set-key (kbd "RET") 'newline-and-indent)
    (global-linum-mode t)
    (setq-default indent-tabs-mode t)
    (setq default-tab-width 4)
    (setq c-default-style "Linux")
    (setq c-basic-offset 4)
    (setq-default cursor-type 'bar)
    (defun foo()(interactive)(compile (format "g++ -o %s %s -g -Wall" (file-name-sans-extension(buffer-name))(buffer-name))))
    
    

    就是酱紫
    喜欢的话点个推荐吧

  • 相关阅读:
    List 组件简单示例及其onItemsDisclosure点击事件
    读取mysq数据库l数据,并使用dataview显示
    使用dataview组件显示服务器端xml文件数据
    Flex 布局教程:语法篇
    artTemplate模板引擎
    HTTP协议响应消息的常用状态码【转】
    淘宝网前端开发面试题(二)--JS 面试题
    淘宝网前端开发面试题(一)--HTML & CSS 面试题
    HTML 5 Canvas
    清除浮动的几种方法
  • 原文地址:https://www.cnblogs.com/finder-iot/p/7713986.html
Copyright © 2011-2022 走看看