编写一个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上,以便更方便地使用此功能。

相关内容

热门资讯

AWSECS:访问外部网络时出... 如果您在AWS ECS中部署了应用程序,并且该应用程序需要访问外部网络,但是无法正常访问,可能是因为...
AWSElasticBeans... 在Dockerfile中手动配置nginx反向代理。例如,在Dockerfile中添加以下代码:FR...
AWR报告解读 WORKLOAD REPOSITORY PDB report (PDB snapshots) AW...
AWS管理控制台菜单和权限 要在AWS管理控制台中创建菜单和权限,您可以使用AWS Identity and Access Ma...
北信源内网安全管理卸载 北信源内网安全管理是一款网络安全管理软件,主要用于保护内网安全。在日常使用过程中,卸载该软件是一种常...
​ToDesk 远程工具安装及... 目录 前言 ToDesk 优势 ToDesk 下载安装 ToDesk 功能展示 文件传输 设备链接 ...
Azure构建流程(Power... 这可能是由于配置错误导致的问题。请检查构建流程任务中的“发布构建制品”步骤,确保正确配置了“Arti...
群晖外网访问终极解决方法:IP... 写在前面的话 受够了群晖的quickconnet的小水管了,急需一个新的解决方法&#x...
AWSECS:哪种网络模式具有... 使用AWS ECS中的awsvpc网络模式来获得最佳性能。awsvpc网络模式允许ECS任务直接在V...
不能访问光猫的的管理页面 光猫是现代家庭宽带网络的重要组成部分,它可以提供高速稳定的网络连接。但是,有时候我们会遇到不能访问光...