编写一个ELisp函数,使man命令在另一个窗口中打开。
创始人
2024-12-06 08:01:26
0

我们可以使用(split-window-sensibly)函数将窗口分成上下两部分,然后使用(other-window 1)函数切换到下一个窗口。接下来,我们可以使用(with-selected-window)函数在另一个窗口中运行(man)命令。

下面是实现这个功能的ELisp代码示例:

(defun my-man-in-other-window (topic)
  "Open man page for TOPIC in another window."
  (interactive "sTopic: ")
  (let ((buf (get-buffer-create "*Man*")))
    (split-window-sensibly)
    (other-window 1)
    (with-selected-window (selected-window)
      (progn
        (switch-to-buffer buf)
        (setq default-directory "/")
        (setq-local Man-notify-method 'pushy)
        (Man-mode)
        (Man-getpage-in-background topic)))))

(global-set-key "\C-cm" 'my-man-in-other-window)

在这个例子中,我们首先定义了一个名为my-man-in-other-window的函数,它接受一个参数topic表示要查看的man页主题。然后,我们定义了一个名为buf的缓冲区,在此函数中我们使用它来显示man页。

接下来,我们使用(split-window-sensibly)函数将当前窗口分成两个部分(上下),并使用(other-window 1)函数将焦点切换到下一个窗口。现在我们已经处于新窗口中,我们可以使用(with-selected-window)函数在这个窗口中执行代码。在这个例子中,我们首先使用(switch-to-buffer)函数将buf缓冲区设置为当前缓冲区,并使用(setq)函数为default-directoryMan-notify-method设置一些默认值。接着,我们使用(Man-mode)函数打开Man模式,并使用(Man-getpage-in-background)函数查找指定的man页。

最后,我们使用(global-set-key)函数将函数绑定到键盘快捷键C-c m上,以便更方便地使用此功能。

相关内容

热门资讯

【NI Multisim 14...   目录 序言 一、工具栏 🍊1.“标准”工具栏 🍊 2.视图工具...
银河麒麟V10SP1高级服务器... 银河麒麟高级服务器操作系统简介: 银河麒麟高级服务器操作系统V10是针对企业级关键业务...
不能访问光猫的的管理页面 光猫是现代家庭宽带网络的重要组成部分,它可以提供高速稳定的网络连接。但是,有时候我们会遇到不能访问光...
AWSECS:访问外部网络时出... 如果您在AWS ECS中部署了应用程序,并且该应用程序需要访问外部网络,但是无法正常访问,可能是因为...
Android|无法访问或保存... 这个问题可能是由于权限设置不正确导致的。您需要在应用程序清单文件中添加以下代码来请求适当的权限:此外...
北信源内网安全管理卸载 北信源内网安全管理是一款网络安全管理软件,主要用于保护内网安全。在日常使用过程中,卸载该软件是一种常...
AWSElasticBeans... 在Dockerfile中手动配置nginx反向代理。例如,在Dockerfile中添加以下代码:FR...
AsusVivobook无法开... 首先,我们可以尝试重置BIOS(Basic Input/Output System)来解决这个问题。...
ASM贪吃蛇游戏-解决错误的问... 要解决ASM贪吃蛇游戏中的错误问题,你可以按照以下步骤进行:首先,确定错误的具体表现和问题所在。在贪...
月入8000+的steam搬砖... 大家好,我是阿阳 今天要给大家介绍的是 steam 游戏搬砖项目,目前...