jwiegley

(defun org-extra-get-properties (&rest props)
  (cons (org-current-level)
        (mapcar #'(lambda (prop)
                    (if (string= "ITEM_BY_ID" prop)
                        (format "[[id:%s][%s]]"
                                (org-entry-get (point) "ID")
                                (org-entry-get (point) "ITEM"))
                      (org-entry-get (point) prop)))
                props)))

4www

emacs matrix client, with ement.el & pantalaimon (for encryption support)

Hello!

I'm trying to get a matrix client on emacs, with ement.el, and to work with encryption, using pantalaimon.

I hoping not to have put secret info/data/logs in the command output extract; plz don't hack me (there is already my user_id and too much info, damn i'm public).

viiru-

(cl-defun viiru/ement-notify-track (event room session &key (buffer-name "*Ement Notifications*"))
  (with-demoted-errors "viiru/ement-notify-track-if-buffer: %S"
    (when (ement-notify--event-message-p event room session)
      (let ((buffer (if (ement-notify--room-buffer-live-p event room session)
                        (map-elt (ement-room-local room) 'buffer)
                      (when (ement-notify--room-unread-p event room session)
                        (get-buffer buffer-name))))
            (faces (if (ement-notify--room-unread-p event room session)
                       '(ement-room-list-direct)
                     '(default))))

jscheid

Dockerfile
/.sandbox/
/.git/

thibaudcolas

Video Downloader professional kmdldgcmokdpmacblnehppgkjphcbpnn background.js

This is the source of background.js for a now-unpublished Chrome extension called "Video Downloader professional" (ID kmdldgcmokdpmacblnehppgkjphcbpnn, since then replaced with another "Video Downloader professional" (ID bacakpdjpomjaelpkpkabmedhkoongbi). This script is republished here for educational / research purposes. It has initially been extracted from the extension’s archive available as v2.4 on https://www.crx4chrome.com/.

Why is this interesting?

The extension has appeared in malware discussions in the past. Its replacement of Video downloader professional "bacakpdjpomjaelpkpkabmedhkoongbi" seems related to the [ownership change of The Great Suspender](greatsuspender/thegreatsuspender#1263 (comment)

mskorzhinskiy

(setq
 org-ql-views
 '(("stuck" lambda nil
    (interactive)
    (org-ql-search
      (org-agenda-files)
      '(and (tags "story")
            (not (tags "ignore"))
            (not (done)) ;; Finished stories should be excluded
            (not (descendants (todo "NEXT"))) ;; If there are already

alphapapa

#!/bin/bash

# Launch Dired in a plain Emacs configuration.

# Arguments are passed to Emacs, e.g. "-nw" works as expected.

emacs -q "$@" \
      --eval "(dired default-directory)" \
      --eval "(defun kill-window-or-emacs () (interactive) (if (one-window-p) (kill-emacs) (delete-window)))" \
      --eval "(setq dired-dwim-target t delete-by-moving-to-trash t)" \

phoe

Package-local nicknames in Common Lisp

Warning: this is a rant.

Warning: you have been warned.

Note: actually worthwhile content starts in the second subsection. You are free to skip the first one.

Story time

alphapapa

;; When editing an image with many layers (e.g. an animated GIF with
;; hundreds of frames), it's impossibly tedious to click hundreds and
;; hundreds of times on small little boxes to hide or show all layers.
;; Since GIMP seems to lack a button to hide/show all of them, and it
;; doesn't allow selection of multiple layers, this script provides
;; menu items to hide/show all layers at once.

;; Who knows if later versions of GIMP than I have provide a way to do
;; this, but this works, and maybe it will be helpful to someone.

skeeto

;;; Memoization benchmark -*- lexical-binding: t; -*-

;; Ref: https://github.com/skeeto/emacs-memoize

;; $ emacs -Q --batch -L path/to/memoize -f batch-byte-compile memoize-bench.el
;; $ emacs -Q --batch -L path/to/memoize -l memoize-bench.elc

;; Note: Benchmark requires at least 64-bit integers. Choose one of:
;; * Emacs >= 27
;; * Emacs <= 26 on 64-bit host