Prompted Slide-In/Out Scripts

This forum allows you to share scripts with other Zeus users. Please do not post bug reports, feature requests or questions to this forum, but rather use it exclusively for posting scripts or for the discussion of scripts that have been posted.
Post Reply
aphor
Posts: 21
Joined: Mon Dec 16, 2013 6:01 am

Prompted Slide-In/Out Scripts

Post by aphor » Sat Dec 21, 2013 3:53 am

Macros to replace Prompted Slide-in/Slide-out from CodeWright. comment_range() and uncomment_range() do the heavy lifting, these just set the column and range along with prompting the user for the slide text.

Prompted Slide-in

Code: Select all

--        Name: PromptedSlideIn
-- Description: Prefix select block with user provided text
dofile ("AS_NotDoc.LUA")  -- #include file
dofile ("commentText.LUA")  -- #include file

function key_bind()
    -- macro only works for writable documents so do a check
    if (NotDocument() == 1) then
        message("Document is read-only!")
        return
    end

    -- macro only works for marked documents
    if (is_marked() == 0)  then
        message("No text selected!")
        return
    end

    local top   = get_marked_top()
    local range = get_marked_bottom() - top + 1
    local col   = get_marked_left()

    -- ask for a user for slide text
    local slideText = user_input("Slide Text:", "")

    -- disable screen updates
    screen_update_disable()

    -- save the current cursor
    cursor_save()

    -- move to the fist line of the commented text
    set_line_pos(top)

    -- get the first line of text
    comment_range(range, slideText, nil, col)

    -- restore original cursor
    cursor_restore()

    -- restore screen updates
    screen_update_enable()
end

key_bind() -- run the macro
Prompted Slide-Out

Code: Select all

--        Name: PromptedSlideOut
-- Description: Strip user provided text from select block.
dofile ("AS_NotDoc.LUA")  -- #include file
dofile ("commentText.LUA")  -- #include file

function key_bind()
    -- macro only works for writable documents so do a check
    if (NotDocument() == 1) then
        message("Document is read-only!")
        return
    end

    -- macro only works for marked documents
    if (is_marked() == 0)  then
        message("No text selected!")
        return
    end

    local top   = get_marked_top()
    local range = get_marked_bottom() - top + 1
    local col   = get_marked_left()

    -- ask for a user for slide text
    local slideText = user_input("Slide Text:", "")

    -- disable screen updates
    screen_update_disable()

    -- save the current cursor
    cursor_save()

    -- move to the fist line of the commented text
    set_line_pos(top)

    -- get the first line of text
    uncomment_range(range, slideText, nil, col)

    -- restore original cursor
    cursor_restore()

    -- restore screen updates
    screen_update_enable()
end

key_bind() -- run the macro

Post Reply
kuchnie warszawa opinie

Who is online

Users browsing this forum: No registered users and 1 guest