Emacs之实现鼠标/键盘选中即拷贝外界内容(一百二十)

简介: CSDN博客专家,专注Android/Linux系统,分享多mic语音方案、音视频、编解码等技术,与大家一起成长!

优质专栏:Audio工程师进阶系列原创干货持续更新中......】🚀

人生格言: 人生从来没有捷径,只有行动才是治疗恐惧和懒惰的唯一良药.
更多原创,欢迎关注:Android系统攻城狮

1.前言

本篇目的:实现鼠标划词拷贝Emacs以外程序中内容,回到Emacs中时需要关闭鼠标的划词拷贝,因为在emacs中mark选中的时候,又会拷贝内容,会把之前外界的内容给冲掉,基于这个原因,实现一套鼠标和键盘选中时,自动的拷贝的功能,但是在Emacs中必须关掉,在Emacs中还是需要手动拷贝。

2.应用实例

lisp 复制代码
;;Emacs 27或更高版本
(xclip-mode 1)
;;Linux系统剪切板
(setq select-enable-clipboard t)
;;Linux primary区域剪切板
(setq select-enable-primary t)

;;需要先requre 'select
(require 'select)

;;实现emacs焦点进来时,设置select-enable-primary为nil;
;;当emacs焦点离开时,设置select-enable-primary为t.
;;保证剪切板不为空,否则需要自己执行一下复制命令,否则以下命令不生效.
(kill-new (buffer-name))

(defvar last-focus-out-time nil)
;;300毫秒内执行多次的话,只执行一次.
(defun focus-out-emacs ()
  (interactive)
  (let ((current-time (float-time))) ; 当前时间
    (when (or (null last-focus-out-time) ; 上次执行的时间为空
              (> (- current-time last-focus-out-time) 0.3)) ; 时间差超过300毫秒
      (setq last-focus-out-time current-time)
      (setq select-enable-primary t)
      ;;(message "focus out hook")
      )))

(defun focus-in-emacs ()
  (interactive)
  (let ((current-time (float-time))) ; 当前时间
    (when (or (null last-focus-out-time) ; 
              (> (- current-time last-focus-out-time) 0.3)) ; 时间差超过300毫秒
      (setq last-focus-out-time current-time)
      ;;延时1秒执行(setq select-enable-primary nil),否则在emacs外来不及copy就被关闭
      ;;delay 1s
      (run-with-timer 1 nil (lambda ()
			      (setq select-enable-primary nil)
			      ;;(message "focus in hook")
			      ))
      )))

;;只要切换窗口就触发,切换一次窗口会调用4次,实现focus-in-emacs和focus-out-emacs每次调用只执行一次。
(add-hook 'focus-in-hook (lambda (&rest _)(focus-in-emacs)))
(add-hook 'focus-out-hook (lambda (&rest _) (focus-out-emacs)))
相关推荐
技术程序猿华锋1 小时前
深度解码OpenAI的2025野心:Codex重生与GPT-5 APIKey获取调用示例
人工智能·vscode·python·gpt·深度学习·编辑器
Thomas_YXQ11 小时前
Unity3D RectTransform.rect属性详解
unity·编辑器·游戏引擎·材质
Murphy_lx17 小时前
vim指令
linux·编辑器·vim
小猪写代码17 小时前
vim 编辑器
linux·编辑器·vim
XJxsmyj5217 小时前
vim复制本地到linux服务器上,换行缩进过大,不对的问题
linux·编辑器·vim
sukalot18 小时前
window显示驱动开发—头戴式和专用显示器
计算机外设
数字冰雹1 天前
图观 应用编辑器 产品介绍
microsoft·编辑器
wangduqiang7471 天前
VSCode 下 PlatformIO 的使用
ide·vscode·编辑器
weixin_442825401 天前
goland 配置自己定义的proto文件
编辑器
ONLYOFFICE1 天前
如何在ONLYOFFICE中使用OCR工具:轻松识别图片和PDF中的文字
编辑器·ocr·office