Context Menu is Personal (GNU Emacs)

 



Define custom menu based on your preferences. Note the definition of visibility conditions (:visible keyword) and sub-menu (More). They are helpful in reducing the clutter.

(Note: There are some placeholders in the code below.)

(easy-menu-define my-menu global-map "My context menu"
  '("Context Menu"
    ["Cut"   kill-region :visible (region-active-p)]
    ;; ["Copy"  kill-ring-save t] ;; Menu copies by default for further action
    ["Paste" yank :visible (not (region-active-p))]
    ["Open    " org-open-at-point t]
    ["Calculate    " calc-grab-region t]
    ["Execute    " (lambda () (interactive)
            (shell-command-on-region (region-beginning) (region-end) "sh")) t]
    ["Search Web" (lambda () (interactive) (eww (car kill-ring))) t]
    ["Email    " yank t]
    ["Print    " ps-print-region-with-faces t]
    "--"
    ["Define    " (lambda () (interactive) (dictionary-search (car kill-ring))) t]
    ["Synonyms    " synonymous-synonyms :visible (featurep 'synonymous)]
    ["Antonyms    " synonymous-antonyms :visible (featurep 'synonymous)]
    ["Translate    " yank :visible (featurep 'synonymous)]
    "--"
    ["Map    " (lambda () (interactive) (osm-search (car kill-ring)))
     :visible (featurep 'osm)]
    ["Shop    " (lambda () (interactive) (shop--item-search (car kill-ring))) t]
    ["Weather    " (lambda () (interactive) (sunshine-forecast (car kill-ring))) t]
    ;; ["--" 'ignore :visible (featurep 'bookmark+-lit)]
    ("More"
     ["Wikipedia" my-obscure-function t]
     ["Twitter" my-obscure-function t]
     ["Youtube" my-obscure-function t]
     )))

 

Define a custom command to associate it with a right click. This command copies the region into the kill ring. The commands above use this value (car kill-ring) for execution. The function (popup-menu) takes care of drawing the menu.

(defun context-menu-command (beg end)
  (interactive "r")
  (if (region-active-p)
      (kill-ring-save beg end))
  (popup-menu my-menu))

 

Define the keybinding for the context menu. Here it is being assigned to mouse3 button.

(global-set-key [mouse-3] 'context-menu-command)

 

Calculator

Emacs calc supports simple arithmetic calculation in algebraic mode. Use calc-grab-region for adding the functionality to the context-menu.

You can also solve an equation. e.g. Select the equation (2x = 10) and invoke "Calculate" from the context menu. Now press "a S" to solve for the variable x.


 

 

 

Comments

Post a Comment

Popular posts from this blog

GNU Emacs as a Comic Book Reader

Image
  Comics are available in digital format as a collection of images in a compressed ZIP or RAR file (.cbz or .cbr file extension respectively). These can be enjoyed in GNU Emacs with full access to image viewing capabilities using keybindings.   # Make sure you have unrar installed for CBR files # apt install unrar   (require 'arc2-mode)   (setq archive-summarize-files-fn 'archive-summarize-files-as-thumb)     Note: The archive-mode is capable of displaying the list of files in an archive; though it depends on external tools for extraction. For JPG and PNG, Emacs can resize the image without external convertor (ie. imagemagick). However, some menu options for image transformations in image-mode might not be available. Use the following patch for image-mode.el . @@ -460,16 +460,16 @@ image-mode-map       :help "Show image as hex"]      "--"      ["Fit to Window Height" image-transform-fit-to-...
Read more

HTML Renderer (Emacs)

Image
  Emacs: A non-intrusive browser An Elisp implementation of HTML rendering using SVG. The browser functionality is an extension of eww . For Javascript, you can use either NodeJS or QuickJS as a JS interpreter . Developer Note: The entry point is shr-render.   Table Colspan example Rowspan example Sample Table <html>   <body>     <table border="1">       <tr bgcolor="#9acd32">         <th style="text-align:left">Title</th>         <th style="text-align:left">Artist</th>       </tr>       <tr>         <td>Empire Burlesque</td>         <td>Bob Dylan</td>       </tr>     </table>   </body> </html...
Read more

Mozilla Readability in GNU Emacs

Image
  Output using Readability (left) and original eww (right)   Mozilla Readability is a standalone version of the readability library used for Firefox Reader View . A simple hack to eww can bring the same feature in GNU Emacs. ( Note: eww already has a readable mode. This is just an alternative. Updated the post to reflect the same.)   - Install NodeJS   - Install npm modules. npm install @mozilla/readability jsdom   - Create a file readability.js with following content. Note the file location. var { Readability } = require('@mozilla/readability'); var { JSDOM } = require('jsdom'); var fs = require("fs"); var str = fs.readFileSync(process.stdin.fd).toString(); var doc = new JSDOM(str); var reader = new Readability(doc.window.document); var article = reader.parse(); console.log(article.content);     - Modify the following function to use the file location noted above . Evaluate the function. (defun mozilla-readability (start end)   (shell-command-o...
Read more