Přidáno pipe menu soubory
This commit is contained in:
parent
8094fb29f9
commit
9d3a33a2ff
|
@ -0,0 +1,104 @@
|
|||
#!/bin/sh
|
||||
# al-recent-files-pipemenu - a script to parse .recently-used.xbel
|
||||
# and generate openbox pipe menu
|
||||
# Copyright (C) 2010 John Crawley
|
||||
# Borrowed with love by arcolinux.
|
||||
#
|
||||
# This program is free software: you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation, either version 3 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
# version 2012/07/01-cb
|
||||
|
||||
# Usage: add
|
||||
# <menu id="recent" label="Recent Files" execute="/path/to/cbpp-recent-files-pipemenu" />
|
||||
# to your .config/openbox/menu.xml, or use with cbpp-places-pipemenu (see comments there)
|
||||
|
||||
maximum_entries=15 # max. number of entries in menu
|
||||
|
||||
#######################################################################
|
||||
|
||||
# look for recently-used.xbel
|
||||
if [ $XDG_DATA_HOME ] && [ -r "${XDG_DATA_HOME}/recently-used.xbel" ]
|
||||
then
|
||||
file_path="${XDG_DATA_HOME}/recently-used.xbel"
|
||||
elif [ -r "${HOME}/.local/share/recently-used.xbel" ]
|
||||
then
|
||||
file_path="${HOME}/.local/share/recently-used.xbel"
|
||||
elif [ -r "${HOME}/.recently-used.xbel" ]
|
||||
then
|
||||
file_path="${HOME}/.recently-used.xbel"
|
||||
else
|
||||
echo "$0: cannot find a readable recently-used.xbel file" >&2
|
||||
echo '<openbox_pipe_menu>
|
||||
<separator label="No recently-used.xbel file found." />
|
||||
</openbox_pipe_menu>'
|
||||
exit 1
|
||||
fi
|
||||
|
||||
# if argument is --clear, empty .recently-used.xbel
|
||||
[ "$1" = '--clear' ] && {
|
||||
cat <<':EOF' > "${file_path}"
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<xbel version="1.0"
|
||||
xmlns:bookmark="http://www.freedesktop.org/standards/desktop-bookmarks"
|
||||
xmlns:mime="http://www.freedesktop.org/standards/shared-mime-info"
|
||||
>
|
||||
</xbel>
|
||||
:EOF
|
||||
exit
|
||||
}
|
||||
|
||||
maximum_entries=$((maximum_entries+2))
|
||||
|
||||
pre=' <item label="'
|
||||
mid='">
|
||||
<action name="Execute"><command>'
|
||||
post='</command></action>
|
||||
</item>'
|
||||
|
||||
files=$( tac "${file_path}" | awk -v MAX="$maximum_entries" -v PR="$pre" -v MI="$mid" -v PO="$post" 'BEGIN {
|
||||
RS="</bookmark>";
|
||||
FS="<info>";
|
||||
}
|
||||
(NR == MAX) {exit}
|
||||
!/<bookmark/ {next}
|
||||
!/href=[\"'\'']file:\/\// {next}
|
||||
# $1 is the command, $2 the file path
|
||||
{
|
||||
sub(/^.*exec=\"\&apos\;/,"",$1)
|
||||
sub(/\&apos\;.*$/,"",$1)
|
||||
sub(/ *%./,"",$1)
|
||||
sub(/^.*file:\/\//,"",$2)
|
||||
sub(/[\"'\''].*$/,"",$2)
|
||||
gsub(/%22/,"\\"",$2)
|
||||
gsub(/%3C/,"\\<",$2)
|
||||
gsub(/%3E/,"\\>",$2)
|
||||
name=$2
|
||||
sub(/^.*\//,"",name)
|
||||
gsub(/_/,"__",name)
|
||||
gsub(/\'/,"\\'\\"\\'\\"\\'",$2)
|
||||
print (PR name MI $1 " '"'"'" $2 "'"'"'" PO)
|
||||
}' )
|
||||
|
||||
# use perl to decode urlencoded characters
|
||||
files=$(perl -MURI::Escape -e 'print uri_unescape($ARGV[0]);' "$files")
|
||||
|
||||
output='<openbox_pipe_menu>
|
||||
'"$files"'
|
||||
<separator />
|
||||
<item label="Clear Recent Files">
|
||||
<action name="Execute">
|
||||
<command>
|
||||
''"$0"'' --clear
|
||||
</command>
|
||||
</action>
|
||||
</item>
|
||||
</openbox_pipe_menu>
|
||||
'
|
||||
printf '%s' "$output" # printf because echo sometimes eats backslashes
|
Loading…
Reference in New Issue